- 174
- 0
- 约2.61千字
- 约 4页
- 2020-11-19 发布于天津
- 举报
打开所有隐藏工作表打开所有隐藏工作表循环宏循环代表循环次数执行前把赋值即可不可小于不可大于过滤一行完成标志完成假如名为完成标志的命名单元的值等于完成则退出循环假如一开始就等于完成则只执行一次循环就退出传送参数完成假如某列出现完成内容则退出循环录制宏时调用停止录制工具栏录制宏时调用停止录制工具栏高级筛选列不重复数据至指定表高级筛选列不重复数据至清除的列双击单元执行宏工作表代码关闭宏宏宏宏双击指定区域单元执行宏工作表代码关闭打开隐藏表进入单元执行宏工作表代码以单元格进入代替按钮对象调用宏关闭单元地址
1:打开所有隐藏工作表
Sub 打开所有隐藏工作表 ()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub
2:循环宏
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 F
您可能关注的文档
- (2020版)食品生产许可申请书.docx
- (word完整版)高中物理经典题库1000题.docx
- (假期一日一练)高中物理第1章碰撞与动量守恒动量守恒定律的应用(碰撞)学案教科版选修3-5.docx
- (化学)初三化学化学图像题汇编试题(有答案和解析).docx
- (名师原创连载)部编版四语上第三单元课内阅读名师拔尖(有答案).docx
- (含答案)部编版三年级语文下册总复习专项练习8修改病句.docx
- (完整)中级中式烹调师考试题库及答案,推荐文档.docx
- (完整)人教版新课标七年级英语上册第三单元测试题(附答案).docx
- (完整)四年级数学《数学广角—鸡兔同笼》教案.docx
- (完整)小学生安全知识测试卷及答案.docx
原创力文档

文档评论(0)