麻辣家族討論版版 » Excel程式區 » 當按下按鈕執行無誤，但是透過轉換，卻出現不同的結果。

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

[發問] 當按下按鈕執行無誤，但是透過轉換，卻出現不同的結果。

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 2013-3-19 14:32 | 顯示全部帖子

UserFrom1內使用For迴圈

本帖最後由 av8d 於 2013-3-19 14:38 編輯

以下寫在UserFrom1內的

Private Sub CommandButton1_Click()
For i = 2 to 4
If ComboBox1 = N & i Then
If TextBox1 = O & i Then
Username = ComboBox1
Unload Me
Else
MsgBox ("密碼錯誤！")
End If
End If
Next i
End Sub

複製代碼

N是工作表("A")的N可是會出錯~這問題重複了@

大學生 Rank: 4

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

2^#

發表於 2013-3-20 10:01 | 顯示全部帖子

回復 3# mark15jill

Private Sub CommandButton1_Click()
Dim CB, TB As String
CB = ComboBox1.Value
TB = TextBox1.Value
Dim i As Integer
For i = 2 To 4
If CB = "N" & i And TB = "O" & i Then
Username = ComboBox1
'關閉視窗
Unload Me
Else
MsgBox ("密碼錯誤！")
End If
Next
End Sub

複製代碼

他會出現3次密碼錯誤，
工作表內的N2和O2並無錯誤~
輸入也無誤~不知道為什麼?

大學生 Rank: 4

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

3^#

發表於 2013-3-20 10:28 | 顯示全部帖子

回復 5# GBKEE

Test2.rar (24.67 KB)

工作表N2和O2，輸入正確，但是會顯是密碼錯誤3次。

大學生 Rank: 4

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

4^#

發表於 2013-3-20 11:45 | 顯示全部帖子

回復 7# GBKEE

密碼輸入正確~依然顯示錯誤~努力找尋錯誤中~非常感謝!

大學生 Rank: 4

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

5^#

發表於 2013-3-20 11:51 | 顯示全部帖子

回復 9# GBKEE

Test3.rar (26.04 KB)

再次感謝!

大學生 Rank: 4

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

6^#

發表於 2013-3-20 16:55 | 顯示全部帖子

本帖最後由 av8d 於 2013-3-20 16:58 編輯

回復 11# Hsieh

使用了大大給的~可以了~可能輸入錯誤無法讓他顯示了!

大學生 Rank: 4

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

7^# 倒序看帖

字體大小: tT

發表於 2013-3-21 09:12 | 顯示全部帖子

[發問] 當按下按鈕執行無誤，但是透過轉換，卻出現不同的結果。

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then CommandButton1_Click
End Sub

以上是當在TextBox1按下Enter鍵後，執行CommandButton1

Private Sub CommandButton1_Click()
            With TextBox1
                  .SetFocus
                  .SelStart = 0
                  .SelLength = Len(.Text)
            End With
End Sub

我們一般按下按鈕CommandButton1，TextBox1內的字會被全選。
但是當在TextBox1按下Enter鍵後，執行CommandButton1，TextBox1內的字卻不會被全選。

如附件：

Test5.rar (27.78 KB)

收藏

大學生 Rank: 4

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

8^#

發表於 2013-3-21 11:26 | 顯示全部帖子

回復 1# av8d

發現似乎和"訂為順序"有關~所以必須取消訂為順序~尋找中!

大學生 Rank: 4

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

9^#

發表於 2013-3-21 17:05 | 顯示全部帖子

回復 16# mickeymiles

謝謝大大~是全選狀態~但是不能打字~不知道為什麼~@

大學生 Rank: 4

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

10^#

發表於 2013-3-22 11:56 | 顯示全部帖子

回復 17# GBKEE

G大~請問如果我要改寫成InputBox~該如何改寫呢?
如附件

Test6.rar (29.36 KB)

靜思自在 : 天上最美是星星，人生最美是溫情。

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