Excel VBAでランタイムエラー91

Question

VBAの空白と空白以外のセルをチェックするこの機能があります。

Object variable or With block Variable not set

Set rng = main.Range(rng1 & [rng2].Find("*", , , , , xlPrevious).Row) 

しかし、私はそれを実行した場合、それはない、時には：この行はエラーを返します

If toCheckBlanks("O23:O", Range("O23:O32")) Then exit sub 

：

Function toCheckBlanks(rng1 As String, rng2 As Range) 
Dim iBlank&, iNonBlank& '& declare variables as long 
Set main = ThisWorkbook.Sheets("Main") 
Dim rng As Range 
Set rng = Nothing 

Set rng = main.Range(rng1 & [rng2].Find("*", , , , , xlPrevious).Row) 

With WorksheetFunction 
    iNonBlank = .CountA(rng) 'count non-blank 
    iBlank = .CountBlank(rng) ' count blank 
End With 

If iBlank > 0 Then 
    toCheckBlanks = True 
End If 

Set rng = Nothing 
End Function 

は、私はそれをこの方法を使用することを試みましたエラーがあり、それ以外はエラーが発生します。 いずれかのヘッドアップ？

Answer 1

あなたの関数の構文は、まずあなたもあなただけtoCheckBlanksの値を設定する（値が関数によって返されるすなわち

Function toCheckBlanks(rng1 As String, rng2 As Range) as Boolean 

関数の戻り値のデータ型を指定する必要があり

あまり良くありません）を条件（iBlank> 0）のif文に追加します。したがって、iBlankが< = 0の場合、関数は正しく動作しません。 toCheckBlanksが常に設定されていることを確認する必要があります。通常、これは関数の先頭でデフォルト値に初期化することによって行われます。

コードにノイズや不要な行がたくさんあるようです。整頓

Answer 2

はこれを試してみてください：

Function toCheckBlanks(rng1 As String, rng2 As Range) As Boolean 
    Dim iBlank&, iNonBlank& '& declare variables as long 
    Dim FindResult As Range 
    Set main = ThisWorkbook.Sheets("Sheet1") 
    Dim rng As Range 

    Set FindResult = rng2.Find("*", , , , , xlPrevious) 
    If FindResult Is Nothing Then 
     'do whatever is appropriate if rng2 is Empty 
     '... 
     toCheckBlanks = False 
    Else 
     Set rng = main.Range(rng1 & FindResult.Row) 

     With WorksheetFunction 
      iNonBlank = .CountA(rng) 'count non-blank 
      iBlank = .CountBlank(rng) ' count blank 
     End With 

     toCheckBlanks = iBlank > 0 

    End If 
End Function 

Answer 3

私はあなたにそれを短縮することができると思う：あなたは `評価カッコ内rng2`ていないのはなぜ

Function toCheckBlanks(rng1 As String, rng2 As Range) As Boolean 
    Dim rng As Range 

    Set rng = rng2.Find("*", , , , , xlPrevious) 
    If Not rng Is Nothing Then 
     Set rng = ThisWorkbook.Sheets("Main").Range(rng1 & rng2.Find("*", , , , , xlPrevious).Row) 
     toCheckBlanks = WorksheetFunction.CountBlank(rng) > 0 
    End If 
End Function