Überprüfen Sie mehrere Zellen und Meldungsfeld, wenn Daten fehlen

Question

Gibt es eine Möglichkeit, mehrere Bereiche zu überprüfen, wenn sie leer sind, dann ein Meldungsfeld anzeigen und mir sagen, welche Daten fehlen? Im Moment tippe ich das aus und mache viele verschiedene. Ich frage mich, ob es einen leichteren Weg gibt?

My beträgt: Range ("C11: D11, F11: G11, I11: J11, C14: F14, I14: J14, C15: F15, I15: J15, B18: J18, B42: J42"))

If WorksheetFunction.CountA(Range("C9:E9")) = 0 Then 
Worksheets("Create Form").Range("C9:E9").Select 
MsgBox "Please enter information in the required fields." 
Exit Sub 
End If 

If WorksheetFunction.CountA(Range("H9:J9")) = 0 Then 
Worksheets("Create Form").Range("H9:J9").Select 
MsgBox "Please enter information in the required fields." 
Exit Sub 
End If 

Danke

Answer 1

es gibt einen Weg durch die Verwendung eines For Schleife durch alle Areas dieser Strecke mehrere Range, und in dem folgenden Code wird umgesetzt zu überprüfen.

Überprüfen Sie dann für jede CurRng (Represning eines Bereichs), ob WorksheetFunction.CountA(CurRng) = 0.

-Code

Option Explicit 

Sub CheckMultipleRanges() 

Dim MyMultiRng  As Range 
Dim CurRng   As Range 

With Worksheets("Create Form") 
    ' use a variable to set the multiple ranges in it 
    Set MyMultiRng = .Range("C11:D11,F11:G11,I11:J11,C14:F14,I14:J14,C15:F15,I15:J15,B18:J18,B42:J42") 

    ' loop through all areas in the multi-range 
    For Each CurRng In MyMultiRng.Areas 
     If WorksheetFunction.CountA(CurRng) = 0 Then 
      CurRng.Select 
      MsgBox "Please enter information in the required fields." 
      Exit Sub 
     End If 
    Next CurRng 
End With 

End Sub