代码为什么运行错误

wenjie242922

写了一段如下代码：


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Target.Address = "$B$3" Then
        With ThisWorkbook.Sheets("统计模板")
            Set rng = .Range("b:b").Find(ThisWorkbook.Sheets("兑换小票").Range("b3").Value)
        End With
        With ThisWorkbook.Sheets("兑换小票")
            .[j2] = rng(1, 0)
            .[D2] = rng(1, 2)
            .[D3] = rng(1, 3)
            .[B4] = rng(1, 7)
        End With
    End If
End Sub

现在的问题是：单独打开此工作簿时运行完全正常！但是只要打开了另一个工作簿，这个代码就运行不正常了,rng就显示Nothing了.请教高手，这是怎么回事呢？（需要说明的是：两个工作簿也没有同名的工作表）

ww87725244

关键是thisworkbook，你新打开一个工作簿，thisworkbook就表示新工作簿，所以就。。。。
解决：试试workbooks("名称").worksheet()

512008404

这句Set rng = .Range("b:b").Find(ThisWorkbook.Sheets("兑换小票").Range("b3").Value)，当没有找到值就会报错。后面加一句 if rng is nothing then exit sub

wenjie242922

512008404 发表于 2023-7-23 16:12
这句Set rng = .Range("b:b").Find(ThisWorkbook.Sheets("兑换小票").Range("b3").Value)，当没有找到值就 ...

问题是此工作簿中有值的。单独打开工作簿，每次都能找到值。如果打开有其它工作簿，此代码就找不到值了。

wenjie242922

ww87725244 发表于 2023-7-23 15:24
关键是thisworkbook，你新打开一个工作簿，thisworkbook就表示新工作簿，所以就。。。。
解决：试试workbo ...

还是一样的，只要随便打开一个工作簿，rng就找不到值了。而这个值肯定是存在的。因为单独打开有此代码的工作簿，就完全运行正常。我试过很多次了，任何时候单独打开此工作簿，就完全运行正常。一旦打开了任意一个工作簿，rng就找不到值了。

xunanming

wenjie242922 发表于 2023-7-23 18:38
还是一样的，只要随便打开一个工作簿，rng就找不到值了。而这个值肯定是存在的。因为单独打开有此代码的 ...

如2 楼所述,你用的是thisworkbook,当打开其他工作簿时,就默认新打开的工作簿为thisworkbook了,自然就找不到值了.所以
With ThisWorkbook.Sheets("统计模板")改成 with workbooks(工作簿名称).sheets()才能始终指向执行代码的工作簿.

沈默00

2楼正解，更换成对应的worksheets名称试一下

fenghuaxue

你在打开另外一个工作簿的情况下，执行到这段代码时，添加打印 ThisWorkbook.Sheets("兑换小票").Range("b3").Value ，看能否取到数据，多加几个Debug.Print() 看看是哪里取的数据不正确。

wenjie242922

xunanming 发表于 2023-7-24 00:51
如2 楼所述,你用的是thisworkbook,当打开其他工作簿时,就默认新打开的工作簿为thisworkbook了,自然就找不 ...

谢谢您！我试过了，还是不行。

petergaod

ww87725244 发表于 2023-7-23 15:24
关键是thisworkbook，你新打开一个工作簿，thisworkbook就表示新工作簿，所以就。。。。
解决：试试workbo ...

你说的是activeworkbook，thisworkbook不一样