[說明]
我們利用 TextBox_Change 的事件進行觸發，來偵測使用者輸入，是否達到 N 個字元，當達到 N 各字元時，自動跳至下一個欄位，這樣的程式該如何撰寫呢？以下進行分享

image

 
[程式碼]
Private Sub TextBox1_Change()
    If Len(TextBox1.Text) >= 8 Then '輸入達到8個字元或以上時，可依需求自行設定
        SendKeys "{Tab}" '利用 SendKeys 送出 Tab 鍵，則會自動跳到下一個輸入欄位，等同程式在背後幫你按下 Tab 鍵的意思
    End If
End Sub
 
[特別說明]
亦可 TextBox 的屬性 MaxLength 進行字元上限設定，強制限定使用者輸入的字元數

image

 

謝謝您閱讀了我的文章，若您喜歡我的文章，希望您幫我按個「讚」，也幫忙分享給需要的朋友或其他平台，謝謝。

 

 

20180128 黑.png


arrow
arrow
    文章標籤
    VBA EXCEL TEXTBOX CHANGE 自動跳下一個欄位 限制輸入的字數 字數 限制輸入的長度 內容數 輸入上限 字元數
    全站熱搜

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄