2次元配列のプロパティrange.formulaを定義する

Question

range.formulaプロパティがどのようにしてより詳細にvbaの基本的なヘルプをどのように動作させるかを説明できるかどうか疑問に思っています。

このプロパティを使用して、すべてのセルが範囲内で空であるかどうかをテストしたいと思います。 （私は知っていると私はそれをテストする方法をたくさん他のコードを入力することができますが、私はこのプロパティを使用して行う方法を探したいと思います）。

たとえば、範囲内のすべてのセル（「A1：A10」）をチェックする場合は、このようにしただけです。

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 

私は細胞の例範囲のために、このようにチェックしたい場合、これはしかし、何を動作しますが、範囲：アゲイン（「A1 X1000」） を私はループと変更しながら、範囲の代わりに、私はあなたが入れ子にできることを知っています（i、j） のようなセルのインデックスですが、再びrange.formulaというプロパティを使用しています。

2次元配列の式を定義する方法については数時間を費やしました。誰でもこのトピックについて詳しく説明できますか？

おかげで、

Answer 1

.formulaプロパティが設定または特定の範囲内に含まれる式を返すために使用されます。範囲に複数のセルが含まれている場合、このプロパティは2次元配列を返します。

私はそれが0を返した場合、すべてのセルが空である次の命令

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

を使用します。

Answer 2

これは何の助けですか？

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：

あなたはループを必要としません。 B2：範囲A1のためにあなただけの空のセルをカウントしようとしている場合

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