我一直在搜索，但沒有找到任何相關資訊，我試圖弄清楚是否有一種方法可以將輸入資料從文本框自動保存到電子表格，而無需單擊保存按鈕或鍵盤。
提示：它只是一個自動保存程式我不希望通過資料輸入進行大量操作
我想要一些命令列，例如：如果 textbox1 中的長度 = 10 則啟動或激活 CommandButton1 否則什么都不做？
前提是在 CommandButton1 指標中執行操作后，在這種情況下是鍵盤回到文本框等待另一個條目
Private Sub CommandButton1_Click()
Dim lastrow As Long
lastrow = WorksheetFunction.CountA(Sheets("data").Range("A:A"))
Sheets("data").Cells(lastrow 1, 1).Value = lastrow
Sheets("data").Cells(lastrow 1, 2).Value = UserForm1.TextBox2.Value
Sheets("data").Cells(lastrow 1, 4).Value = UserForm1.TextBox1.Value
Sheets("data").Cells(lastrow 1, 5).Value = Now()
Private Sub CommandButton2_Click()
UserForm1.TextBox2.Value = ""UserForm1.ComboBox1.Value = ""
uj5u.com熱心網友回復：
將此添加到您的表單中：
Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 10 Then
CommandButton1_Click
End If
End Sub
每當某些事情導致 textbox1 的值發生變化時，例如在其中鍵入內容，此代碼都會執行。只要 textbox1 中的值有 10 個字符，就會執行 commandButton1 的 click 事件背后的代碼。
警告，如果有人將 11 個字符粘貼到 textbox1 中，然后繼續輸入，commandbutton1 代碼將不會執行
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/452101.html
上一篇：將檔案匯出為不帶引號的文本檔案