GBKEE

回復 4# av8d
工作表內的N2和O2並無錯誤~

If CB = Range("N" & i) And TB = Range("O" & i) Then

GBKEE

回復 6# av8d
試試看

1. Private Sub CommandButton1_Click()
   
2.     Dim CB, TB As String, M As String
   
3.     CB = ComboBox1.Value
   
4.     TB = TextBox1.Value
   
5.     Dim i As Integer
   
6.     With Sheets("密碼工作表")
   
7.         For i = 2 To 4
   
8.             If CB = .Range("N" & i) And TB = .Range("O" & i) Then
   
9.                 UserName = ComboBox1
   
10.                 M = ""
    
11.                 '關閉視窗
    
12.                 Unload Me
    
13.             Else
    
14.                 M = "密碼錯誤！"
    
15.             End If
    
16.         Next
    
17.     End With
    
18.     If M = "密碼錯誤！" Then MsgBox M
    
19. End Sub

複製代碼

GBKEE

回復 8# av8d
    6#的附檔無法開啟 請測試一下是否正常或重新上傳

GBKEE

回復 10# av8d
資料型態問題
Dim CB As String, TB As String

1. Private Sub CommandButton1_Click()
   
2.     Dim CB As String, TB As String, ER As String, i As Integer
   
3.     CB = ComboBox1.Value
   
4.     TB = TextBox1.Value
   
5.     With Sheets("蓋棉被純聊天系統")
   
6.         For i = 2 To 4
   
7.             If CB = .Range("N" & i) And TB = .Range("O" & i) Then
   
8.                 ER = ""
   
9.                 Username = ComboBox1
   
10.                 '關閉視窗
    
11.            Unload Me             '還是要執行程式的For的迴圈
    
12.            '隱藏UserForm1視窗
    
13.            'UserForm1.Hide    '還是要執行程式的For的迴圈
    
14.            GoTo MS
    
15.             Else
    
16.                 ER = "密碼錯誤！"
    
17.             End If
    
18.         Next
    
19.     End With
    
20. MS:
    
21.     If ER = "密碼錯誤！" Then MsgBox ER   
    
22. End Sub

複製代碼

GBKEE

回復 20# av8d
試試看

下載 (19.42 KB)

2013-3-22 13:20

Sheet1的CommandButton1_Click()

DSC00220.JPG.rar (20.54 KB)

下載次數: 4

2013-3-22 13:16

GBKEE

回復 22# av8d
試試看 是這樣嗎?

1. Private Sub CommandButton1_Click()
   
2.     Dim CB As String, TB As String, ER As String, I As Integer
   
3.     CB = ComboBox1
   
4.     TB = TextBox1
   
5.     For I = 1 To 3
   
6.         If 確認密碼(CB, TB) = "密碼正確" Then
   
7.             GoTo MS
   
8.         Else
   
9.             TextBox1 = InputBox("密碼錯誤! " & I & "次", "警告！", "請輸入正確密碼！")
   
10.             TB = TextBox1
    
11.         End If
    
12.     Next
    
13.     MsgBox "密碼錯誤! 3次 關閉 Excel"
    
14.     Application.Quit
    
15.     Exit Sub
    
16. MS:
    
17.     MsgBox "密碼正確"
    
18.     Username = ComboBox1
    
19.     Unload Me
    
20. End Sub
    
21. Private Function 確認密碼(CB As String, TB As String) As String
    
22.     Dim I As Integer
    
23.     確認密碼 = "密碼錯誤"
    
24.     With Sheets("蓋棉被純聊天系統")
    
25.         For I = 3 To 5
    
26.             If CB = .Range("N" & I) And TB = .Range("O" & I) Then
    
27.                 確認密碼 = "密碼正確"
    
28.                 Exit For
    
29.             End If
    
30.         Next
    
31.   End With
    
32. End Function

複製代碼