[已解决]这样的代码怎么改才简单？

cys888

怎么写才简单？请教老师！！

    Application.Run "常规.xlsm!Sheet23.执筛3X"
    Application.Run "常规.xlsm!Sheet23.执筛3D"
    Application.Run "常规.xlsm!Sheet24.执筛4X"
    Application.Run "常规.xlsm!Sheet24.执筛4D"
    Application.Run "常规.xlsm!Sheet25.执筛5X"
    Application.Run "常规.xlsm!Sheet25.执筛5D"
    Application.Run "常规.xlsm!Sheet26.执筛6X"
    Application.Run "常规.xlsm!Sheet26.执筛6D"
    Application.Run "常规.xlsm!Sheet27.执筛7X"
    Application.Run "常规.xlsm!Sheet27.执筛7D"
    Application.Run "常规.xlsm!Sheet28.执筛8X"
    Application.Run "常规.xlsm!Sheet28.执筛8D"
    Application.Run "常规.xlsm!Sheet29.执筛9X"
    Application.Run "常规.xlsm!Sheet29.执筛9D"
    Application.Run "常规.xlsm!Sheet30.执筛10X"
    Application.Run "常规.xlsm!Sheet30.执筛10D"
    Application.Run "常规.xlsm!Sheet31.执筛11X"
    Application.Run "常规.xlsm!Sheet31.执筛11D"
    Application.Run "常规.xlsm!Sheet32.执筛12X"
    Application.Run "常规.xlsm!Sheet32.执筛12D"
   

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-28 08:55

1.     Dim x As Long
   
2.     Dim str$
   
3.     For x = 23 To 32
   
4.         str = "常规.xlsm!Sheet" & x & ".执筛" & x - 20
   
5.         'Debug.Print str & "X"
   
6.         'Debug.Print str & "D"
   
7.         Application.Run str & "X"
   
8.         Application.Run str & "D"
   
9.     Next

复制代码

跳转到最佳答案楼层

hwc2ycy

循环呀，数字都有规律可行。

hwc2ycy

1.     Dim x As Long
   
2.     Dim str$
   
3.     For x = 23 To 32
   
4.         str = "常规.xlsm!Sheet" & x & ".执筛" & x - 20
   
5.         'Debug.Print str & "X"
   
6.         'Debug.Print str & "D"
   
7.         Application.Run str & "X"
   
8.         Application.Run str & "D"
   
9.     Next

复制代码

cys888

hwc2ycy 发表于 2014-5-28 08:55

谢谢啦，这下不用费力了