Тема: Как заставить combobox запоминать последнее значение?
Нашел на этом форуме такой интересный вариант и он работает для 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("Combob oxLastChoice").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