| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 93 人关注过本帖
标题:运行时错误“91”,对象变量或with块变量未设置
只看楼主 加入收藏
leij
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2020-6-8
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:2 
运行时错误“91”,对象变量或with块变量未设置
大佬们求解:调试的时候 Set rngNum = rngNum.EntireColumn.Find(strS)显示”运行时错误“91”,对象变量或with块变量未设置“

代码如下:
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
搜索更多相关主题的帖子: If Then 变量 End 员工 
2020-06-08 10:26
厨师王德榜
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:99
帖 子:591
专家分:2347
注 册:2013-2-16
收藏
得分:14 
在我的电脑上运行无问题,不过由于我的电脑上无userForm1,所以,
'            Load UserForm1
'            UserForm1.Show
这两句我是屏蔽了的.
2020-06-08 10:40
leij
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2020-6-8
收藏
得分:0 
回复 2楼 厨师王德榜
我又运行了一遍,
            'Load UserForm1
出问题,弹出提示:
运行时错误'424'
要求对象
2020-06-08 10:54
快速回复:运行时错误“91”,对象变量或with块变量未设置
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.051122 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved