返回列表 上一主題 發帖

VBA能從執行一個巨集中跳到另一個巨集嗎?

smart3135

帖子
96 
主題
18 
精華
0 
積分
125 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-3-23 
最後登錄
2022-8-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

  5. Sub test2()

  7. BR:
  8.     Range("a2").Value = 3
  9.     Range("a3").Value = 4

  11. End Sub
複製代碼
收藏 分享

twosix

帖子
12 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
win10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-3-22 
最後登錄
2020-5-27 
2#
發表於 2014-5-21 14:03 | 只看該作者
  1. Sub test1()

  3. If Range("a1").Value = 2 Then
  4.     Call test2
  5. End If

  7. End Sub

  9. Sub test2()
  10.     Range("a2").Value = 3
  11.      Range("a3").Value = 4
  12. End Sub
複製代碼
回復 1# smart3135

TOP

smart3135

帖子
96 
主題
18 
精華
0 
積分
125 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-3-23 
最後登錄
2022-8-2 
3#
發表於 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執行接下來的程序

  5. End Sub

  7. Sub test2()

  9. Range("a:a").Height = 15
  10. Range("b:b").Width = 16

  12. BR:
  13.     Range("a2").Value = 3
  14. MN:
  15.     Range("a3").Value = 4

  17. End Sub
複製代碼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題