|
Login
  • Page:
  • 1

TOPIC: Ci provo, so di essere nel posto giusto...

Ci provo, so di essere nel posto giusto... 10 years 9 months ago #304

Salve a tutti :lol:
Già tempo fa vi seguivo con immensa fame perchè quando uno come me deve usare excel sono sempre dolori. Ma vado al sodo: nell'immagine che allego vedete la finestra che si visualizza all'apertura del file di excel.
Ecco a me interesserebbe :blush: :blush: :blush: :blush: fare la stessa cosa su di un file che sto creando a spese mie e sopratutto dei miei due neuroni sfibrati :woohoo:

Immagino debba "agire" su VBA...sapessi come....

Grazie in quantità industriale a chiunque mi lanci la corda giusta.. ;)
Attachments:
Last Edit: 10 years 9 months ago by pilotastrano.
The administrator has disabled public write access.

Re:Ci provo, so di essere nel posto giusto... 10 years 9 months ago #305

  • Gianclaudio
  • Gianclaudio's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 397
  • Karma: 23
Ciao Pilotastrano

Allora, per visualizzare un qualunque messaggio all'apertura di Excel basta che vedi qui:
www.excelling.it/index.php?option=com_co...5&catid=77&Itemid=57

Per capire quando "scade" un file devi in qualche modo inserire la data di partenza.
Per semplicità immaginiamo che la inserisci nel foglio1, cella A1.

Quindi avremo:
inizio = Sheets("Foglio1").Range("A1").Value

Per sapere quanto manca alla scadenza avremo:
manca = Now() - inizio

Immaginiamo che il file "duri" 30 giorni.
Elaborando e riepilogando, avremo:

- - -
Sub auto_open()

manca = Now() - Sheets("Foglio1").Range("A1").Value
durata = 30

giorni = Round(durata - manca, 1)

If giorni < 0 Then
MsgBox ("Il file è Scaduto!")
End
Else: MsgBox ("Puoi usare questo foglio per " & giorni & " giorni")

End If

End Sub

- - -

Ciao,
G.
The administrator has disabled public write access.

Re:Ci provo, so di essere nel posto giusto... 10 years 9 months ago #306

:cheer: :cheer:
Semplicemente...GRAZIEEEEEE :silly: :silly: :silly: :silly:

:kiss:
The administrator has disabled public write access.

Re:Ci provo, so di essere nel posto giusto... 10 years 9 months ago #308

  • davideba
  • davideba's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 448
  • Karma: 33
The administrator has disabled public write access.

Re:Ci provo, so di essere nel posto giusto... 10 years 9 months ago #309

Grazie Davide, sarà fatto! ;)
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.778 seconds