Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

数式を設定・取得する（Formula プロパティ・FormulaR1C1 プロパティ）

2015/06/15

Formula プロパティ（FormulaR1C1 プロパティ）

Formula プロパティは、A1形式で、数式を取得・設定します。
FormulaR1C1 プロパティは、R1C1形式で、数式を取得・設定します。

【書式】

＜取得＞
result = Object.Formula

result = Object.FormulaR1C1

＜設定＞
Object.Formula = objform

Object.FormulaR1C1 = objformr1c1

引数・戻り値

object ・・・対象となるRange オブジェクト
objform ・・・ A1形式による数式を表す文字列を指定
objformr1c1 ・・・ R1C1形式による数式を表す文字列を指定
result ・・・取得した数式を表す文字列や値

セルに数式が入力されているときは、等号（=）を含む文字列として返します。
また、セルに定数が入力されているときは、その定数を返し、セルが空のときは空の文字列を返します。

セルの値または数式に日付を設定するときに書式が設定しなかった場合、数値書式は標準の日付の短い形式になります。

対象セル範囲が 1 次元または 2 次元のセル範囲のときは、同じ次元を持つ Visual Basic の配列から各セルの数式を設定できます。同様に、各セルの数式を Visual Basic の配列に代入することもできます。

セル範囲に数式を設定すると、範囲内のすべてのセルにその数式が入ります。

セルの中の値をユーザーが使っている言語で取得・設定するには、FormulaLocal プロパティまたは、FormulaR1C1Local プロパティを使用します。

Formula プロパティ・FormulaR1C1 プロパティの使用例

サンプルVBAソース

　
Sub Sample_Formula()
    
    '日付入力
    Range("B1").Formula = "=text(today(), ""m月dd日"")"
        
    '数式入力
    Dim myArray(1 To 2)
    
    myArray(1) = "= F4 * 5%"
    myArray(2) = "= SUM(F4:G4)"
    
    Range("G4:H8").Formula = myArray
    
    '表示
    Dim myArray2, myArray3, v, myStr
    
    myArray2 = Range("F4:G8").Formula
    myArray3 = Range("H4:H8").FormulaR1C1
    
    For Each v In myArray2
    
        myStr = myStr & v & Chr(13)
    
    Next v
    
    For Each v In myArray3
    
        myStr = myStr & v & Chr(13)
    
    Next v
    
    MsgBox myStr
    

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

　

Sub Sample_Formula()

'日付入力

Range("B1").Formula = "=text(today(), ""m月dd日"")"

'数式入力

Dim myArray(1 To 2)

myArray(1) = "= F4 * 5%"

myArray(2) = "= SUM(F4:G4)"

Range("G4:H8").Formula = myArray

'表示

Dim myArray2, myArray3, v, myStr

myArray2 = Range("F4:G8").Formula

myArray3 = Range("H4:H8").FormulaR1C1

For Each v In myArray2

myStr = myStr & v & Chr(13)

Next v

For Each v In myArray3

myStr = myStr & v & Chr(13)

Next v

MsgBox myStr

End Sub

　

実行結果

サンプルVBAソース実行前

実行後

- セルの操作 Formula プロパティ, FormulaLocal プロパティ, FormulaR1C1 プロパティ, FormulaR1C1Local プロパティ, Range オブジェクト, VBA基本, エクセルVBA, セルの操作, 数式

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 行・列の表示・非表示（Hidden プロパティ）

Hidden プロパティ Hidden プロパティに True を設定することで …

: セルが選択されているか確認する（TypeName 関数）

セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …

: セル範囲内を検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: ハイパーリンク（Hyperlinks オブジェクト）

Hyperlinks オブジェクトワークシートまたはセル範囲のワークシートコレ …

: セル内部を参照（Interior プロパティ）

Interior プロパティ Interior プロパティで、セルの内部を参照し …

: セルに値を設定する・セルの値を参照する（Value プロパティ）

Value プロパティ Value プロパティは、セルの値を取得したり、値を設定 …

: 任意の行または列を参照（Rows プロパティ,Columns プロパティ）

Rows プロパティ・Columns プロパティ Rows プロパティは、オブジ …

: セルをアクティブにする・セルを選択する（Activate, Select）

セルをアクティブにする・選択する【書式：セルをアクティブにする】 object …

: オートフィルタ（日付フィルタ）AutoFilter メソッド

日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …

: オートフィルタ（日付による抽出）AutoFilter メソッド

日付で、抽出する（AutoFilter メソッド）【書式】 object.Au …

PREV: セルのアドレスを確認（Address プロパティ）
NEXT: 対象のセル・セル範囲に数式があるかどうか調べる（HasFormula プロパティ）