返回列表 上一主題 發帖

[發問] 驗證錯誤迴圈問題(三次)

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2012-11-23 18:49 | 只看該作者
本帖最後由 stillfish00 於 2012-11-23 18:50 編輯

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

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
3#
發表於 2012-11-23 22:35 | 只看該作者
麻煩大大們是否可以幫我修改呢?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 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
複製代碼

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
5#
發表於 2012-11-24 16:36 | 只看該作者
回復 4# GBKEE


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

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
6#
發表於 2012-11-26 13:55 | 只看該作者
[版主管理留言]
  • Hsieh(2012-11-26 14:37): 請上傳檔案

回復 4# GBKEE


   
出現這個...

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
7#
發表於 2012-11-26 15:41 | 只看該作者
回復 4# GBKEE

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

  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
複製代碼

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題