VBA 数式が入っているセルに一括値貼り付けする

数式が入っているセルに一括値貼り付けする

Sub test()
　   ’　数式が入っているセルに一括値貼り付けする

    Dim myRange As Range

   ’　数式入っているセルを特定
    Set myRange = ActiveCell.SpecialCells(xlCellTypeFormulas)

   ’　一度再計算する
    Application.Calculation = xlCalculationAutomatic

    With myRange
       ' 値貼り付ける
        .Value = .Value
       ' 　背景色緑色にする
        .Interior.Color = vbGreen
    End With

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA セルの操作　セルの選択』

『VBA　セルの値が数値かを判定したい』

『VBA セルの数式を値に変換する』

『VBA セルの操作 空白セルの選択』