| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 354 人关注过本帖
标题:求助老师给我修改段代码 谢谢
只看楼主 加入收藏
jianxia168
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-5-14
  问题点数:0  回复次数:1   
求助老师给我修改段代码 谢谢
要求是:在一个文件中,有10个表页的按钮都用相同的宏 ,现在我想设个总按钮(总按钮那页不需要此操作)点击总按钮后,按顺序1-10表页依次完成操作。我刚接触表格,一点都不懂,请老师帮我改好,谢谢)

Sub 末期查找()
Range("ah1").Select

Dim arr
m = [fg1].End(4).Row
arr = [fg1].Resize(m)
Range("AH1") = 367

For i = 1 To UBound(arr)
   Range("AB4") = arr(i, 1)
   n = Range("AH2")
   If n = 10 Then Exit Sub

Next

End Sub

(这是原来用来单独操作的宏)

(请老师帮忙修改一下,要求是点击总按钮后,按顺序1-10表页依次完成操作。谢谢)
附件: 您没有浏览附件的权限,请 登录注册
2018-05-14 21:12
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
  得分:0 
何须这么复杂,增加一层循环,对10个表循环同样的操作就可以了。
for i= 1 to 10
    for j=* to *
          *****
    next j
next i

我是来向高手学习的!
2018-06-08 17:01







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041091 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved