Я довольно новичок в VBA, и у меня возникают проблемы с получением числовых выходных данных для пользовательской формы данных, которую я создал. Данные вводятся в комбо, выходя в виде текста, хотя я ограничил ответы числовым списком. Я посмотрел на множество различных примеров этой и других форм, чтобы исправить это, но, похоже, ничего не работает (или я не использую это должным образом). Вот мой код:
Private Sub CommandButton1_Click()
MsgBox "Submitted!", 0, "Message"
Unload ProjectCheckIn
Dim TargetRow As Integer
TargetRow = Sheets("Backend").Range("B3").Value + 1
Sheets("Data").Range("Name").Offset(TargetRow, 0).Value = ComboBox1
Sheets("Data").Range("Name").Offset(TargetRow, 1).Value = ComboBox22
Sheets("Data").Range("Name").Offset(TargetRow, 2).Value = TextBox3
Sheets("Data").Range("Name").Offset(TargetRow, 3).Value = ComboBox2
Sheets("Data").Range("Name").Offset(TargetRow, 4).Value = ComboBox7
Sheets("Data").Range("Name").Offset(TargetRow, 5).Value = ComboBox12
Sheets("Data").Range("Name").Offset(TargetRow, 6).Value = ComboBox17
Sheets("Data").Range("Name").Offset(TargetRow, 7).Value = TextBox1
Sheets("Data").Range("Name").Offset(TargetRow, 8).Value = TextBox2
End Sub
Private Sub CommandButton2_Click()
Unload ProjectCheckIn
End Sub
Любая помощь очень ценится!