2

私はこれを持っています

Set rngFound = Selection.Find(What:=Trim(prirustek.Cells(i, 1).Value), LookIn:=xlValues, LookAt:=xlWhole)

そして、このような何かをする必要があります：

If rngFound Is Nothing Or rngFound = "" Then
...

ただし、このコードは「オブジェクト変数またはブロック変数が設定されていない（エラー91）」で停止します。この問題は何もないrngFoundにあると思いますが、どうすれば作成できますか

rngFound = ""

IFステートメントで？

4

4 に答える 4

2

これを試してみてくださいIf IIf(rng Is Nothing, "", rng) = "" Then

最初に全体のnothing状況を扱います。Nz()これはAccessのようなものです。

于 2013-02-05T13:10:00.400 に答える
0

試すIf rngFound Is Nothing Or rngFound.Value = "" Then

于 2013-02-05T12:40:51.013 に答える
0

どうですか：

Private Function isRangeEmptyOrNothing(r As Range) As Boolean

  If r Is Nothing Then
    isRangeEmptyOrNothing = True
  ElseIf IsEmpty(r) Then
    isRangeEmptyOrNothing = True
  ElseIf r = "" Then 'Not sure if this is redundant with IsEmpty
    isRangeEmptyOrNothing = True
  End If

End Function

次に、メインコードで：

If isRangeEmptyOrNothing(rngFound) Then
于 2013-02-05T12:46:17.673 に答える
0

次のことを試すことができます。

If rngFound = Empty Then ...

また

If isNull(rngFound) = true Then ...
于 2013-02-05T12:48:46.733 に答える