Кнопка команды VBA - метод или элемент данных не найден

Question

возникли проблемы с добавлением кнопки s в форму пользователя. По сути, я хочу, чтобы кнопка вставляла данные в новую строку на sheet1 с полями, установленными, как показано ниже. Однако при тестировании кнопки появляется сообщение об ошибке «Метод или элемент данных не найден».

Не очень хорошо с VBA, пробовал читать онлайн, но я все еще не понимаю, что делать. Пожалуйста помоги.

Private Sub CommandButton1_Click()

Dim LastRow As Long, ws As Worksheet

Set ws = Sheets("Sheet1")

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1

ws.Range("A" & LastRow).Value = ComboBox1.Text
ws.Range("C" & LastRow).Value = TextBox1.Text
ws.Range("D" & LastRow).Value = ComboBox2.Text
ws.Range("F" & LastRow).Value = CheckBox2.Text
ws.Range("E" & LastRow).Value = CheckBox1.Text
ws.Range("H" & LastRow).Value = ListBox1.Text
ws.Range("G" & LastRow).Value = ListBox2.Text
ws.Range("I" & LastRow).Value = TextBox2.Text

End Sub

Answer 1

Флажки не имеют свойства Text . Вместо этого используйте свойство Value , например:

ws.Range("F" & LastRow).Value = CheckBox2.Value

Обратите внимание, что это возвращает либо "True", либо "False". Если вам требуется что-то еще, вам нужно сделать проверку, например:

ws.Range("F" & LastRow).Value = IIf(CheckBox2.Value,"Yes","No")