运行时错误'424' 要求对象
调试的时候,标亮的错误点: Load UserForm1代码如下:
Option Explicit
Public frmStatus As String
Public rowNum As Integer
Sub 查询员工信息()
Dim strS As String
Dim intRow As Integer
Dim rngNum As Range, rngName As Range
strS = InputBox("请输入员工的编号或姓名", "员工查询")
If strS <> "" Then
Set rngNum = Sheets("员工个人信息表").UsedRange.Find("编号")
Set rngName = Sheets("员工个人信息表").UsedRange.Find("姓名")
If rngNum Is Nothing Or rngName Is Nothing Then
MsgBox "员工个人信息表错误,无法进行操作"
Exit Sub
End If
intRow = -1
Set rngNum = rngNum.EntireColumn.Find(strS)
If rngNum Is Nothing Then
Set rngName = rngName.EntireColumn.Find(strS)
If Not (rngName Is Nothing) Then
intRow = rngName.Row
End If
Else
intRow = rngNum.Row
End If
If intRow > 0 Then
frmStatus = "查询"
rowNum = intRow
Load UserForm1
UserForm1.Show
Else
MsgBox "没找到与“" & strS & "”相关数据!", , "提示"
End If
End If
End Sub