標題: VBA能從執行一個巨集中跳到另一個巨集嗎? [打印本頁]

---

作者: smart3135    時間: 2014-5-21 13:39     標題: VBA能從執行一個巨集中跳到另一個巨集嗎?

如下例程式碼，我希望當執行test1時滿足某條件就能跳到test2執行，不過以下程式碼執行時會出現BR未定義，請各位高手幫忙一下
要怎麼寫才能在滿足test1的條件時跳到test2指定的程序繼續執行？感謝！

1. Sub test1()
   
2. If Range("a1").Value = 2 Then GoTo BR
   
3. End Sub
   
4. 
   
5. Sub test2()
   
6. 
   
7. BR:
   
8.     Range("a2").Value = 3
   
9.     Range("a3").Value = 4
   
10. 
    
11. End Sub

複製代碼

---

作者: twosix    時間: 2014-5-21 14:03

1. Sub test1()
   
2. 
   
3. If Range("a1").Value = 2 Then
   
4.     Call test2
   
5. End If
   
6. 
   
7. End Sub
   
8. 
   
9. Sub test2()
   
10.     Range("a2").Value = 3
    
11.      Range("a3").Value = 4
    
12. End Sub

複製代碼

回復 1# smart3135

---

作者: smart3135    時間: 2014-5-21 19:48

回復 2# twosix
感謝回覆，不過可能是我表達的不夠清楚，我希望的結果是當test1條件成立時直接跳到test2某程序，而不是test2整個程序，如程式碼說明

1. Sub test1()
   
2. If Range("a1").Value = 2 Then GoTo BR  '當此條件成立時希望能跳到test2的BR執行接下來的程序
   
3. If Range("a2").Value = 3 Then GoTo MN  '當此條件成立時希望能跳到test2的MN執行接下來的程序
   
4. 
   
5. End Sub
   
6. 
   
7. Sub test2()
   
8. 
   
9. Range("a:a").Height = 15
   
10. Range("b:b").Width = 16
    
11. 
    
12. BR:
    
13.     Range("a2").Value = 3
    
14. MN:
    
15.     Range("a3").Value = 4
    
16. 
    
17. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)