
Private sub visualizza() Dim numero1 As Integer Dim numero2 As integer Dim numero3 As integer Numero1 = 15 Numero2 = 5 Numero3 = sottrazione (numero1,numero2) MsgBox "Il risultato della differenzaè: "& numero3, vbInformation, "differenza" |
Private Sub visualizza() Dim numero1 As Integer Dim numero2 As Integer Dim numero3 As Integer numero1 = 15 numero2 = 5 numero3 = numero1 - numero2 MsgBox "Il risultato della differenza è: " & numero3, vbInformation, "differenza" End Sub |
Il codice che è: Private Combobox1_Change() TexTBox1.Text = Combobox1. SelectedItem End sub |
Sub ComboBox1_Change() TextBox1.Text = ComboBox1.Text End Sub |
Sub UserForm_Initialize() ComboBox1.AddItem "A" End Sub Sub ComboBox1_Change() TextBox1.Text = ComboBox1.Text End Sub |
