请高手帮我把几个代码和判断结合起来组成一个新的宏！

诚信740 · 发表于 2017-2-19 14:06

本帖最后由诚信740 于 2017-2-20 17:40 编辑

第一步，运行
Sub 外部数据刷新()
ActiveWorkbook.RefreshAll
End Sub
（这个代码的意思是我的某些excel数据来自网站，需要定期刷新。）

第二步，如果K22数据发生变化，运行
Sub 汇总()
For i = 1 To 600
Call test
Next i
End Sub
（K22是第一步运行计算出来的结果，有时变化，有时不变化。如果变化，运行宏test600次。如果不变化，不运行。）

第三步，在运行宏test600次过程中，N22:R22数据不断变化，如果N22:R22任意一个单元格等于1，运行停止。然后[B19:B26].Copy [I21]。
如果在运行宏test600次过程中，N22:R22始终没有任意一个单元格等于1，就把第二步运行完成，也就是运行宏test600次，不需要[B19:B26].Copy [I21]。

谢谢！

诚信740 · 发表于 2017-2-19 17:44

请高手帮忙！

诚信740 · 发表于 2017-2-19 20:28

请高手帮忙！

lygkkk · 发表于 2017-2-19 20:34

你连根毛都不给人家
人家怎么给你合并

诚信740 · 发表于 2017-2-19 21:06

lygkkk 发表于 2017-2-19 20:34
你连根毛都不给人家
人家怎么给你合并

我估计就是把所有资料给你，你也不一定合并起来。况且，所有资料给你也不一定看得懂，不如简单的说！

lygkkk · 发表于 2017-2-19 21:08

那你又何必来求助呢？

诚信740 · 发表于 2017-2-19 21:12

本帖最后由诚信740 于 2017-2-19 22:12 编辑

lygkkk 发表于 2017-2-19 21:08
那你又何必来求助呢？

我知道，有些高手不屑于这种问题，不是太难，有点麻烦！
虽然我是菜鸟！

lygkkk · 发表于 2017-2-19 21:17

哪你就应该大方的拿出的你文件让菜鸟看看或许能帮到你的忙呢?

诚信740 · 发表于 2017-2-19 21:22

lygkkk 发表于 2017-2-19 21:17
哪你就应该大方的拿出的你文件让菜鸟看看或许能帮到你的忙呢?

谢谢您！我估计菜鸟帮不了，高手不需要，具体细节我说的够清楚了！

无聊的疯子 · 发表于 2017-2-20 08:58

诚信740 发表于 2017-2-19 21:22
谢谢您！我估计菜鸟帮不了，高手不需要，具体细节我说的够清楚了！

这话说得相当对,菜鸟帮不了,高手不需要~~~

		自动登录	找回密码
密码			注册