| |
ファイルを立上げると自動的にマクロを起動させてくて
下のようなマクロを組んだんですけど上手くいきませんので、
教えてください。
Sub Auto_Open()
'メセージボックス
Dim message As String
message = "全てのデータをクリアしますか"
rtn = MsgBox("全てのデータをクリアしてますか？", vbYesNo + vbInformation, "確認")
'YESの場合
If rtn = vbYes Then
'データの削除
Sheets("sheet1").Select
Range("D5,G5,J5,C6,C8,J8,D16,G16,J16,C19,J19,P17,Q17,S17,P6:S14").Select
Selection.ClearContents
Sheets("sheet2").Select
Range("B4:F14").Select
Selection.ClearContents
Sheets("sheet1").Select
'NOの場合
Else
End If
End Sub
'終了時の印刷
Private Sub object_WorkBookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
'ヘッダ付け
With ActiveSheet.PageSetup
.CenterHeader = "&""ＭＳ 明朝,斜体""&24確 定"
.LeftFooter = "出力時間:&D:&T"
End With
'印刷
ActiveSheet.PrintOut from:=1, to:=1
'警告文非表示
Application.DisplayAlerts = False
End Sub
|
|
