• Word
• Access
• Excel
• VBA
• Office

Ci sono molte situazioni in cui può essere utile un fom con una casella combinata che mostra un elenco di anni.

Immaginiamo che la nostra casella combinata debba mostrare l'elenco degli anni dal 1910 fino all'anno in corso. Ovviamente, l'anno in corso cambia ogni anno e, se popolassimo in modo statico la casella combinata, ogni nuovo anno dovremmo aggiungerle una voce per l'anno in corso.

Usando Visual Basic possiamo risolvere questo piccolo problema.

Immaginiamo di avere un progetto con un form chiamato frmPrincipale e su di esso la combo box cboAnno. Vogliamo fare in modo che, al caricamento di form, la combo box sia popolata con tutti gli anni dal 1910 all'anno in corso. L'anno in corso sarà sempre aggiornato.

Ecco il codice necessario

Private Sub UserForm_Initialize()

 'popolo cboAnno con gli anni dal 1910 ad oggi

 Dim anno As Integer
 anno = Year(Date)

 For y = 1910 To anno
   cboAnno.AddItem y

 Next y

End Sub