Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/cocoa/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 使用“查找”后出现错误91(对象变量或未设置块变量)_Excel_Vba - Fatal编程技术网

Excel 使用“查找”后出现错误91(对象变量或未设置块变量)

Excel 使用“查找”后出现错误91(对象变量或未设置块变量),excel,vba,Excel,Vba,在关闭工作簿之前,VBA中的一些代码工作正常,但在第二天打开工作簿时显示 错误91:未设置对象变量或带块变量 我不明白发生了什么事 错误消息 错误91:未设置对象变量或带块变量 表示变量acell为Nothing,因为find()方法未找到任何内容!使用find后,您需要检查它是否成功: If Not acell Is Nothing Then 'something was found Debug.Print acell.Column Else 'nothing was

在关闭工作簿之前,VBA中的一些代码工作正常,但在第二天打开工作簿时显示

错误91:未设置对象变量或带块变量

我不明白发生了什么事

错误消息

错误91:未设置对象变量或带块变量

表示变量
acell
Nothing
,因为
find()
方法未找到任何内容!使用
find
后,您需要检查它是否成功:

If Not acell Is Nothing Then
    'something was found
    Debug.Print acell.Column
Else
    'nothing was found
    Debug.Print "find returned nothing"
End If


要进一步调查您的问题,请输入代码并检查变量的值。例如变量
hq

请不要发布一个小屏幕截图,在这里发布您的实际代码,清楚地指出错误行。您可以发布一个指向示例xlsm文件的链接吗?@patel在堆栈溢出时,没有选项在这里上载文件,因为我们不接受文件。代码(或a)必须在问题本身的格式为代码块(Ctrl+K)@Peh,我知道,但我要求一个链接,外部链接,没有上传here@patel请注意,外部链接可能会在一段时间后消失,这个问题就变得毫无用处了。根据规范,必须在问题中此外,我们不会信任来自未知源的、可以执行代码的文件;)我正在搜索的文本(hq)是给定的范围(Y1:Ez1)。那么为什么find不起作用呢。另一件事是,当我写这段代码时,它正在工作,这个错误是在重新启动excel之后开始的:-(。请帮助我为此付出了很大的努力&现在它不工作了。Hq在给定范围内(y1:ez1)。为什么find无法搜索文本。请解释。我无法判断出现了什么问题。您需要调试代码。我只能说,
hq
的值在
asheet.Range(“$Y$1:$EZ$95”)
中找不到。请确保没有其他空格等。
If Not acell Is Nothing Then
    'something was found
    Debug.Print acell.Column
Else
    'nothing was found
    Debug.Print "find returned nothing"
End If