IFヌル終了サブコード

Question

セルが空かヌルか、メッセージと終了サブが表示されるかどうかを確認しようとしています。ここに私のコードです：

With Worksheets(1).[D3:D4, D6:D14] 
    If WorksheetFunction.CountA(.Cells) = 0 Then 
     MsgBox "Nothing to generate" & vbNewLine & _ 
     "Set parameters and click generate." 
     Exit Sub 
    End If 
End With 

しかし、全体[D3:D4, D6:D14]が空の場合は、コードにのみ機能します。セルのうちの1つだけが空であってもサブを終了したい。すべてのセルにはサブを続けるためのコンテンツが必要です。助けてください。あなたが範囲内Wiki検索する必要が

Answer 1

をまたSpecialCellsを使用することができます。

Sub Check() 
Dim rng1 As Range 
On Error Resume Next 

With Worksheets(1).[D3:D4, D6:D14] 
Set rng1 = .SpecialCells(xlBlanks) 
    If Not rng1 Is Nothing Then 
     MsgBox "Nothing to generate" & vbNewLine & _ 
     "Set parameters and click generate." 
     Exit Sub 
    End If 
End With 

End Sub 

フォローアップの質問

Sub Check2() 
Dim rng1 As Range 
Dim rng2 As Range 

With Worksheets(1) 
Set rng1 = .Range(.[D3:D4], .[D6:D14]) 
End With 

On Error Resume Next 
Set rng2 = rng1.SpecialCells(xlBlanks) 
On Error GoTo 0 

If Not rng1 Is Nothing Then 
    MsgBox rng1.Cells.Count - rng2.Cells.Count & " were used" 
Else 
    MsgBox "all cells used" 
End If 

End Sub 

Answer 2

は、以下のコードを試してみてください。

Sub CheckEmptyCellsinRange() 

Dim Rng  As Range 
Dim cell As Range 

Set Rng = Worksheets(1).[D3:D4, D6:D14] 

For Each cell In Rng 
    If IsEmpty(cell) Or IsNull(cell) Then 
     MsgBox "Nothing to generate" & vbNewLine & _ 
     "Set parameters and click generate." 
     Exit Sub   
    End If 

Next cell 

End Sub