Заполните пользовательскую форму сохраненными данными - PullRequest
Новая
       11

Заполните пользовательскую форму сохраненными данными

0 голосов
/ 13 марта 2019

Пользователь заполняет форму пользователя, и я сохраняю содержимое в листе.

Я хочу после открытия листа заполнить форму сохраненными данными.

Я записываю данные с помощью 

For Each cCtl In begin.Controls
    If TypeOf cCtl Is MSForms.CheckBox Then
        Cells(y, 1) = cCtl.Name
        Cells(y, 2) = cCtl.Value
        y = y + 1
    End If

    If TypeOf cCtl Is MSForms.TextBox Then
        Cells(y, 1) = cCtl.Name
        Cells(y, 2) = cCtl.Value
        y = y + 1
    End If

Это работает и (некоторые из) результатов:

  • cbklant Agentschap Telecom,
  • лейблклант Омщривинг,
  • cbcalc Con van Doornik,
  • cbkans 50%

в ячейках от А1 до В4 и т. Д.

(cb = comboboxname)
(label = Labelcaption)

Как мне заполнить форму из этого Range, открыв файл?

1 Ответ

0 голосов
/ 13 марта 2019

Спасибо, Матье, вы направили меня в правильном направлении, и я пытаюсь сравнить, когда это правда, тогда я могу заполнить значение (я думаю); 

Private Sub tmp10_Click()
y = 1
Dim cCtl As Control
For Each cCtl In begin.Controls
    For x = 1 To 67
    If cCtl.Name = Cells(x, 1) Then Cells(x, 4) = "true"
    Next
y = y + 1
Next
End Sub

И так, я думаю, яможет справиться с остальным.

...