excle的vba中,如何做文本框键盘响应事件,使空格=空格+回车,回车=回车+回车
PrivateSubTextBox1_KeyDownIfKeyCode=13Thenmsgbox"回答完毕!”EndSub目前的代码,要先按空格上屏汉字,再按回车,才能出...
Private Sub TextBox1_KeyDown
If KeyCode = 13 Then msgbox "回答完毕!”
End Sub
目前的代码,要先按空格上屏汉字,再按回车,才能出 msgbox。
或者先按回车上屏英文,再按回车,才能出 msgbox。
我的目的是想,中文时,直接空格,就能msgbox,英文时,直接回车,就能msgbox。
也就是 空格=空格+回车,回车=回车+回车
该怎么实现? 展开
If KeyCode = 13 Then msgbox "回答完毕!”
End Sub
目前的代码,要先按空格上屏汉字,再按回车,才能出 msgbox。
或者先按回车上屏英文,再按回车,才能出 msgbox。
我的目的是想,中文时,直接空格,就能msgbox,英文时,直接回车,就能msgbox。
也就是 空格=空格+回车,回车=回车+回车
该怎么实现? 展开
1个回答
展开全部
Private Sub TextBox1_KeyDown
If KeyCode = 13 Then
'如果回车
'判断textbox的最后一个字符是不是英文,如果是则响应
elseif keycode=32 then
'如果空格
'判断textbox的最后一个字符是不是中文,如果是则响应
end if
End Sub
判断代码自己写
If KeyCode = 13 Then
'如果回车
'判断textbox的最后一个字符是不是英文,如果是则响应
elseif keycode=32 then
'如果空格
'判断textbox的最后一个字符是不是中文,如果是则响应
end if
End Sub
判断代码自己写
追问
好像是个思路,如果能写出代码来最好了。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询