Введенные данные отображаются в текстовых полях и в раскрывающемся списке Excel VBA

Описание:    • 1Символ команды «Режим конструктора» на па...  







''''''19'19'19'19'19'19'19'19
On Error Resume Next
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox2.Value = ""
Dim ††† As Integer
††† = ComboBox1.ListIndex + 2
TextBox1.Value = AAAA.Cells(†††, 2).Value
TextBox2.Value = Format(CDbl(AAAA.Cells(†††, 3).Value), "#,##0.00")
TextBox3.Value = Format(CDate(AAAA.Cells(†††, 4).Value), "dd.mm.yyyy")
ComboBox2.Value = Format(CDate(AAAA.Cells(†††, 5).Value), "hh:mm:ss")
If AAAA.Cells(†††, 3).Value = "" Then
TextBox2.Value = ""
End If
If AAAA.Cells(†††, 4).Value = "" Then
TextBox3.Value = ""
End If
If AAAA.Cells(†††, 5).Value = "" Then
ComboBox2.Value = ""
End If
ListBox1.ListIndex = ListBox1.ListCount - 1
If ComboBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
Else:
ListBox1.ListIndex = ComboBox1.ListIndex
End If
Exit Sub
''''''19'19'19'19'19'19'19'19




Введенные данные отображаются в текстовых полях и в раскрывающемся списке. Excel VBA.

В редакторе VBA дважды щелкните ComboBox1 левой кнопкой мыши.

В правом верхнем углу выберите процедуру «Change».

Введите код из описания видео в процедуру «Change».

Откройте рабочий лист, а затем форму. Введенные данные отображаются в текстовых полях и в раскрывающемся списке.