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

関連記事

: オートフィルタの状況を確認（AutoFilterMode, FilterMode)

AutoFilterMode プロパティ AutoFilterMode プロパテ …

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

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

: 入力規則（エラーメッセージの設定）Validation オブジェクト

無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …

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

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

: 重複するデータを削除（RemoveDuplicates メソッド）

RemoveDuplicates メソッド指定したセル範囲から重複データを含む …

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

AutoFilter メソッド【書式】 object.AutoFilter ( …

: 外枠罫線の設定（BorderAround メソッド）

外枠罫線の設定罫線の設定には、Borders プロパティを使用しますが、範囲内 …

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

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

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

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

: 列幅を取得・設定・する（ColumnWidth プロパティ）

ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …

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