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

関連記事

: 入力規則（リストで制限する）Validation.Add メソッド

ドロップダウンリストで入力値を制限 Validation.Add メソッド（また …

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

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

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

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

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

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

: 入力規則（Validation オブジェクト）

Validation オブジェクトセル範囲に入力できる値を制限するには入力規 …

: 指定したセルへ移動（Goto メソッド）

指定したセルへ移動指定したシートの指定したセルへジャンプするには、Goto メ …

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

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

: 使用中のセル範囲を取得（UsedRange プロパティ）

UsedRange プロパティ UsedRange プロパティは、指定したワーク …

: フリガナの設定（Characters プロパティ,PhoneticCharacters メソッド）

Characters プロパティ Characters プロパティは、文字範囲を …

: 連続データを入力する（AutoFill メソッド）

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

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