EXCEL宏编辑命令(2)

来源：网络收集时间：2019-01-26 下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:或QQ：处理（尽可能给您提供完整文档），感谢您的支持与谅解。

212、定义指定单元内容为页眉/页脚

213、提示并全部清除当前选择区域 214、全部清除当前选择区域 215、清除指定区域数值

216、对指定工作表执行取消隐藏》打印》隐藏工作表

217、打开文件时执行指定宏(工作簿代码) 218、关闭文件时执行指定宏(工作簿代码) 219、弹出提示A1单元内容 220、延时15秒执行重排窗口宏 221、撤消工作表保护并取消密码 222、重算指定表

223、将第5行移到窗口的最上面

224、对第一张工作表的指定区域进行排序 225、显示指定工作表的打印预览

226、用单元格A1的内容作为文件名另存当前工作簿 227、[禁用/启用]保存和另存的代码

228、在A和B列返回当前选区的名称和公式 229、朗读朗读A列,按ESC键中止 230、朗读固定语句，请按ESC键终止

231、在M和N列的14行以下选择单元时显示调用日历控件（工作表代码） 232、添加自定义序列

233、弹出打印对话框 234、返回总页码

235、合并各工作表内容

236、合并指定目录中所有文件中相同格式工作表的数据

237、隐藏指定工作表的指定列 238、把a列不重复值取到e列

239、当前选区的行列数

240、单元格录入1位字符就跳转(工作表代码) 241、当指定日期（每月10日）打开文件执行宏 242、提示并清空单元区域 243、返回光标所在行号

244、按照当前行A列的图片名称插入图片到H列 245、当前行下插入1行 246、取消指定行或列的隐藏 247、复制单元格所在行 248、复制单元格所在列 249、新建一个工作表 250、新建一个工作簿

251、选择多表为工作组

252、在当前工作组各表中分别执行指定宏 253、复制当前工作簿的报表到临时工作簿 254、删除指定文件

255、合并A1至C1的内容写到D15单元的批注中

256、自动重算 257、手动重算

1、打开全部隐藏工作表

Sub 打开全部隐藏工作表() Dim i As Integer

For i = 1 To Sheets.Count Sheets(i).Visible = True Next i End Sub

2、循环宏

Sub 循环()

AAA = Range(\

Dim i As Long Dim times As Long

times = AAA

'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) For i = 1 To times Call 过滤一行

If Range(\完成标志\完成\

Exit For

'如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出

'If Sheets(\传送参数\完成\ '如果某列出现\完成\内容则退出循环 Next i End Sub

3、录制宏时调用“停止录制”工具栏

Sub 录制宏时调用停止录制工具栏()

Application.CommandBars(\isible = True End Sub

4、高级筛选5列不重复数据至指定表

Sub 高级筛选5列不重复数据至Sheet2()

Sheets(\清除Sheet2的A:D列 Range(\CopyToRange:=Sheet2.Range( _ \

Sheet2.Columns(\Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin End Sub

5、双击单元执行宏(工作表代码)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range(\关闭\ Exit Sub

Select Case Target.Address Case \ Call 宏1 Cancel = True Case \ Call 宏2 Cancel = True Case \ Call 宏3 Cancel = True Case \ Call 宏4 Cancel = True End Select End Sub

6、双击指定区域单元执行宏(工作表代码)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range(\关闭\

If Not Application.Intersect(Target, Range(\\Is Nothing Then Call 打开隐藏表

Action:=xlFilterCopy,

End Sub

7、进入单元执行宏(工作表代码)

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '以单元格进入代替按钮对象调用宏

If Range(\关闭\ Select Case Target.Address

Case \单元地址(Target.Address),或命名单元名字(Target.Name) Call 宏1 Case \ Call 宏2 Case \ Call 宏3 End Select

End Sub

8、进入指定区域单元执行宏(工作表代码)

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range(\关闭\

If Not Application.Intersect(Target, Range(\打开隐藏表 End Sub

9、在多个宏中依次循环执行一个（控件按钮代码）

Private Sub CommandButton1_Click() Static RunMacro As Integer Select Case RunMacro Case 0 宏1

RunMacro = 1 Case 1 宏2

RunMacro = 2 Case 2 宏3

RunMacro = 0 End Select End Sub

10、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）

Private Sub CommandButton1_Click() With CommandButton1

If .Caption = \保护工作表\ Call 保护工作表

.Caption = \取消工作表保护\ Exit Sub

End If

If .Caption = \取消工作表保护\ Call 取消工作表保护 .Caption = \保护工作表\ Exit Sub End If End With End Sub

11、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）

Option Explicit

Private Sub CommandButton1_Click() With CommandButton1

If .Caption = \宏1\ Call 宏1 .Caption = \宏2\ Exit Sub End If

If .Caption = \宏2\ Call 宏2 .Caption = \宏3\ Exit Sub

End If

If .Caption = \宏3\ Call 宏3 .Caption = \宏1\ Exit Sub End If End With End Sub

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库EXCEL宏编辑命令(2)在线全文阅读。

EXCEL宏编辑命令(2).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档

本文链接：https://www.77cn.com.cn/wenku/zonghe/446645.html（转载请注明文章来源）

上一篇：2017-2022年中国循环流化床锅炉行业市场发展现状及十三五投资决
下一篇：角式柱塞阀-思氟阀门