Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34417 / 76738 ←次へ | 前へ→

【47531】Re:必ず削除する
発言  tant  - 07/3/13(火) 17:54 -

引用なし
パスワード
   ▼ウッシ さん:
ありがとうございます。コードはうまくいきました
エラー処理でおたずねします
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」が無い場合等のエラー処理はご自分で考えて見て下さい。

2 hits

【47529】必ず削除する tant 07/3/13(火) 14:43 質問
【47530】Re:必ず削除する ウッシ 07/3/13(火) 14:47 回答
【47531】Re:必ず削除する tant 07/3/13(火) 17:54 発言
【47532】Re:必ず削除する tant 07/3/13(火) 18:07 発言
【47533】Re:必ず削除する tant 07/3/13(火) 18:12 発言
【47535】Re:必ず削除する ウッシ 07/3/13(火) 19:28 回答
【47536】Re:必ず削除する tant 07/3/13(火) 20:00 発言
【47537】Re:必ず削除する ウッシ 07/3/13(火) 20:18 回答
【47538】Re:必ず削除する tant 07/3/13(火) 20:31 お礼
【47539】Re:必ず削除する ウッシ 07/3/13(火) 20:41 回答
【47540】Re:必ず削除する tant 07/3/13(火) 20:50 お礼

34417 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free