|
▼ウッシ さん:
ありがとうございます。コードはうまくいきました
エラー処理でおたずねします
book["test"]とSheet1の両方でチェックしてみたいと思い
下記のような見よう見まねで勉強のため書いてみたのですが
インデックスが有効範囲とでます。
sheet1のチェックと共にご教授お願いします。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim test_bk As Worksheet
On Error Resume Next
Set test_bk = Application.Workbooks(test_bk_Name)
On Error GoTo 0
If test_bk Is Nothing Then
MsgBox "test" & _
"をExcelで開いてから実行して下さい。"
Me.Worksheets("Sheet1").Range("F6").ClearContents
End If
End Sub
>▼tant さん:
>こんにちは
>
>ブックモジュールに
>
>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> Me.Worksheets("Sheet1").Range("F6").ClearContents
>End Sub
>
>「Sheet1」が無い場合等のエラー処理はご自分で考えて見て下さい。
|
|