UC知道VBA初学者的简单问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 03:41:02
Sub 查询按钮()
Dim index As Integer
Dim introw As Integer
Dim rngname As Range
Dim strs As String
strs = InputBox("查询姓名", "提示")
Set rngname = Sheets("sheet1").UsedRange.Find("姓名")
Set rngname = rngname.EntireColumn.Find(strs)
introw = rngname.Row
If introw > 0 Then
strsatus = "查询"
intcurrent = introw
frmnew.Show (到这里就出现了“1004 应用程序或对象定义错误”
End If
End Sub
frmnew窗口我已编辑，在其它地方用frmnew.Show都能打开，为啥这里不能打开？？？？
Dim index As Integer
Dim introw As Integer
Dim rngname As Range
Dim strs As String
strs = InputBox("查询姓名", "提示")
Set rngname = Sheets("sheet1").UsedRange.Find("姓名")
Set rngname = rngname.EntireColumn.Find(strs)
introw = rngname.Row
If introw > 0 Then
strsatus = "查询"
intcurrent = introw
frmnew.Show (到这里就出现了“1004 应用程序或对象定义错误”
End If
End Sub
frmnew窗口我已编辑，在其它地方用frmnew.Show都能打开，为啥这里不能打开？？？？
这个错误连VB自己都不在知道，你可能要上网查一下这个错误号
是不是你打开了对象？
Set rngname = Sheets("sheet1").UsedRange.Find("姓名")
Set rngname = rngname.EntireColumn.Find(strs)
中断跳过这两句话，直接到
frmnew.Show
看有没有问题，如果没问题那就是上面两句的问题
还有哦，怎么连续用了两个Set rngname =
只用一个行了吧？
重点检查两个Set rngname =
要不你在frmnew.Show 之前加一个Set rngname =nothing看看
我在VBA中测试过了，代码没有问题，不会出现你指的错误。
你看看你的窗口名称是不是frmNew？如果不是会报对象错误。