VBAでFormulaプロパティでセルの計算式を取得する

2016/3/5 VBA

VBAでFormulaプロパティでセルの計算式を取得するには以下のように記述します。

Sub macro()
  Dim txt, i
  Set txt = Range("D9:D10")
  For Each i In txt
    Debug.Print i.Formula
  Next i
End Sub

Sub macro()

Dim txt, i

Set txt = Range("D9:D10")

For Each i In txt

Debug.Print i.Formula

Next i

End Sub

Rangeオブジェクトの戻り値はString型です。またエクセルは以下のようにD9,D10に値がセットされているとします。

結果は以下のようになります。

=C7*D7
=C8+D8

1 2	=C7*D7 =C8+D8

数式を取得したい場合は、Formulaプロパティを使用します。

KHI入社して退社。今はCONFRAGEで正社員です。関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^

VBAでWorksheetオブジェクトを宣言するには以下のように記述します。 Worksheetオブジェクトに値を代入する場合はSet...