Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then '判断按下的键是否为回车
ActiveCell = TextBox1.Value '给活动单元格赋值
ActiveCell.Select '选中活动单元格
End If
End Sub
PS:不同版本的excel可能略有区别,自己对照帮助做相应修改.
mouselevel事件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024