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

Excelマクロ(VBA)

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

参考になれば幸いです。

機能紹介

マクロを実行すると、 セルの参照形式を、”A1″なら”R1C1″、”R1C1″なら”A1″形式に変換します。

セルの参照形式が”A1″なら
マクロ実行後、 セルの参照形式が”R1C1″に変換

マクロコード紹介

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

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
   
    '*** VBAエラーコード
    Select Case Err
    Case 0                  'エラーなし
        sMsg = sMsg
    Case Else
        sMsg = "予期せぬエラー Err = " & Err
    End Select
   
    MsgBox sMsg, vbOKOnly + vbCritical
    End
   
End Sub

まとめ

いかがでしたでしょうか。

参考になれば幸いです。

その他、エクセルマクロの便利ツールは以下記事を参照ください。

本稿で紹介したマクロのサポートやカスタマイズ、もしくは新規案件については、条件によって、有償にて対応受付しております。

以下、クラウドワークスないしココナラのアカウントよりご依頼いただければ幸いです。

FIRE太郎さん(その他)に依頼・外注する | 簡単ネット発注なら【クラウドワークス】
日本最大のクラウドソーシング「クラウドワークス」にご登録いただいているFIRE太郎さんのプロフィールです。その他のスキルを持つプロフェッショナルに1時間から仕事を気軽に発注!発注者は手数料無料。
FIRE太郎さん(会社員)のプロフィール | ココナラ
Excelマクロ(VBA)による自動化ツールの作成が得意です。|ブログ「FIRE(早期リタイア)研究所」運営中

コメント

タイトルとURLをコピーしました