セル参照方法として A1形式 と R1C1形式 の2種類があります。デフォルトでは A1形式が使用されますが、必要に応じて R1C1形式に切り替えることができます。この切り替えを VBA で操作する場合に役立つのが、Application.ReferenceStyle プロパティです。
Application.ReferenceStyle プロパティの使い方と活用例を解説します。
目次
Application.ReferenceStyle プロパティとは？
Application.ReferenceStyle プロパティは、Excel のセル参照形式を切り替えるために使用されます。
プロパティの設定値
| 定数 | 値 | 説明 |
|---|---|---|
xlA1 | 1 | A1形式（列文字＋行番号、例: A1） |
xlR1C1 | -4150 | R1C1形式（行番号＋列番号、例: R1C1） |
【基本構文】
Application.ReferenceStyle = 定数
A1形式とR1C1形式の違い
A1形式
- 列をアルファベット、行を数字で指定します。
- 例:
A1、B2
R1C1形式
- 行を
R、列をCとし、数値で指定します。 - 例:
R1C1（絶対参照）、R[1]C[1]（相対参照）
A1形式に切り替える
セル参照形式を A1形式に設定します。
Sub SetA1Style()
Application.ReferenceStyle = xlA1
MsgBox "参照形式が A1 形式に設定されました。"
End Sub
R1C1形式に切り替える
セル参照形式を R1C1形式に設定します。
Sub SetR1C1Style()
Application.ReferenceStyle = xlR1C1
MsgBox "参照形式が R1C1 形式に設定されました。"
End Sub
現在の参照形式を確認
現在設定されている参照形式を確認するには、以下のコードを使用します。
Sub CheckReferenceStyle()
Dim currentStyle As String
If Application.ReferenceStyle = xlA1 Then
currentStyle = "A1"
ElseIf Application.ReferenceStyle = xlR1C1 Then
currentStyle = "R1C1"
End If
MsgBox "現在の参照形式は " & currentStyle & " 形式です。"
End Sub
一時的に R1C1 形式を使用する
R1C1形式を一時的に有効化して数式を設定し、その後 A1形式に戻す例です。
Sub TemporaryR1C1Usage()
Dim originalStyle As Long
' 現在の参照形式を保存
originalStyle = Application.ReferenceStyle
' R1C1形式に切り替え
Application.ReferenceStyle = xlR1C1
Range("A1").FormulaR1C1 = "=R2C2*2" ' 数式を設定
' 元の形式に戻す
Application.ReferenceStyle = originalStyle
MsgBox "参照形式を元に戻しました。"
End Sub
動的な数式の設定
セルの内容に応じて、A1形式またはR1C1形式を切り替えて数式を設定する例です。
Sub DynamicFormulaSetting()
Dim useR1C1 As Boolean
useR1C1 = MsgBox("R1C1形式を使用しますか？", vbYesNo) = vbYes
If useR1C1 Then
Application.ReferenceStyle = xlR1C1
Range("A1").FormulaR1C1 = "=R2C2+R3C3"
Else
Application.ReferenceStyle = xlA1
Range("A1").Formula = "=B2+C3"
End If
MsgBox "数式が設定されました。"
End Sub
参照形式に応じた数式の取得
現在の参照形式に応じて数式を取得し、それを表示する例です。
Sub GetFormulaByReferenceStyle()
Dim formulaText As String
If Application.ReferenceStyle = xlA1 Then
formulaText = Range("A1").Formula ' A1形式で数式を取得
ElseIf Application.ReferenceStyle = xlR1C1 Then
formulaText = Range("A1").FormulaR1C1 ' R1C1形式で数式を取得
End If
MsgBox "セル A1 の数式は: " & formulaText
End Sub
注意点とベストプラクティス
- 参照形式の切り替えの影響
Application.ReferenceStyleを切り替えると、Excel 全体の設定が変更されます。必要がない場合は切り替えを避けるか、一時的な使用に留めましょう。 - 元の参照形式を保存して復元する
他のマクロやユーザー設定に影響を与えないよう、コード内で形式を元に戻す処理を組み込むのが安全です。 - Formula と FormulaR1C1 の違いを理解する
- A1形式の数式には
Formulaプロパティを使用。 - R1C1形式の数式には
FormulaR1C1プロパティを使用。
- A1形式の数式には
- ユーザーへの通知
参照形式を変更するマクロを実行する際は、ユーザーに通知を行うか、明示的な同意を求めると良いでしょう。
まとめ
Excel VBA の Application.ReferenceStyle プロパティを使うと、セル参照形式を簡単に切り替えることができます。主なポイントを整理すると：
- A1形式: 一般的な形式で直感的に使用可能。
- R1C1形式: 動的な参照や数式生成に適している。
- 実務的な活用: 動的な数式設定や一時的な形式切り替えで柔軟な操作が可能。