☰

VBA 命令按钮 - 未找到方法或数据成员

tag-icon • tag-icon microsoft-excel vba
VBA 命令按钮 - 未找到方法或数据成员

在将命令按钮添加到用户表单时遇到了一些问题。基本上，我希望按钮将数据插入 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

答案1

复选框没有Text属性。请使用Value属性代替，例如：

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

请注意，这将返回“True”或“False”。如果您需要其他任何内容，则需要进行检查，例如：

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

相关内容