【エクセルVBA】選択範囲の数式を一括で絶対参照にするVBA

あのー、ExcelのVBAで、選択範囲の数式を一括で絶対参照にするコードは分かりますか？？

はい、可能ですよ。

本当ですか、教えてほしいです！！

サンプルコードをご紹介しましょう！

Excelの選択範囲の数式を一括で絶対参照にするコードをご紹介します。

マクロ機能が有効なExcelブック「.xlsm」を作成

Excelブック「.xlsm」の作成方法が不明な場合は、下記の記事を参考にして下さい。
【エクセルVBA】マクロ機能が有効なExcelブック「.xlsm」の作り方

コードを標準モジュールに貼り付け

標準モジュールの開き方が不明な場合は、下記の記事を参考にして下さい。
【エクセルVBA】標準モジュールの開き方

標準モジュールを開いて、下記のコードを貼り付けて下さい。

コード

選択範囲の数式を一括で絶対参照にする

Sub 選択範囲のセルの数式を絶対参照にする()

    'メッセージ表示
    rc = MsgBox("選択範囲セルの数式を絶対参照に変換しますか？？" & Chr(13) & _
                "※この処理はCtrl+Zでは戻せません。" & Chr(13) & _
                "戻したい場合は、置換機能等で「$」を削除して下さい。", vbYesNo + vbQuestion, "マクロ実行前の確認")

    If rc = vbYes Then

        '画面更新停止
        Application.ScreenUpdating = False
        
        Dim rng As Range
        
        For Each rng In Selection
        With rng
            If .HasFormula Then
            .Formula = Application.ConvertFormula( _
                Formula:=.Formula, _
                FromReferenceStyle:=xlA1, _
                ToAbsolute:=xlAbsolute)
            End If
        End With
        Next rng
        
    Else
        
        'メッセージ表示
        MsgBox "キャンセルされました。処理を終了します。"
        
    End If

End Sub