Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2470|回复: 3

[已解决]窗体中的文本框不支持组合键输入??

[复制链接]
发表于 2013-6-17 09:29 | 显示全部楼层 |阅读模式
如题,想在文本框中设置快捷键(组合的)输入,但在文本框好像没有响应,但在工作表中则可以,是不是窗体不能响应?下面代码在工作表中正常,但在文本框中无反应??是否应用SENDKEY才行?高手路过看一下~~

Sub xx()
Application.OnKey "^{f2}", "aa"
End Sub


Public a1 As String
Sub aa()
a1 = "[CTRL+F2]"
Sheet1.Range("A1") = a1
End Sub

最佳答案
2013-6-17 10:00
  1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2.     If KeyCode = 49 And Shift = 2 Then
  3.         MsgBox "CTRL+1"
  4.     End If
  5. End Sub
复制代码
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-6-17 09:56 | 显示全部楼层
你可以利用文本框的KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
回复

使用道具 举报

发表于 2013-6-17 09:56 | 显示全部楼层
KeyDown 和 KeyUp 事件的语法包含以下成分:

成分 说明
object 必需。一个有效的对象名。
KeyCode 必需。整数,代表被按下或释放的键的键代码。
Shift 必需。Shift、Ctrl 和 Alt 的状态。
回复

使用道具 举报

发表于 2013-6-17 10:00 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2.     If KeyCode = 49 And Shift = 2 Then
  3.         MsgBox "CTRL+1"
  4.     End If
  5. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:24 , Processed in 0.409216 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表