Доброе. Нашел на просторах интернета такой вариант.
Подскажите как сделать так что бы данное действие работала и с ComboBox1, ComboBox2, ComboBox3 и т.д.
Заранее спасибо)
Подскажите как сделать так что бы данное действие работала и с ComboBox1, ComboBox2, ComboBox3 и т.д.
Заранее спасибо)
Код |
---|
Private Sub UserForm_Initialize() ComboBox1.AddItem "Иванов" ComboBox1.AddItem "Петров" ComboBox1.AddItem "Сидоров" Dim i As Integer On Error Resume Next i = CInt(ThisDocument.Variables("ComboboxLastChoice").Value) If Err.Number <> 0 Then Err.Clear ComboBox1.ListIndex = i End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim var As Variable For Each var In ThisDocument.Variables If var.Name = "ComboboxLastChoice" Then Exit For End If Next If var Is Nothing Then ThisDocument.Variables.Add "ComboboxLastChoice", ComboBox1.ListIndex Else var.Value = ComboBox1.ListIndex End If End Sub |