Apertura Form Excel VBA

matthew85 · 20-01-2006, 12:16

Ciao a tutti,

volevo chiedere una piccola informazione io sto facendo su un foglio di lavoro di Microsoft Excel un minidatabase dove va a calcolare delle pagine che dovrò utilizzare per sapere quante pagine devo stampare. E mettendo un form con dei Label e dei TextBox e il codice Visual Basic for Application.

Ma quello che mi sorge di più è questo, che codice devo mettere per far apparire, ogni qual volta che vado ad aprire il foglio di lavoro, la form?

matthew85 · 24-01-2006, 11:26

Qualcuno mi può aiutare?

Fenomeno85 · 24-01-2006, 18:02

un pulsante non ti va bene?

~§~ Sempre E Solo Lei ~§~

matthew85 · 30-01-2006, 10:33

Anche, ma come si può fare a farlo aprire direttamente senza che ogni volta lo vado ad aprire io?

Minelab · 30-01-2006, 19:32

Per eseguire un'operazione all'apertura del file (se è questo quello che ti interessa) puoi inserire una routine in "This Workbook".
L'esempio sottostante scrive "Ciao" nella cella A1 del Foglio1 quando si apre il file.
Private Sub Workbook_Open()
Sheets("Foglio1").Cells(1, 1) = "Ciao"
End Sub

matthew85 · 31-01-2006, 11:26

Vi chiedo questo perché devo fare un foglio dove devo andare ad inserire dei numeri di pagine ad ogni cella, con un conteggio progressivo però ogni volta che apro il foglio di lavoro vorrei che si aprisse anche il form.

Fenomeno85 · 31-01-2006, 14:34

Scusa se ti rispondo in ritardo allora per quello che vuoi basta che fai in questo modo:

- vai in visual editor
- poi fai inserisci -> userform
- vai in thisworkbook
e scrivi questo:

Codice:

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Poi sul userform (o come hai chiamato il form) fai quello che devi fare

~§~ Sempre E Solo Lei ~§~

matthew85 · 31-01-2006, 14:39

Grazie mille, terrò a mente.

E non ti preoccupare se mi hai risposto in ritardo.

Fenomeno85 · 31-01-2006, 14:41

de nada

~§~ Sempre E Solo Lei ~§~

20-01-2006, 12:16	#1
matthew85 Senior Member Iscritto dal: Sep 2005 Città: Como Messaggi: 447	Apertura Form Excel VBA Ciao a tutti, volevo chiedere una piccola informazione io sto facendo su un foglio di lavoro di Microsoft Excel un minidatabase dove va a calcolare delle pagine che dovrò utilizzare per sapere quante pagine devo stampare. E mettendo un form con dei Label e dei TextBox e il codice Visual Basic for Application. Ma quello che mi sorge di più è questo, che codice devo mettere per far apparire, ogni qual volta che vado ad aprire il foglio di lavoro, la form?

24-01-2006, 18:02	#3
Fenomeno85 Senior Member Iscritto dal: Jun 2002 Città: Provincia De VaRéSe ~ § ~ Lat.: 45° 51' 7" N Long.: 8° 50' 21" E ~§~ Magica Inter ~ § ~ Detto: A Chi Più Amiamo Meno Dire Sappiamo ~ § ~ ~ § ~ Hobby: Divertimento allo Stato Puro ~ § ~ ~ § ~ You Must Go Out ~ § ~ Messaggi: 8897	un pulsante non ti va bene? ~§~ Sempre E Solo Lei ~§~ __________________ Meglio essere protagonisti della propria tragedia che spettatori della propria vita Si dovrebbe pensare più a far bene che a stare bene: e così si finirebbe anche a star meglio. Non preoccuparti solo di essere migliore dei tuoi contemporanei o dei tuoi predecessori.Cerca solo di essere migliore di te stesso

31-01-2006, 11:26	#6
matthew85 Senior Member Iscritto dal: Sep 2005 Città: Como Messaggi: 447	Vi chiedo questo perché devo fare un foglio dove devo andare ad inserire dei numeri di pagine ad ogni cella, con un conteggio progressivo però ogni volta che apro il foglio di lavoro vorrei che si aprisse anche il form. Ultima modifica di matthew85 : 31-01-2006 alle 12:54.

31-01-2006, 14:34	#7
Fenomeno85 Senior Member Iscritto dal: Jun 2002 Città: Provincia De VaRéSe ~ § ~ Lat.: 45° 51' 7" N Long.: 8° 50' 21" E ~§~ Magica Inter ~ § ~ Detto: A Chi Più Amiamo Meno Dire Sappiamo ~ § ~ ~ § ~ Hobby: Divertimento allo Stato Puro ~ § ~ ~ § ~ You Must Go Out ~ § ~ Messaggi: 8897	Scusa se ti rispondo in ritardo allora per quello che vuoi basta che fai in questo modo: - vai in visual editor - poi fai inserisci -> userform - vai in thisworkbook e scrivi questo: Codice: Private Sub Workbook_Open() UserForm1.Show End Sub Poi sul userform (o come hai chiamato il form) fai quello che devi fare ~§~ Sempre E Solo Lei ~§~ __________________ Meglio essere protagonisti della propria tragedia che spettatori della propria vita Si dovrebbe pensare più a far bene che a stare bene: e così si finirebbe anche a star meglio. Non preoccuparti solo di essere migliore dei tuoi contemporanei o dei tuoi predecessori.Cerca solo di essere migliore di te stesso

31-01-2006, 14:41	#9
Fenomeno85 Senior Member Iscritto dal: Jun 2002 Città: Provincia De VaRéSe ~ § ~ Lat.: 45° 51' 7" N Long.: 8° 50' 21" E ~§~ Magica Inter ~ § ~ Detto: A Chi Più Amiamo Meno Dire Sappiamo ~ § ~ ~ § ~ Hobby: Divertimento allo Stato Puro ~ § ~ ~ § ~ You Must Go Out ~ § ~ Messaggi: 8897	de nada ~§~ Sempre E Solo Lei ~§~ __________________ Meglio essere protagonisti della propria tragedia che spettatori della propria vita Si dovrebbe pensare più a far bene che a stare bene: e così si finirebbe anche a star meglio. Non preoccuparti solo di essere migliore dei tuoi contemporanei o dei tuoi predecessori.Cerca solo di essere migliore di te stesso

24-01-2006, 11:26	#2
matthew85 Senior Member Iscritto dal: Sep 2005 Città: Como Messaggi: 447	Qualcuno mi può aiutare?

30-01-2006, 10:33	#4
matthew85 Senior Member Iscritto dal: Sep 2005 Città: Como Messaggi: 447	Anche, ma come si può fare a farlo aprire direttamente senza che ogni volta lo vado ad aprire io?

30-01-2006, 19:32	#5
Minelab Member Iscritto dal: Mar 2003 Città: Provincia di Como Messaggi: 223	Per eseguire un'operazione all'apertura del file (se è questo quello che ti interessa) puoi inserire una routine in "This Workbook". L'esempio sottostante scrive "Ciao" nella cella A1 del Foglio1 quando si apre il file. Private Sub Workbook_Open() Sheets("Foglio1").Cells(1, 1) = "Ciao" End Sub

31-01-2006, 14:39	#8
matthew85 Senior Member Iscritto dal: Sep 2005 Città: Como Messaggi: 447	Grazie mille, terrò a mente. E non ti preoccupare se mi hai risposto in ritardo.

Strumenti
Mostra una versione stampabile Invia questa pagina per email