设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Office/Excel 行业应用交流与培训 › Excel财会与金融 › 请doitbest老师帮忙给这个录制宏精简一下，表示感谢！
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理，一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
返回列表 发新帖
查看: 1734|回复: 4

[求助] 请doitbest老师帮忙给这个录制宏精简一下，表示感谢！

[复制链接]
蓝天白水

TA的精华主题

TA的得分主题
发表于 2011-7-12 08:22 | 显示全部楼层 |阅读模式
[广告] ★ SPL 插件强化Excel公式搞定Excel难题，远超VBA/Python ★
Sub CommandButton1_单击()
'
' CommandButton1_单击 Macro
' 宏由 User 录制，时间: 2011-6-12
'

'
    Range("A5:D33").Select
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("A5:D33,E5:H33").Select
    Range("E5").Activate
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 34
    Range("A5:D33,E5:H33,A37:D61").Select
    Range("A37").Activate
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 28
    Range("A5:D33,E5:H33,A37:D61,E37:H61").Select
    Range("E37").Activate
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 67
    Range("A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81").Select
    Range("E70").Activate
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 80
    Range("A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94").Select
    Range("A90").Activate
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 94
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112" _
        ).Select
    Range("E111").Activate
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 108
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124" _
        ).Select
    Range("E116").Activate
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 124
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156" _
        ).Select
    Range("A130").Activate
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 124
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142" _
        ).Select
    Range("E138").Activate
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 137
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 142
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 144
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156" _
        ).Select
    Range("E146").Activate
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 158
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166" _
        ).Select
    Range("E160").Activate
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 167
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179,E170:H179" _
        ).Select
    Range("E170").Activate
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 180
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179,E170:H179,A183:D185,E183:H185,A189:H190" _
        ).Select
    Range("A189").Activate
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 186
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 192
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179,E170:H179,A183:D185,E183:H185,A189:H190,A197:D216" _
        ).Select
    Range("A197").Activate
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 188
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179,E170:H179,A183:D185,E183:H185,A189:H190,A197:D216,E197:H205" _
        ).Select
    Range("E197").Activate
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 204
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179,E170:H179,A183:D185,E183:H185,A189:H190,A197:D216,E197:H205" _
        ).Select
    Range("E209").Activate
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 211
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 211
    Range( _
        "A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179,E170:H179,A183:D185,E183:H185,A189:H190,A197:D216,E197:H205" _
        ).Select
    Range("E220").Activate
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 221
    Union(Range( _
        "A232:D235,E232:H235,A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179,E170:H179,A183:D185,E183:H185,A189:H190" _
        ), Range("A225:D228,E227:H228")).Select
    Range("E232").Activate
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 232
    Union(Range( _
        "A232:D235,E232:H235,A239:D242,E239:H242,A246:D248,E246:H248,A5:D33,E5:H33,A37:D61,E37:H61,A70:D81,E70:H81,A85:H86,A90:H94,A98:D101,A105:D112,E98:H107,E111:H112,A116:D124,E116:H124,A130:D156,E130:H134,E138:H142,E146:H156,A160:D166,E160:H166,A170:D179" _
        ), Range("E197:H205,E209:H216,A220:D221,E220:H223,A225:D228,E227:H228")).Select
    Range("E246").Activate
    Selection.ClearContents
End Sub

报表.zip (172.06 KB, 下载次数: 3)

[ 本帖最后由 蓝天白水 于 2011-7-14 10:56 编辑 ]
回复

举报

doitbest

TA的精华主题

TA的得分主题
发表于 2011-7-12 10:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
你录制的宏无用代码太多,请提供附件,并说明要求,才好决定取舍
回复

举报

蓝天白水

TA的精华主题

TA的得分主题
 楼主| 发表于 2011-7-14 10:47 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★

请doitbest老师看看

这是我弄的一个东东的部分 报表.zip (172.06 KB, 下载次数: 4) ，见笑了。宏我不懂，就自己录制了一下，主要是想节约点时间。里面涉及到的合计栏不要清除。请给我精简一下，谢谢了！
回复

举报

doitbest

TA的精华主题

TA的得分主题
发表于 2011-7-14 11:09 | 显示全部楼层
[广告] ★ SPL 插件强化Excel公式搞定Excel难题，远超VBA/Python ★
你要清空产销成本表的部分区域吗,请详细说明,然后为你写一个
回复

举报

蓝天白水

TA的精华主题

TA的得分主题
 楼主| 发表于 2011-7-14 11:17 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
不光是。里面有好几个表都有要“清除”的。
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-9-27 19:24 , Processed in 0.040266 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表