我在VBA上还很陌生,但是我无法为自己创建的数据用户窗体获取数值输出。即使我将答案限制在数字列表中,数据也将以文本形式输入到组合中。我在this和其他表单上查看了许多不同的示例来纠正此问题,但是似乎没有任何效果(或者我没有正确使用它)。这是我的代码:
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
非常感谢您的帮助!