講座最終回に向けて

【数値のみ削除】

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

What's New

ここには全ページに

共通の項目が表示されます。

 

<利用例>

What's New!

 

<利用例>

お問合わせはこちらから