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
第四行变成黄色,请问是哪里出错了?
不是的,他这个程序,对应的事表格,在表格里输入,它会保存下来。而现在,这个宏运行不了了,我也学过一点编程,看上去没啥错误啊,难道是WPS不能兼容吗。
追答你换EXCEK试试
本回答被提问者采纳