单条件改双条件，求助VBA代码。谢谢

YSZHJ

原代码：
Sub cx()
  no = Cells(2, 4)   '想改成两个条件
  Dim r%
  With Sheets("登记表")
  Set c = .Range("a:a").Find(no, , , , , 1)
  Application.ScreenUpdating = False
  If c Is Nothing Then
     MsgBox "没有找到第" & no & "号文件"
     Exit Sub
  Else
     r = c.Row
     Range("b3") = .Range("j" & r)
     Range("b4") = .Range("e" & r)
  Application.ScreenUpdating = True
    End If
   End With
  End Sub

3190496160

Sub cx()
Application.ScreenUpdating = False
ls = [d2]
nd = [c2]
Dim r%
With Sheets("登记表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:m" & r)
End With
For i = 3 To UBound(ar)
    If ar(i, 1) = ls And ar(i, 2) = nd Then
        xh = i
        Exit For
    End If
Next i
If xh = "" Then MsgBox "没有符合条件的数据！": End
Range("b3") = ar(xh, 10)
Range("b4") = ar(xh, 5)
Application.ScreenUpdating = True
End Sub

3190496160

呈报表.rar (10.71 KB, 下载次数: 16)

2023-1-9 09:50 上传

点击文件名下载附件

YSZHJ

谢谢老师，问题已解决。