excel表格中, 宏的问题,请高手解决

Private Sub m_Txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim a As MSForms.ReturnInteger
If KeyCode = 13 Then
Sheet2.Cells(m_Row, m_Col) = m_Txt.Text
m_Txt.SetFocus
FrmAccount.ttp.Text = m_Txt.Text
End If
End Sub
第四行变成黄色,请问是哪里出错了?

第1个回答  2014-07-11
这个程序好像不能独立运行吧。里面很多变量没赋值。比如
m_ROw,m_Col追问

不是的,他这个程序,对应的事表格,在表格里输入,它会保存下来。而现在,这个宏运行不了了,我也学过一点编程,看上去没啥错误啊,难道是WPS不能兼容吗。

追答

你换EXCEK试试

本回答被提问者采纳
第2个回答  2014-07-11
第四行变成黄色

同时应该还有错误提示,提示是什么追问

然后点击调试,就出现问题所示的编程

追答

检查 m_Txt.Text 的值 及 m_Row, m_Col的值

如果m_Row, m_Col不是模块级变量,此前没有值,必然出错

m_Row, m_Col的声明及赋值语句在何处

追问

他们的值自行在下图中的空格内输入,上图为完整类模块编程

追答

那运行时出错停止到那行后,
m_Row, m_Col的值都是多少

追问

值都是自己随便输入的,文字什么的都可以,问题是只到2014年开始就不行了,只要输入保存就会出现错误。

追答

实在不行,可以远程给你跟踪一下

相似回答