Excelの数式を絶対参照に一括変換するVBAマクロ

この記事ではマクロ（VBA）を使用します。
マクロ初挑戦の方はこちらの記事からスタートすることをお勧めします。
Excelのマクロ初期設定ガイド

---

---

1．はじめに：こんな人に使ってほしい！

• 数式コピーしたら参照がズレて大惨事
• 一つずつF4キーを押して絶対参照に直してる自分がむなしい
• 数式いっぱいあるのに…全部手動で変換！？

---

🔥こんな人に特にオススメ！

• データ分析や帳票で複雑な数式を大量に扱っている方
• コピー先でも参照位置を変えたくない人
• **効率厨（←タスク）**でF4キーの消耗を無くしたい人

---

2. マクロ：コード全文紹介

Sub 参照スタイルを選んで変換()
    Dim rng As Range
    Dim cell As Range
    Dim formulaText As String
    Dim answer As VbMsgBoxResult
    Dim toAbsolute As XlReferenceType

    ' 参照スタイルを選択
    answer = MsgBox("参照スタイルを選んでください。" & vbCrLf & _
                    "はい：絶対参照（$A$1）" & vbCrLf & _
                    "いいえ：相対参照（A1）", _
                    vbYesNoCancel + vbQuestion, "参照スタイル変換")

    If answer = vbCancel Then Exit Sub
    If answer = vbYes Then
        toAbsolute = xlAbsolute
    Else
        toAbsolute = xlRelative
    End If

    Set rng = Selection

    For Each cell In rng
        If cell.HasFormula Then
            formulaText = cell.Formula
            formulaText = Application.ConvertFormula( _
                Formula:=formulaText, _
                FromReferenceStyle:=xlA1, _
                ToReferenceStyle:=xlA1, _
                ToAbsolute:=toAbsolute)
            cell.Formula = formulaText
        End If
    Next cell
End Sub

---

🔧使い方は超カンタン！
① 数式のあるセルを選択 → ② マクロを実行 → ③「はい（絶対）」「いいえ（相対）」を選択するだけ！

---

---

3. 便利に使うコツ：リボンに登録しよう

---

🎯登録手順（かんたん3ステップ）

1. 開発タブ → マクロの表示 → マクロ名「参照スタイルを選んで変換」 を選択
2. オプション → ショートカットキーを設定（例：Ctrl+Shift+R）してもOK
3. さらに便利にするなら、リボンやクイックアクセスツールバーに追加！

※ 詳しくはリボン登録の記事こちら👇
【切り抜き】マクロをリボンに追加しよう！

---

4. まとめ：これで作業効率爆上がり！

✅ 数式内の参照形式を一括で変換
✅ 絶対参照にも相対参照にも対応
✅ 選択肢付きのスマートUIで、操作もラクラク！

🔥 ジッピー締めのあいさつ