Wie definiere ich Eigenschaft range.formula für zweidimensionales Array

Question

Ich frage mich, ob jemand erklären kann, wie property range.formula genauer arbeitet als vba basic help.

Ich möchte diese Eigenschaft verwenden, um zu testen, ob alle Zellen in Reichweite leer sind. (Ich weiß, und ich kann eine Menge anderer Codes eingeben, um es zu testen, aber ich würde gerne Wege finden, wie man diese Eigenschaft benutzt).

Wenn ich zum Beispiel alle Zellen in Reichweite ("A1: A10") überprüfen möchte, habe ich das nur so gemacht.

Private Sub cell_in_range() 
Dim i As Integer 
Dim iTest As Integer 

    i = 1 
    Do While i <= 10 And iTest = 0 
    iTest = VBA.Len(Sheet17.Range("A" & i).Formula) 
    If iTest > 0 Then 
    Call VBA.MsgBox("Not all cells empty") 
    End If 

    i = i + 1 
    Loop 

    If VBA.Len(shee17.Range("A" & i)) = 0 Then 
    Call VBA.MsgBox("All cells empty") 
    End If 


End Sub 

Das funktioniert aber was ist, wenn ich auf diese Weise beispielsweise im Bereich von Zellen überprüfen möchten, reichen („A1: X1000“) Wieder weiß ich, dass anstelle des Bereichs I können Sie verschachtelte while-Schleifen und ändern Zellen Index wie Zellen (i, j) aber auch hier würde ich es tun Eigenschaft mit range.formula

I eine Stunde ausgegeben google wie Formel für die zweidimensionale Anordnung zu definieren. Kann jemand dieses Thema näher erläutern?

Danke,

Answer 1

die .Formula Eigenschaft wird verwendet, um die Formel in einem bestimmten Bereich enthalten ist, zu setzen oder zurück. Wenn der Bereich mehrere Zellen enthält, gibt die Eigenschaft ein zweidimensionales Array zurück.

würde ich die folgende Anweisung

Application.Count(Range("A1:X1000")) 

verwenden, wenn es 0 zurückgibt, werden alle Zellen leer sind.

Answer 2

Ist das eine Hilfe?

Sub formulatest() 
    Dim r As Range, rng As Range 
    Set rng = Range("A1:X1000") 

    For Each r In rng 
     If r.HasFormula Then 
      MsgBox "cell " & r.Address & " has a formula" 
      Exit Sub 
     End If 
    Next r 
    MsgBox "no cells have formulas" 
End Sub 

EDIT # 1:

Sie brauchen keine Schleifen. Für den Bereich A1: B2:

Sub dural() 
    Dim rng As Range 
    Set rng = Range("A1:B2") 

    arr = rng.Formula 

    For Each a In arr 
     MsgBox a 
    Next a 
End Sub