麻辣家族討論版版 » Excel程式區 » 如何讓MsgBox不要出現兩次

返回列表下一主題上一主題發帖

[發問] 如何讓MsgBox不要出現兩次

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-11-25 16:27 | 只看該作者

[發問] 如何讓MsgBox不要出現兩次

text.rar (513.33 KB)

打開資料後，按下登打按鈕，輸入年/月後

月請輸入13以上

因為內有除錯判斷~大於12會跳出錯誤視窗
並清除 TextBox2~

測試後發現~他會跳窗兩次~請問是什麼原因?
是因為會判斷兩次 TextBox2是否>12嗎?
我該如何修改呢？謝謝各位老師！

樓主熱帖

收藏

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

3^#

發表於 2013-11-26 08:49 | 只看該作者

回復 2# 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兔年全勤獎章

2^#

發表於 2013-11-25 18:53 | 只看該作者

回復 1# av8d

Private Sub TextBox2_Change()
If TextBox2 = "" Then Exit Sub
If TextBox2 > 12 Or TextBox2 <= 0 Then
MsgBox "月份輸入錯誤"
TextBox2 = "" '會再啟動 TextBox2_Change 這程序
Else
If Len(TextBox2) = 2 Then
TextBox3.SetFocus
End If
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 君子如水，隨方就圓，無處不自在。

返回列表下一主題上一主題