Excel VBA中无法将文本框内容写入指定单元格问题求助

你的代码失效的核心原因是错误地将Range对象直接传递给了Cells方法，Cells(r, c)需要的是数值类型的行号和列号，而非Range对象。另外注意控件名称的准确性，以下是修正方案：

修正后的代码 #

' 将ComboBox3内容写入Table表的H1单元格
Sheets("Table").Range("h1") = ComboBox3

' 提取J9、J10单元格的数值作为行号和列号
Dim r As Long, c As Long
r = Sheets("Data").Range("j9").Value
c = Sheets("Data").Range("j10").Value

' 将文本框内容写入指定单元格
Sheets("Table").Cells(r, c) = TextBoxtu.Value

额外注意事项 #

• 确保Data表的J9、J10单元格是纯数字格式，如果是文本型数字，需要用CLng()转换，比如：r = CLng(Sheets("Data").Range("j9").Value)
• 确认Table工作表存在，且行号r、列号c在工作表的有效范围内（比如行号不能超过1048576，列号不能超过16384）
• 检查文本框的实际名称是否和代码中的TextBoxtu完全一致（VBA对控件名称区分大小写）

内容的提问来源于stack exchange，提问作者Cozzy123