[源码全公开]让你在论坛发布彩色VBA代码

hi_fi · 发表于 2009-11-26 03:20

不过还是感谢楼主啊

lgcmeli · 发表于 2009-11-26 09:06

   '撰写:李高成
   '网址:http://Club.ExcelHome.net
   '日期:2009.11.26 9:04:40
Public WithEvents EvtHandler As VBIDE.CommandBarEvents
   '撰写:李高成
   '网址:http://Club.ExcelHome.net
   '日期:2009.11.26 9:04:41
Private Sub EvtHandler_Click(ByVal CommandBarControl As Object , handled As Boolean , CancelDefault As Boolean )
On Error Resume Next
Application.Run CommandBarControl.OnAction
handled = True
CancelDefault = True
End Sub

xiangzi728 · 发表于 2009-12-1 09:28

测试成功！
谢谢老朽！

xj9696 · 发表于 2009-12-9 22:12

Option Explicit
   '撰写:xj
   '网址:http://Club.ExcelHome.net
   '日期:2009-12-9 22:11:40
Sub a()
Dim i As Integer
End Sub

zhou1234 · 发表于 2009-12-17 10:43

强大，先收藏着，日后用

runshui · 发表于 2010-1-17 19:02

学习！

一指禅 · 发表于 2010-4-30 21:25

谢谢！测试成功！！！

请教，如何复制？？

[ 本帖最后由一指禅于 2010-4-30 21:44 编辑 ]

zldccmx · 发表于 2010-5-1 17:29

原帖由 一指禅 于 2010-4-30 21:25 发表
谢谢！测试成功！！！

请教，如何复制？？

不不不不不不.......会吧？

在浏览器窗口，用鼠标选中你所需要的部分，然后按键盘　CTRL＋C　就完成复制了

fsydw · 发表于 2010-5-1 23:55

大师！太高了！！珍藏了！！！谢谢了！！！！

wbz2cdma · 发表于 2010-5-3 01:04

Public WithEvents EvtHandler As VBIDE.CommandBarEvents
Private Sub EvtHandler_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
On Error Resume Next
Application.Run CommandBarControl.OnAction
handled = True
CancelDefault = True
End Sub

		自动登录	找回密码
密码			免费注册

[分享] [源码全公开]让你在论坛发布彩色VBA代码

TEST