VBA窗体教程: 文本框实时显示截取字符，用代码实现

VBA窗体技巧：文本框实时显示截取字符

在VBA窗体中，你可能需要根据一个文本框的内容自动更新另一个文本框。例如，在一个文本框中输入产品名称，另一个文本框自动显示产品代码（产品名称的前四位）。

本教程将教你如何使用 Left 函数实现这个功能。

代码示例：

Private Sub TextBoxAA_Change()
    TextBoxBB.Value = Left(TextBoxAA.Value, 4)
End Sub

代码解释：

1. Private Sub TextBoxAA_Change(): 这段代码定义了一个名为 TextBoxAA_Change 的私有过程。当名为 TextBoxAA 的文本框内容发生变化时，会触发该过程。
2. TextBoxBB.Value = Left(TextBoxAA.Value, 4): 这行代码是核心代码，它将 TextBoxAA 文本框中的值的前四位字符截取出来，并将其赋给 TextBoxBB 文本框的 Value 属性，从而实现实时更新显示。
3. Left 函数: 这个函数用于从字符串的左侧开始截取指定数量的字符。

使用方法：

1. 在VBA编辑器中打开你的窗体。
2. 选择要作为输入框的文本框，例如命名为'TextBoxAA'。
3. 在代码窗口中，将上述代码粘贴到该窗体的代码模块中。
4. 将代码中的 TextBoxAA 和 TextBoxBB 分别替换为你实际使用的文本框名称。

现在，当你向 TextBoxAA 中输入内容时, TextBoxBB 将会实时显示 TextBoxAA 中内容的前四位字符。

注意：

• 这段代码应该写在窗体的 Code Module 中，而不是普通的模块中。
• 你可以根据需要修改 Left 函数中的数字来控制要截取的字符数。