EXIT SUB問題

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

3^#

發表於 2010-9-22 08:25 | 只看該作者

回復 2# oobird

不能這樣.
因為
SUB  B
IF  [A1]=1 THEN
EXIT SUB (這個地方想出所有SUB)
END IF
XXXXXXX
XXXXXXX
END UB

A1 <> 1 就會RUN XXXX和 SUB C.

50 字節以內
不支持自定義 Discuz! 代碼

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-9-22 09:31 | 只看該作者

SUB B
IF [A1]=1 THEN
EXIT SUB (這個地方想出所有SUB)
else
XXXXXXX
XXXXXXX
end if
END sUB

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

5^#

發表於 2010-9-22 11:25 | 只看該作者

SUB B
IF [A1]=1 THEN
end (這個地方想出所有SUB)
END IF
XXXXXXX
XXXXXXX
END sUB

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

6^#

發表於 2010-9-22 15:30 | 只看該作者

本帖最後由 basarasy 於 2010-9-22 15:34 編輯

RUN a

B1 C1 和A2 不會出東西.

有什麼句法可以在子SUB跳出所有SUB. OR 停止所有SUB.

BOOK1.rar (11.38 KB)

50 字節以內
不支持自定義 Discuz! 代碼

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-9-22 16:18 | 只看該作者

回復 6# basarasy
你在執行程序A() 的過程中執行到程序B()  為一個程式區塊
程序B() 中的 If [A1] = 1 Then
                  Exit Sub  '<-- 只會離開程序B()
                  End If
如程序B()用 If [A1] = 1 Then
                        End  '<-- 會結束所有程序區塊 (  程序A() -> 開啟程序B()  )
                  End If

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

8^#

發表於 2010-9-22 16:29 | 只看該作者

回復 7# GBKEE

謝謝大大 .
原來只用end 就可以出所有sub ><

50 字節以內
不支持自定義 Discuz! 代碼

版主 Rank: 7 Rank: 7 Rank: 7

Min

　暱稱: 閔

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

9^#

發表於 2010-9-22 21:46 | 只看該作者

本帖最後由 Min 於 2010-9-22 21:50 編輯

恕我多嘴...
趁著程式還沒越寫越大時趕快導正!
直接用end是可以結束整個程式沒錯但這有點.....不妥!
較正統的方式因該return回來main(也就是您的sub a)
讓a來決定是不是還要跑sub b或sub c...
最後仍是由sub a結束程序.

Book1.rar (5.98 KB)

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

10^#

發表於 2010-9-23 00:10 | 只看該作者

回復 9# Min

謝謝提點.
因為我有2個按鈕
1個是用SUB A
1個用SUB B
有野東西只想在SUB B做
所以才用 END的方法.

50 字節以內
不支持自定義 Discuz! 代碼