1 Тема от Otradnoe_4D

  • Otradnoe_4D
  • сержант
  • Неактивен
  • Зарегистрирован: 18.11.2017
  • Сообщений: 10

Тема: Как заставить 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

2 Ответ от Fck_This

  • Как заставить combobox запоминать последнее значение?
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Как заставить combobox запоминать последнее значение?

Добавьте условие на имя других комбо боксов.
Я так понимаю один из них называется

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3 Ответ от Fck_This

  • Как заставить combobox запоминать последнее значение?
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Как заставить combobox запоминать последнее значение?

Добавьте условие на имя других комбо боксов.
Я так понимаю один из них называется "ComboBox1". Нужно посмотреть имя других боксов и проделать с ними то же самое, изменяя имя.

А ещё погуглил и вот тут предложили решение.
внешняя ссылка

Но не уверен, что будет "Combobox1LastChoice" "Combobox2LastChoice" "Combobox3LastChoice" Скорее всего они эти куски будут выглядеть как  "ComboboxLastChoice"

Как-то так:
Этот кусок оставляем в той же процедуре

For Each var In ThisDocument.Variables
  Call ComboBoxCheck(var)    
Next var

Добавляем подпрограмму

Sub ComboBoxCheck(ByRef cBox as ComboBox)
If cBox.Name = "ComboboxLastChoice" Then Exit Sub
  If cBox Is Nothing Then
    ThisDocument.Variables.Add "ComboboxLastChoice", cBox.ListIndex
  Else
    var.Value = cBox.ListIndex
  End If
End Sub

Код не тестировал. Но примерно так он должен выглядеть

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871