Excel VBA用户表单：将日期批量写入所有匹配指定订单号行的技术问题

我来帮你搞定这个问题！你的代码目前只处理第一个匹配订单号的行，是因为Range.Find默认只会返回第一个匹配项。要实现写入所有符合条件的行，我们需要用FindNext方法循环遍历所有匹配单元格，下面是修改后的完整代码，我会顺便解释关键改动：

Private Sub CommandButton2_Click()
    Dim LastRow As Long
    Dim IDnum As String
    Dim rngidnum As Range
    Dim firstFound As Range ' 记录第一个匹配单元格，避免循环死循环
    Dim ws As Worksheet
    Set ws = Worksheets("Data")
    
    With ws
        LastRow = .Cells(.Rows.Count, "AB").End(xlUp).Row
        IDnum = TextBox1.Value
        ' 完善Find参数，确保精确匹配单元格值
        Set rngidnum = .Range("AB1:AB" & LastRow).Find(IDnum, LookIn:=xlValues, LookAt:=xlWhole)
    End With
    
    ' 检查订单号是否存在
    If rngidnum Is Nothing Then
        MsgBox "Order Number not found"
        Exit Sub
    End If
    
    ' 保存第一个匹配的单元格地址，防止循环无限重复
    Set firstFound = rngidnum
    
    ' 循环处理所有匹配的行
    Do
        With rngidnum
            If CheckBox1.Value = True Then .Offset(0, 69).Value = Date
            If CheckBox2.Value = True Then .Offset(0, 70).Value = Date
            If CheckBox3.Value = True Then .Offset(0, 71).Value = Date
            If CheckBox4.Value = True Then .Offset(0, 72).Value = Date
            If CheckBox5.Value = True Then .Offset(0, 73).Value = Date
            If CheckBox6.Value = True Then .Offset(0, 74).Value = Date
            If CheckBox7.Value = True Then .Offset(0, 75).Value = Date
        End With
        
        ' 查找下一个匹配项
        Set rngidnum = ws.Range("AB1:AB" & LastRow).FindNext(rngidnum)
        
        ' 当回到第一个匹配单元格时退出循环，避免死循环
    Loop While Not rngidnum Is Nothing And rngidnum.Address <> firstFound.Address
    
    Unload UserForm1
End Sub

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub

Private Sub Frame4_Click()
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Value = Sheets("Form").Range("C3").Value
End Sub

关键改动说明： #

• 新增firstFound变量：用来记录第一个匹配的单元格地址，防止FindNext在遍历完所有匹配项后回到开头，造成无限循环。
• 优化Find方法参数：添加LookIn:=xlValues和LookAt:=xlWhole，确保是精确匹配单元格的完整值，避免出现类似订单号"123"匹配到"1234"的错误。
• 加入Do...Loop循环：遍历所有匹配的单元格，直到找不到下一个匹配项，或者回到第一个匹配单元格时停止循环。

这样修改后，你的UserForm就能把日期写入所有对应订单号的行里，原有功能也会保持正常运行。

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