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 オブジェクト,IMEMode プロパティ

IMEMode プロパティ Validation.IMEMode プロパティを …

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

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

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

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

: ワイルドカードを使って検索（Find メソッド）

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

: 書式で検索（Find メソッド,FindFormat プロパティ）

書式で検索書式を条件にセルを検索する場合、まず、その書式条件を CellFor …

: セルの表示形式を設定・取得する（NumberFormat プロパティ）

NumberFormat プロパティ NumberFormat プロパティは、現 …

: セルの位置を取得（Left プロパティ、Top プロパティ）

Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …

: セル内の編集を禁止する（EditDirectlyInCell プロパティ）

EditDirectlyInCell プロパティエクセルでは、セルをダブルクリ …

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

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

: オートフィルタ（抽出条件で使用できる演算子・記号）AutoFilter メソッド

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

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