[已解决]一个很简单的问题，宏2如何利用宏1的结果，谢谢！

bipl607

宏2要引用宏1的sm,宏2的代码怎么写，如下谢谢！

Sub 宏1()
        rr = 2
            rr = rr + 1
             rr = rr + 1

             rr = rr + 2
             sm = rr
         Cells(1, 3) = rr
End Sub
Sub 宏2()
        rr = sm     '这里的sm想引用宏1的sm的值，前面应该加什么代码？谢谢！
            rr = rr + 1
             rr = rr + 1

             rr = rr + 2
         Cells(3, 3) = rr
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2014-6-8 13:50

例
Dim sm
Sub 宏1()
.....
End Sub
Sub 宏2()
.....
End Sub

跳转到最佳答案楼层

youfang

rr=Cells(1, 3)

zjdh

把 sm 定义为公共变量

bipl607

谢谢！我想直接用sm,这里的Cells(1, 3)是我验算用的。

bipl607

请zjdh大学副教授，帮我完善1楼的代码试试，谢谢！

zjdh

例
Dim sm
Sub 宏1()
.....
End Sub
Sub 宏2()
.....
End Sub

su45

能得到教授的指点，荣耀呀！