CSDN论坛 > 其他开发语言 > Office开发/ VBA

当点击某个工作表题目时,EXCEL自动运行某个宏命令。谢 [问题点数:30分,结帖人qianger]

Bbs1
本版专家分:0
结帖率 100%
CSDN今日推荐
Bbs3
本版专家分:973
Bbs5
本版专家分:3268
Blank
微软MVP 2009年4月 荣获微软MVP称号
2010年4月 荣获微软MVP称号
2006年4月 荣获微软MVP称号
2005年4月 荣获微软MVP称号
2008年4月 荣获微软MVP称号
2007年4月 荣获微软MVP称号
2004年4月 荣获微软MVP称号
Blank
红花 2006年7月 其他数据库开发大版内专家分月排行榜第一
2006年6月 其他数据库开发大版内专家分月排行榜第一
2006年4月 其他数据库开发大版内专家分月排行榜第一
2006年2月 其他数据库开发大版内专家分月排行榜第一
2005年11月 其他数据库开发大版内专家分月排行榜第一
2005年10月 其他数据库开发大版内专家分月排行榜第一
2005年9月 其他数据库开发大版内专家分月排行榜第一
2005年4月 其他数据库开发大版内专家分月排行榜第一
2005年3月 其他数据库开发大版内专家分月排行榜第一
2005年2月 其他数据库开发大版内专家分月排行榜第一
2005年1月 其他数据库开发大版内专家分月排行榜第一
2004年12月 其他数据库开发大版内专家分月排行榜第一
2004年11月 其他数据库开发大版内专家分月排行榜第一
2004年9月 其他数据库开发大版内专家分月排行榜第一
2004年8月 其他数据库开发大版内专家分月排行榜第一
2004年7月 其他数据库开发大版内专家分月排行榜第一
2004年6月 其他数据库开发大版内专家分月排行榜第一
2004年5月 其他数据库开发大版内专家分月排行榜第一
2004年4月 其他数据库开发大版内专家分月排行榜第一
2004年3月 其他数据库开发大版内专家分月排行榜第一
2004年2月 其他数据库开发大版内专家分月排行榜第一
2004年1月 其他数据库开发大版内专家分月排行榜第一
2003年12月 其他数据库开发大版内专家分月排行榜第一
2003年11月 其他数据库开发大版内专家分月排行榜第一
2003年10月 其他数据库开发大版内专家分月排行榜第一
2003年9月 其他数据库开发大版内专家分月排行榜第一
2003年8月 其他数据库开发大版内专家分月排行榜第一
2003年6月 其他数据库开发大版内专家分月排行榜第一
2003年5月 其他数据库开发大版内专家分月排行榜第一
Blank
黄花 2006年5月 其他数据库开发大版内专家分月排行榜第二
2006年1月 其他数据库开发大版内专家分月排行榜第二
2005年8月 其他数据库开发大版内专家分月排行榜第二
2005年7月 其他数据库开发大版内专家分月排行榜第二
2005年6月 其他数据库开发大版内专家分月排行榜第二
2005年5月 其他数据库开发大版内专家分月排行榜第二
2004年10月 其他数据库开发大版内专家分月排行榜第二
2003年4月 其他数据库开发大版内专家分月排行榜第二
2003年3月 其他数据库开发大版内专家分月排行榜第二
2003年2月 其他数据库开发大版内专家分月排行榜第二
Blank
蓝花 2006年9月 其他数据库开发大版内专家分月排行榜第三
2006年3月 其他数据库开发大版内专家分月排行榜第三
2005年12月 其他数据库开发大版内专家分月排行榜第三
2003年7月 其他数据库开发大版内专家分月排行榜第三
匿名用户不能发表回复!
其他相关推荐
在 Excel 启动时运行宏
如果您希望每当启动 Microsoft Excel 时都自动执行某些操作,可以录制或编写一个每当打开工作簿时都将运行的宏。有两个办法可以做到这一点: 录制一个宏,然后用 Auto_Open 这一名称保存它。 将此宏编写为工作簿“打开”事件的 Microsoft Visual Basic® for Applications (VBA) 过程。 录制 Auto_Open 宏会受到诸多限制(见
VBA:针对一个工作簿中多个表,显示表名中含特定字符的表,其他表隐藏
Sub 判定隐藏() Dim i As Integer, x As Integer x = Worksheets.Count For i = 1 To x If Sheets(i).Name Like "*汇总*" Or Sheets(i).Name Like "*人工费用*" Then Sheets(i).Visible = -1 Else Sheets(i).
使用VBA读取指定Excel文件指定Sheet指定单元格的内容
打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。 在Modules文件夹下的csMain文件中,写下如下VB格式的代码:
SQL事务发布错误:当 IDENTITY_INSERT 设置为 ON 或某个复制用户向 NOT FOR...
当 IDENTITY_INSERT 设置为 ON 或某个复制用户向 NOT FORREPLICATION 标识列中插入内容时,必须为表 'test' 中的标识列指定显式值lxg:跟出发器有关如果不是发布,就1.set identity_insert test on--取消自增2.insert into test(ID,username) values(1003,'test'3.set identity_insert test off--恢复自增insert into test values('1010222
VBA Excel如何在工作表区域内查找某个值,发回这个值所在的行号、列号
用VBA代码编写,如何在工作表区域内查找某个值,发回这个值所在的行号、列号 spwangxu | 浏览 7128 次 推荐于2016-01-03 11:29:18 最佳答案 1 2 3 4 5 6 7 8 9 Sub 查找() For Each rng In R
Excel VBA实用代码1:判断工作表是否存在,文件是否存在[20110227]
<br />Private Function FileExists(fname) As Boolean<br />'当文件存在时返回true<br />    Dim x As String<br />    x = Dir(fname)<br />    If x <> "" Then FileExists = True _<br />        Else FileExists = False<br />End Function <br /> <br /> <br /><br />Private Fu
通过VBA宏合并Excel工作表
<br />工作中经常会用到的把几个Excel文件合并到一个,或者是把一个Excel文件里的所有Sheet合并到一个Sheet来进行统计。下面分别提供用vba宏来解决这两个问题的方法。<br />1、合并Excel文件<br />打开一个空Excel文件,Alt+F11,插入一个模块,开始写代码:<br /> Sub MergeWorkbooks() Dim FileSet Dim i As Integer On Error GoTo 0 Applicati
VBA的代码,在Excel启动时自动执行
 前言: 有时,我们想在程序启动时,就读入某些数据 1.建立一个Auto的 モジュール 2.在里面写如下代码 Private Sub Auto_Open() 'Demand Summaryの工数表示期間 (「list」シートの「D2」セル) Sheet2.Cells(2, 4) = 15 End Sub 注意,函数的前面,一定是 Privat
Excel怎么自动生成目录点击这个目录就可进入对应的工作表格
几天不研究学习Excel感觉心里总是空空的,所以今日在解答朋友如何快速定位到第一个工作表的快捷键的时候发现到了微软没有支持直接快捷键切换到第一个工作表,但是经过长时间的思索,我发明了长按Ctrl+Page的方法,受到大家的一致认可。我又灵机一动,excel能不能像word一样创建一个目录?一点目录就进入对应的工作表格呢?据说1000个会Excel的人中,只有不到3个人会这个功能,到目前位置全球会这
VC下删除Excel工作表
BOOL DeleteExcelSheet(CString sExcelFilePath, CString sSheetName) {    _Worksheet m_wsExcelSingle;  Worksheets m_wsExcels;  _Workbook m_wbExcelSingle;  Workbooks m_wbExcels;  _Application m_appE
关闭