Excel VBA質問箱 IV

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

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


50490 / 76732 ←次へ | 前へ→

【31131】Re:質問です。
発言  Kein  - 05/11/11(金) 23:04 -

引用なし
パスワード
   Sub S_ADD()
  Dim Sh As Worksheet

  Application.DisplayAlerts = False
  'Excelが自動的に出すメッセージを出させなくする

  On Error Resume Next
  'これ以降にエラーが発生したとき、デバッグせずに次の行に移る

  Set Sh = Worksheets("Sheet4")
  'オブジェクト変数に Sheet4 を格納しようとする

  If Err.Number = 0 Then
  'もしエラーが出なかったら
  '(つまり実際に Sheet4 が存在したことを証明したことになる)

   Sh.Cells.Clear: Sh.Activate
   'Sheet4 の全セルをクリアし、アクティブにする

  Else
  'エラーが出ている場合は(存在しなければ Set Sh 〜 がエラーになる)

   Worksheets.Add(After:=Worksheets("Sheet3")) _
   .Name = "Sheet4"
   '新規シートを Sheet3 の後ろに挿入し、Sheet4 と名前を付ける

   Err.Clear
   'これは無くてもいいけど、いちおうエラー値を 0 にしている

  End If
  On Error GoTo 0: Set Sh = Nothing
  'エラートラップを解除し、変数とオブジェクトの関係を断つ

  Application.DisplayAlerts = True
  '最後にメッセージが普通に出せるように、設定を元に戻す
End Sub

・・ということになりますが、理解されましたか ?

0 hits

【31126】質問です。 らんらん 05/11/11(金) 22:17 質問
【31127】Re:質問です。 Kein 05/11/11(金) 22:32 回答
【31128】Re:質問です。 らんらん 05/11/11(金) 22:52 質問
【31131】Re:質問です。 Kein 05/11/11(金) 23:04 発言
【31132】Re:質問です。 Kein 05/11/11(金) 23:09 発言
【31133】Re:質問です。 らんらん 05/11/11(金) 23:19 お礼

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