VBA如何实现两个窗体文本框首尾字符匹配校验功能

首先约定两个窗体的控件命名（如果你的控件命名不同，替换对应名称即可）：

• Form1中用于输入2个字符的文本框名为：TextBox1
• Form2中的输入文本框名为：TextBox2

实现逻辑说明 #

我们选择Form1的TextBox1_BeforeUpdate事件作为校验触发时机，该事件会在文本框内容提交（比如用户切走焦点、保存窗体）前触发，能第一时间拦截不合法输入。

具体代码 #

1. 打开Form1的设计视图，右键点击TextBox1，选择「查看代码」进入VBA编辑界面
2. 粘贴如下代码到代码编辑区：

Private Sub TextBox1_BeforeUpdate(Cancel As Integer)
    ' 校验Form1文本框输入长度是否符合要求
    If Len(Me.TextBox1.Text) <> 2 Then
        MsgBox "请输入2个字符", vbExclamation, "输入错误"
        Cancel = True ' 阻止焦点离开，保留当前输入待修改
        Exit Sub
    End If

    ' 校验Form2文本框是否已有输入，避免空值报错
    If Len(Form2.TextBox2.Text) = 0 Then
        MsgBox "请先在Form2的文本框中输入内容", vbExclamation, "前置输入缺失"
        Cancel = True
        Exit Sub
    End If

    ' 提取对比字符
    Dim form1LastChar As String, form2FirstChar As String
    form1LastChar = Right(Me.TextBox1.Text, 1)
    form2FirstChar = Left(Form2.TextBox2.Text, 1)

    ' 字符匹配校验
    ' 如需不区分大小写，可改为：If UCase(form1LastChar) <> UCase(form2FirstChar) Then
    If form1LastChar <> form2FirstChar Then
        MsgBox "匹配失败：Form1输入的最后一个字符需与Form2输入的第一个字符一致", vbCritical, "校验错误"
        Cancel = True
        ' 自动选中文本框内容，方便用户直接修改
        Me.TextBox1.SelStart = 0
        Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
    End If
End Sub

可选调整 #

如果希望用户按回车键后触发校验，可以把上述逻辑放到TextBox1_KeyDown事件中，补充判断回车的逻辑即可：

Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then ' 13对应回车键
        ' 把上面的校验逻辑粘贴到这里即可
    End If
End Sub

内容的提问来源于stack exchange，提问作者jshvt17