descrizione sintassi elementare per usare visual basiccon foglio excel:input , output dati per descrizione, immagini, attivazione file.xls e codice, vedi linkhttp://digilander.libero.it/francescovise/formato/formato.htmhttp://digilander.libero.it/francescovise/formato/formato1.htmhttp://digilander.libero.it/francescovise/formato/formato1.xlshttp://digilander.libero.it/francescovise/formato/formato1a.GIFesempio codicePrivate Sub CommandButton1_Click() rem formato1 Rem cells(riga,colonna) Rem sintassi per input output 'scrivere dato in cella A1 (1,1)e stampare in B1 (1,2) intero1 = Cells(1, 1) Cells(1, 2) = intero1 'scrivere dato in textbox1 e stampare in textbox2 intero2 = TextBox1.Text TextBox2 = intero2 'scrivere dato in label1 e stampare in label2 intero3 = Label1.Caption Label2.Caption = intero3 'inserire dati in listbox1 ListBox1.AddItem ("primo dato") ListBox1.AddItem ("secondo dato") End Sub Private Sub CommandButton2_Click() 'cancellare celle ,label, textbox Label1.Caption = "" Label2.Caption = "" TextBox1 = "" TextBox2 = "" Cells(1, 1) = "" Cells(1, 2) = "" listbox1.clear End Sub Private Sub CommandButton3_Click() 'visualizzare messaggio con MsgBox MsgBox ("testo da stampare") End Sub Private Sub Label1_Click() Label1.Caption = "50" End Sub
descrizione elementare sintassi per vba su excel
descrizione sintassi elementare per usare visual basiccon foglio excel:input , output dati per descrizione, immagini, attivazione file.xls e codice, vedi linkhttp://digilander.libero.it/francescovise/formato/formato.htmhttp://digilander.libero.it/francescovise/formato/formato1.htmhttp://digilander.libero.it/francescovise/formato/formato1.xlshttp://digilander.libero.it/francescovise/formato/formato1a.GIFesempio codicePrivate Sub CommandButton1_Click() rem formato1 Rem cells(riga,colonna) Rem sintassi per input output 'scrivere dato in cella A1 (1,1)e stampare in B1 (1,2) intero1 = Cells(1, 1) Cells(1, 2) = intero1 'scrivere dato in textbox1 e stampare in textbox2 intero2 = TextBox1.Text TextBox2 = intero2 'scrivere dato in label1 e stampare in label2 intero3 = Label1.Caption Label2.Caption = intero3 'inserire dati in listbox1 ListBox1.AddItem ("primo dato") ListBox1.AddItem ("secondo dato") End Sub Private Sub CommandButton2_Click() 'cancellare celle ,label, textbox Label1.Caption = "" Label2.Caption = "" TextBox1 = "" TextBox2 = "" Cells(1, 1) = "" Cells(1, 2) = "" listbox1.clear End Sub Private Sub CommandButton3_Click() 'visualizzare messaggio con MsgBox MsgBox ("testo da stampare") End Sub Private Sub Label1_Click() Label1.Caption = "50" End Sub