assegnazione contenuto a variabili

assegnazione contenuto a variabili semplici e indicizzate

dato1 = Cells(1, 1)
dato2 = TextBox1.Text
dato3 = Label1.Caption
x(1) = Cells(18, 1)
x(2) = TextBox2
x(3) = Label2.Caption

vedi formato4.xls

Private Sub CommandButton1_Click()
Rem assegnazione valore a variabile
Dim x(3) As Integer
Label1.Caption = "da label"
Label2.Caption = 100
dato1 = Cells(1, 1)
dato2 = TextBox1.Text
dato3 = Label1.Caption
x(1) = Cells(18, 1)
x(2) = TextBox2
x(3) = Label2.Caption
ListBox1.AddItem (dato1)
ListBox1.AddItem (dato2)
ListBox1.AddItem (dato3)
ListBox1.AddItem (x(1))
ListBox1.AddItem (x(2))
ListBox1.AddItem (x(3))
End Sub

Private Sub CommandButton2_Click()
Rem cancella per altra prova
TextBox1 = ""
Label1.Caption = ""
ListBox1.Clear
Cells(1, 1) = ""
TextBox2 = ""
Label2.Caption = ""
Cells(18, 1) = ""
End Sub

indice