講座最終回に向けて

【数値のみ削除】

Sub 数値のみ削除()
    Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub

【マクロをクイックアクセスツールバー】から操作

  画像

【印刷前に印刷プレビュー】

Sub 印刷()
    Dim ms As Long
    MsgBox "プレビュー"
    ActiveSheet.PrintPreview
    ms = MsgBox("印刷しますか？", vbYesNo)
    If ms = vbYes Then
        ActiveSheet.PrintOut
    Else
        MsgBox "印刷しません"
    End If
End Sub