| 特定の名前のシートの存在を判定する |
|---|
サンプルマクロは、testという名前のワークシートが存在するか
どうかを判定します。
グラフシートやモジュールシートは判定されません
Sub Sample()
Dim mySht As Worksheet
On Error GoTo ErrHdl
Set mySht = Worksheets("test")
MsgBox "シート""test""は存在します。"
Exit Sub
ErrHdl:
MsgBox "シート""test""は存在しません。", vbExclamation
End Sub
|
| Excel95/97/2000 |