標題: [發問] 驗證錯誤迴圈問題(三次) [打印本頁]

---

作者: die78325    時間: 2012-11-23 17:08     標題: 驗證錯誤迴圈問題(三次)

各位大大 最近改為研究 表單驗證部分
以下是我簡單寫的迴圈 = =但需要驗證三次錯誤後離開EXCEL 請幫我修正一下  感謝各位高人

1. Private Sub CmdLogin_Click()
   
2. '如果為空白
   
3. If BoxUser.Value = "" Then MsgBox "請輸入董事長姓名！": Exit Sub
   
4. '如果輸入錯誤
   
5. no = 1
   
6. If BoxUser.Value <> "貞孝維" Then
   
7.    MsgBox "輸入錯誤！": no = no + 1
   
8.    If no = 3 Then
   
9.        MsgBox "抱歉！您沒有使用權限！"
   
10.         Exit Sub
    
11.         ThisWorkbook.Close SaveChanges:=False
    
12.    End If
    
13.    BoxUser.SetFocus: Exit Sub
    
14. End If
    
15. Unload Me
    
16. End Sub

複製代碼

順便一問~~~~調整表單內字體大小怎麼調整= =?
為什麼打進去的字都好小.......

---

作者: stillfish00    時間: 2012-11-23 18:49

本帖最後由 stillfish00 於 2012-11-23 18:50 編輯

回復 1# die78325
1.  你寫的不是迴圈阿 , 加個 Do ...Loop/For...Next 吧
2.  點該控制項 , 打開屬性視窗 , 到Font屬性內修改

---

作者: die78325    時間: 2012-11-23 22:35

麻煩大大們是否可以幫我修改呢?

---

作者: GBKEE    時間: 2012-11-24 16:23

回復 3# die78325
另在vba中插入[一般Module] 的模組

1. Option Explicit
   
2. Public no As Integer  '宣告 錯誤次數為[一般Module]的公用變數

複製代碼

1. Option Explicit
   
2. Private Sub UserForm_Initialize()
   
3.     BoxUser.Font.Size = 16
   
4. End Sub
   
5. Private Sub CmdLogin_Click()
   
6.     With BoxUser
   
7.         If .Value = "" Then MsgBox "請輸入董事長姓名！": Exit Sub '如果為空白
   
8.         If .Value <> "貞孝維" Then      '如果輸入錯誤
   
9.             MsgBox "輸入錯誤！": Module1.no = Module1.no + 1
   
10.             If Module1.no = 3 Then
    
11.                 MsgBox "抱歉！您沒有使用權限！"
    
12.               '  ThisWorkbook.Close SaveChanges:=False
    
13.                 Application.DisplayAlerts = False
    
14.                 Application.Quit        '關閉Excel
    
15.             End If
    
16.         Else
    
17.             Module1.no = 0                      '錯誤次數 歸零
    
18.         End If
    
19.     End With
    
20.     Unload Me
    
21. End Sub

複製代碼

---

作者: die78325    時間: 2012-11-24 16:36

回復 4# GBKEE


    thx GBKEE大
   謝謝教學  是這種幾次就執行另一個程式的都要這樣寫嗎？
   有些特別的語法很難理解什摩時候才該用   但我都有紀錄起來了︿＿︿
   我人在外面回去在試試大大教學的方式順便學習起來︿︿

---

作者: die78325    時間: 2012-11-26 13:55

回復 4# GBKEE


    [attach]13288[/attach]
出現這個...

---

作者: die78325    時間: 2012-11-26 15:41

回復 4# GBKEE

原本不知道為何會無限運行,後來研究片刻後已解決!@@"
謝謝各位大大回復~~

1. Sub CmdLogin_Click()
   
2. 
   
3.     With BoxUser
   
4.         If .Value = "" Then MsgBox "請輸入董事長姓名！": Exit Sub '如果為空白
   
5.         If .Value <> "貞孝維" Then      '如果輸入錯誤
   
6.             MsgBox "輸入錯誤！": Module1.no = Module1.no + 1
   
7.             If Module1.no = 3 Then
   
8.                 MsgBox "抱歉！您沒有使用權限！"
   
9.               '  ThisWorkbook.Close SaveChanges:=False
   
10.                 Application.DisplayAlerts = False
    
11.                 Application.Quit        '關閉Excel
    
12.             End If
    
13.             [color=Red]Exit Sub[/color]
    
14.         Else
    
15.             Module1.no = 0        '錯誤次數 歸零
    
16.         End If
    
17.     End With
    
18.     Unload Me
    
19. End Sub

複製代碼

---

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