EXCEL VBA问题，我创建了两个宏，现在想通过键盘向上向下箭头来分别启用这两个宏，该怎样编程，

Excel 怎样实现用键盘按键启动宏~

在表格的OPEN事件中加入

Private Sub Workbook_Open()

Application.OnKey "{UP}", "UP"

End Sub
复制代码

在模块中加入

Sub UP()

On Error Resume Next

Dim Rng As Range, x%

If Intersect(ActiveCell, Sheet1.Range("G3:G7")) Is Nothing Then Exit Sub

Set Rng = Sheet3.Range("J2:J7")

x = Right(ActiveCell.Address, 1) - 2

Rng(x) = Rng(x) + 1

End Sub

你的东西都没见弄出来，怎么答啊 还叫人这主动加你QQ？？

可通过application.onkey代码来实现目的：

复制如下代码到模块中，而后运行AB，再分别点击向上或向下箭头。

Sub AB()
Application.OnKey"{UP}", "A"
Application.OnKey"{DOWN}", "B"
End Sub
Sub A()
MsgBox 1
End Sub
Sub B()
MsgBox 2
End Sub

可以尝试使用其他的热键。

应该没有这样玩的吧。

---

石林彝族自治县17368604029： 我在excel VBA中创建了两个数字证书, - ？
展姚考克： 1、选择证书→查看证书→详细信息→复制到文件,把证书导出,然后到其它电脑双击安装就可以分发到其它电脑使用.2、至于删除证书,找到这个文件夹,把里面的文件删除试试看.C:\Documents and Settings\Administrator\Application Data\Microsoft\SystemCertificates\My\Certificates3、至于证书有效期,那和信任等级有关.

石林彝族自治县17368604029： EXCEL VBA问题,我创建了两个宏,现在想通过键盘向上向下箭头来分别启用这两个宏,该怎样编程, - ？
展姚考克： 可通过application.onkey代码来实现目的:复制如下代码到模块中,而后运行AB,再分别点击向上或向下箭头.Sub AB() Application.OnKey＂{UP}＂, ＂A＂ Application.OnKey＂{DOWN}＂, ＂B＂ End Sub Sub A() MsgBox 1 End Sub Sub B() MsgBox 2 End Sub

石林彝族自治县17368604029： Excel中不小心创建了很多VBA,怎么去掉已创建的数字签名?先谢过了! - ？
展姚考克： 兄弟我和你一样,悲剧了很久呢,不过已经解决了.办法:重装office2007,但是注意:在重装的时候一定要选择性安装,不要安装数字签名.

石林彝族自治县17368604029： 高手解决下 excel 里的 vba 问题 是 关于一张excel里的两表比较生成第三张表 - ？
展姚考克： 'alt+F11打开VBE, 把此程序拷贝到你excel中,做个按钮连接到这个宏就可以调用了.有问题在线问.或发邮件到BD.excelclub@gmail.com'如果是结存列而不是K列比较那么程序就要修改如下,Public Sub Compare() Application.DisplayAlerts ...

石林彝族自治县17368604029： 用vba新建的excel文档如何重命名两个sheet名 - ？
展姚考克： sheets(1).name = ＂A＂ sheets(2).name = ＂B

石林彝族自治县17368604029： excel vba 无法执行 - ？
展姚考克： 这个是因为VBA事件触发条件的问题 解决办法很简单,只要另存为,关闭,打开另存的文档OK 如果还是解决不了 就删除代码中 Application.EnableEvents = True Application.EnableEvents = False 这两句,防止触发循环事件,到底死循环代码,应该就Ok了!

石林彝族自治县17368604029： 我要解决我的两个EXCEL中数据筛选问题,如何使用VBA? - ？
展姚考克： 在Excel VBA中筛选数据,首先要有一个(或几个)循环For…… 其次,用If……Then……Else或者Select Case 语句来进行筛选(如果数据比较有规律或简单,数据量又比较大,最好用Select Case 语句,效率高点.VBA的速度实在不敢恭维).再次就是结果输出了(此处略去N个字).

石林彝族自治县17368604029： 同时打开两个Excel工作簿,都有VBA代码,部分功能重复,两个工作簿的工作表重复的,但两个工作簿名称不同 - ？
展姚考克： 问题描述太简单,应该是引用不对,请贴完整代码或把表格上传才能帮你修改

石林彝族自治县17368604029： vb问题 - 怎么把两个含有VBA的excel合并成一个 - ？
展姚考克： 因为excel中的save和saveas方法都是保存工作簿的,所以因为你的工作簿中有两个sheet,所以生成的工作簿同样有两个sheet.处理的方法是改VBA,在保存时,先将当前活动的sheet复制到一个只有一个sheet的新工作簿中,再保存这个新工作簿就达到你的目的了.具体怎么改要看你的代码,但大致如下:将Save或SaveAs的那一句语句改成下面两句 ActiveSheet.Copy ActiveWorkbook.SaveAs '如果需要其它参数可以参照原句的加上

石林彝族自治县17368604029： 我Excel用vba做了个高亮显示,但是还有二个问题,一合并单元格选中时会出错,二需要选中的单元 - ？
展姚考克： 一种方法:取消合并单元格 二种方法:修改vba代码