当用户表单数据与现有单元格匹配时更新下一列中的单元格的代码- excel vba用户表单

' 假设你的用户表单上有两个控件：TextBox1（用户输入的数据）和CommandButton1（提交按钮）
Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim userInput As String
    
    ' 设置工作表对象，这里假设你的数据在工作表"Sheet1"上
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取用户输入的数据
    userInput = Me.TextBox1.Value
    
    ' 假设你要匹配的数据在A列，从第2行开始（第1行可能是标题）
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    ' 遍历范围内的每个单元格
    For Each cell In rng
        ' 如果找到匹配的数据
        If cell.Value = userInput Then
            ' 更新同一行的B列单元格
            cell.Offset(0, 1).Value = "已匹配"
            Exit For ' 找到匹配后退出循环
        End If
    Next cell
End Sub