エクセルVBA「セルの参照形式をA１⇔R1C1参照形式に変換する」

エクセルVBAの便利マクロ「セルの参照形式を、”A1″形式なら”R1C1″形式、”R1C1″形式なら”A1″形式に変換するマクロ」をシェアします。

参考になれば幸いです。

機能紹介
マクロコード紹介
まとめ

機能紹介

A1形式とは、列をA,B,C～、行を1,2,3～と表示・指定する形式です。

R1C1形式とは、列も行も数字で表示・指定する形式です。

本記事で紹介するマクロを実行すると、対象のブックの、セルの参照形式を、”A1″なら”R1C1″、”R1C1″なら”A1″形式に変換します。

マクロコード紹介

コードは以下の通りです。

Option Explicit

'*** Private変数宣言

Private nErr         As Integer
Private sMsg         As String
'
'### 参照形式変換プロシージャ
'### セルの参照形式を、"A1"なら"R1C1"，
'### "R1C1"なら"A1"形式に変換する。


Sub 参照形式変換()

On Error GoTo ErrChk
   
    '*** 初期設定
    nErr = 0
   
    '*** 参照形式変換
    Select Case Application.ReferenceStyle
   
    Case xlA1
        Application.ReferenceStyle = xlR1C1
       
    Case xlR1C1
        Application.ReferenceStyle = xlA1
       
    End Select
   
    '*** 終了処理
    Exit Sub
   
ErrChk:
    '*** ユーザーエラーコード
    Select Case nErr
    Case 0                  'エラーなし
        sMsg = sMsg
    Case Else
        sMsg = "予期せぬエラー nErr = " & nErr
    End Select
   
    '*** ＶＢＡエラーコード
    Select Case Err
    Case 0                  'エラーなし
        sMsg = sMsg
    Case Else
        sMsg = "予期せぬエラー Err = " & Err
    End Select
   
    MsgBox sMsg, vbOKOnly + vbCritical
    End
   
End Sub