如果长度文本是 select 一个类似于 10 个字符的值，则启用 CommandButton

Question

我一直在搜索，但没有找到任何相关信息，我想弄清楚是否有一种方法可以将输入数据从文本框自动保存到电子表格而无需单击保存按钮或键盘 .

提示：它只是一个自动保存程序，我不想通过数据输入进行大量操作

我想要一些命令行，例如：如果文本框 1 中的长度 = 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 = ""

Answer 1

将此添加到您的表单中：

Private Sub TextBox1_Change()
    If Len(TextBox1.Value) = 10 Then
        CommandButton1_Click
    End If
End Sub

每当某些事情导致 textbox1 的值发生变化（例如在其中键入内容）时，都会执行此代码。只要 textbox1 中的值有 10 个字符，就会执行 commandButton1 的点击事件背后的代码。

警告，如果有人将 11 个字符粘贴到 textbox1，然后继续输入，commandbutton1 代码将不会执行

如果长度文本是 select 一个类似于 10 个字符的值，则启用 CommandButton

enable CommandButton if length text is select a value like 10 characters

excel

ms-access

vba