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

Hsieh

回復 10# av8d

資料型態問題
            If CB = CStr(.Range("N" & i)) And TB = CStr(.Range("O" & i)) Then

av8d

回復 11# Hsieh


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

av8d

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)

下載次數: 14

2013-3-21 09:12

av8d

回復 1# av8d


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

mark15jill

回復  Hsieh


    使用了大大給的~可以了~可能輸入錯誤無法讓他顯示了!
av8d 發表於 2013-3-20 16:55

這個是我之前編寫資料查閱功能的通行證
但只有一對一
可將當中的
    realpsd = 工作表1.Cells(2, "N")
    realpsm = 工作表1.Cells(2, "O")
擴充即可..

用法
開啟程式編輯畫面，把檔案匯入
參考此附件
    PWControl.zip (1.73 KB)

下載次數: 7

2013-3-21 11:45

mickeymiles

回復 1# av8d
下列再加入  .HideSelection = False，好像就可以了
至於為什麼一開始的不行，可能要請版上前輩指教一下了

                 With TextBox1
                     .SetFocus
                     .SelStart = 0
                     .SelLength = Len(.Text)
                      .HideSelection = False
                 End With

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

複製代碼

av8d

回復 16# mickeymiles


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

mickeymiles

回復 18# av8d

好像是tab的問題，你從textbox按enter後，會跳到下一個順序的物件去
要怎麼改，還要研究一下，我也在慢慢努力增進自己的知識
也請您多多指教

av8d

回復 17# GBKEE


    G大~請問如果我要改寫成InputBox~該如何改寫呢?
如附件
Test6.rar (29.36 KB)

下載次數: 2

2013-3-22 11:56