IF Null exit sub code

Question

셀이 비어 있거나 널 (null)이면 메시지와 종료 서브를 표시하는지 확인하려고합니다. 여기에 내 코드입니다 :

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]가 비어있는 경우 코드에만 작동합니다. 셀 중 하나라도 비어 있어도 하위로 나가기를 원합니다. 모든 세포에는 sub가 계속되기위한 내용이 필요합니다. 도와주세요.

당신은 범위 내에서 seach 필요

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