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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 対象のセルを参照している全てのセルを取得（Dependents プロパティ）

Dependents プロパティ Dependents プロパティは、対象のセル …

: 別シートのセルを選択（Goto メソッド／ PreviousSelections プロパティ）

Goto メソッド次の例のように、1 行で、Activate メソッドや S …

: 非連続のセルが選択されているか確認する（Areas コレクション）

Areas コレクションの使い方複数の離れた位置にあるセル範囲を選択した場合 …

: セルの高さ・幅を取得（Height プロパティ・Width プロパティ）

Height プロパティ・Width プロパティ Height プロパティは、指 …

: アクティブなセルを参照する（ActiveCell プロパティ）

ActiveCell プロパティ ActiveCell プロパティは、各ウィンド …

: 文字列の一部の書式を変更（Characters プロパティ）

文字列の一部を参照（Characters プロパティ） Characters プ …

: 罫線の設定（Borders プロパティ）

罫線の設定罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: 文字の向きを表す値を取得・設定する（Orientation プロパティ）

Orientation プロパティ Orientation プロパティで、文字列 …

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

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