宏文件集
▲打开全部隐藏工作表返回
Sub 打开全部隐藏工作表()
Dim i As Integer
For i = 1 To Sheets.Count
施工环保措施计划
Sheets(i).Visible = True
Next i
End Sub
▲循环宏返回
Sub 循环()
AAA = Range("C2")
Dim i As Long
Dim times As Long
times = AAA
'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)
For i = 1 To times
Call 过滤一行
If Range("完成标志") = "完成" Then Exit For '如果名为'完成标志'的命名单元的值等于'完成'，则退出循环，如果一开始就等于'完成'，则 'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For '如果某列出现"完成"内容则退出循环
Next i
End Sub
▲录制宏时调用“停止录制”工具栏返回
Sub 录制宏时调用停止录制工具栏()
Application.CommandBars("Stop Recording").Visible = True
End Sub
▲高级筛选5列不重复数据至指定表返回
Sub 高级筛选5列不重复数据至Sheet2()
Sheets("Sheet2").Range("A1:E65536") = "" '清除Sheet2的A:D列
Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _
"A1"), Unique:=True
Sheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCa:=Fal, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End Sub
▲双击单元执行宏(工作表代码)返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
吴启南If Range("$A$1") = "关闭" Then Exit Sub
Select Ca Target.Address
Ca "$A$4"
Call 宏1
Cancel = True
Ca "$B$4"
Call 宏2
Cancel = True
Ca "$C$4"
Call 宏3
Cancel = True
Ca "$E$4"
Call 宏4
Cancel = True
End Select
End Sub
▲双击指定区域单元执行宏(工作表代码)返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range("$A$1") = "关闭" Then Exit Sub
If Not Application.Interct(Target, Range("A4:A9", "C4:C9")) Is Nothing Then Call 打开隐藏表End Sub
▲进入单元执行宏(工作表代码)返回Private Sub Worksheet_SelectionChange(ByVal Target As Rang
e)
'以单元格进入代替按钮对象调用宏
If Range("$A$1") = "关闭" Then Exit Sub
Select Ca Target.Address
Ca "$A$5" '单元地址(Target.Address)，或命名单元名字(Target.Name)
Call 宏1
Ca "$B$5"
Call 宏2
Ca "$C$5"
Call 宏3
End Select
End Sub
▲进入指定区域单元执行宏(工作表代码)返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("$A$1") = "关闭" Then Exit Sub
If Not Application.Interct(Target, Range("A4:A9","C4:C9")) Is Nothing Then Call 打开隐藏表End Sub
▲在多个宏中依次循环执行一个（控件按钮代码）返回Private Sub CommandButton1_Click()
Static RunMacro As Integer
Select Ca RunMacro
Ca 0
宏1
RunMacro = 1
Ca 1赖国全
宏2
RunMacro = 2
Ca 2
宏3
RunMacro = 0
End Select
End Sub
▲在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）返回Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "保护工作表" Then
Call 保护工作表
.Caption = "取消工作表保护"
Exit Sub
End If
十面埋伏琵琶
If .Caption = "取消工作表保护" Then
贫困情况说明
Call 取消工作表保护
.Caption = "保护工作表"
Exit Sub
End If
End With
End Sub
▲在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）返回Option Explicit
Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "宏1" Then
从善如流Call 宏1
.Caption = "宏2"
Exit Sub
End If
If .Caption = "宏2" Then
Call 宏2
.Caption = "宏3"
Exit Sub
End If
If .Caption = "宏3" Then
Call 宏3
.Caption = "宏1"
Exit Sub
End If
End With
End Sub
▲根据A1单元文本隐藏/显示按钮（控件按钮代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") > 2 Then
CommandButton1.Visible = 1
El
CommandButton1.Visible = 0
End If
End Sub
Private Sub CommandButton1_Click()
重排窗口
End Sub
▲当前单元返回按钮名称（控件按钮代码）返回Private Sub CommandButton1_Click()奉化美食
ActiveCell = CommandButton1.Caption
End Sub
▲当前单元内容返回到按钮名称（控件按钮代码）返回Private Sub CommandButton1_Click()
CommandButton1.Caption = ActiveCell
End Sub
守株待兔文言文▲奇偶页分别打印返回Sub 奇偶页分别打印()
Dim i%, Ps%
Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数
MsgBox "现在打印奇数页，按确定开始."
For i = 1 To Ps Step 2
