エクセル小僧：選択したセルの数式を消して、計算結果を残す。

選択したセルの数式（例：=4*2）を消して、計算結果（例：8）を残すマクロを作ってみました。

こんなマクロです。選択したセルが式じゃなかったり、エラーだったり、空白の場合は実行しません。

Sub UMPwVal1()
  ' 【機能】選択したセルをコピーして、値のみコピー（式を消す）
  If Not (Selection.HasFormula) Then
    MsgBox (Selection.Address & "は式ではありません。")
    Exit Sub
  End If
  If IsError(Selection) Then
    MsgBox (Selection.Address & "はエラーです。")
    Exit Sub
  End If
  If Selection = "" Then
    MsgBox (Selection.Address & "は空白です。")
    Exit Sub
  End If
  ' 選択したセルをコピー
    Selection.Copy
  ' 値のみペースト
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
  ' コピーを無効にする
    Application.CutCopyMode = False
End Sub

タグ：エクセル VBA HasFormula IsError PasteSpecial CutCopyMode

コメント 1

ヤバイぜ!　ありがとうございます[__猫]
by cheese999 (2016-07-05 08:09)