EXCEL VBA问题,我创建了两个宏,现在想通过键盘向上向下箭头来分别启用这两个宏,该怎样编程,
作者&投稿:祝辉 (若有异议请与网页底部的电邮联系)
在表格的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
可以尝试使用其他的热键。
应该没有这样玩的吧。
展姚考克: 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代码