[VBA] UserForm che ripete 10 volte la data

[pappa]

Buongiorno a tutti, mi sono perso suuna cosa banale: vorri creare una UserForm in excel che, semplicemente ripeta 10 volte la data.
Ci ho prvato ma non visualizzo nulla.

Mi potreste aiutare?

Grazie a tutti

Sub UserForm_Click()
oggi = Date

For a = 2 To 10
Label1.Caption = oggi
a = a + 1
Next

End Sub



Private Sub ok_Click()
Unload Me

End Sub

[gibra]

Scusa, ma quel codice cosa dovrebbe fare?
Perché hai scritto a+a?

In teoria, il codice funziona...

[pappa]

Grazie Gibra,
ho scritto
a=a+1

spiego meglio:
il problema è che mi sovrappone la data alla prima
io vorrei scrivere:

13/07/2019
13/07/2019
13/07/2019
13/07/2019
13/07/2019
13/07/2019
13/07/2019
13/07/2019
13/07/2019
13/07/2019
13/07/2019


ma come risultato ho solo:

13/07/2019

perchè lui sovrascrive

[gibra]

Ovvio, se scrivi ad ogni ciclo:

Label1.Caption = oggi

cosa ti aspetti che accada?


Inoltre, scrivere :

a = a +1

non serve a niente, dato che
1) a viene incrementato automaticamente dal ciclo For/Next
2) a non viene usato da nessuna parte!

Era questo che intendevo nel mio precedente post.

N.B. Questo sono nozioni 'basilari' della programmazione.
Quake libro stai studiando?
Ti consiglio di ripassarti quelle istruzioni perché il tuo codice non ha alcun senso, è tutto sbagliato.

Ciao

[oregon]

Diciamo che non hai idea di come scrivere un ciclo né dell'utilizzo di una label (anche se vedo che stai nel forum dal 2012...)... quindi per ora prova a mettere sul form le label che ti servono e scrivi

Label1.Caption = oggi
Label2.Caption = oggi
Label3.Caption = oggi
...

Poi se ti va prendi un libro e studia il vba con tempo e pazienza...

[patel]

Inoltre non è chiaro:
1) hai già 10 label e le vuoi popolare ?
2) vuoi creare da codice 10 label ?
3) hai una sola label e ci vuoi scrivere 10 righe ?

[pappa]

Grazie Patel, è la terza che hai scritto, pensavo fosse chiaro, scusa

comunque ho risolto

Sub UserForm_Click()
oggi = Date

For a = 2 To 10
Label1.Caption = oggi & Chr(10) & Chr(160)
a = a + 1
Next

End Sub



Private Sub ok_Click()
Unload Me

End Sub

PS Gibra, perchè mi insulti? Io sono chimico, non programmatore, mi avvicino al mondo dell'informatica per necessità e passione e soprattutto... passione per la conoscenza. Se mi dai consigli, li accetto molto volentieri!

[optime]

non capisco come possa funzionare

dovrebbe essere

miaLabel=""

For a = 1 To 10
   miaLabel = miaLabel & date() & Chr(13) & Chr(10)   
Next


Label1.Caption = miaLabel

[patel]

@pappa
non ho notato alcun insulto, piuttosto vedo che insisti con a=a+1 che è sbagliato dato che il ciclo FOR già incrementa a da 2 a 10. Penso anch'io che dovresti studiare almeno le basi.

[oregon]

Anch'io non vedo alcun insulto. E non vedo come tu possa avere risolto col codice che mostri.

Anzi vedo che non hai affatto spiegato bene quello che volevi fare all'inizio e che non hai colto i consigli che ti sono stati dati (rendendo inutile il tempo.impiegato a risponderti).

Non importa che tu non sia programmatore. Se vuoi scrivere codice devi studiare e accettare consigli come se io volessi fare il chimico senza saperne nulla.