アフィリエイト広告を利用しています

広告

posted by fanblog

2020年09月09日

[Excel vba] Book上にシートが存在するか確認する。

Excel Book上にシートが存在するか確認する。すべてのシートをループして、指定した名前のシートが存在するか判定します。



Sub test()
Debug.Print (ExistsWorksheet("名前"))

End Sub

' 指定した名前のシートが存在するか判定する
Public Function ExistsWorksheet(ByVal name As String)

Dim ws As Worksheet
For Each ws In Sheets
If ws.name = name Then
ExistsWorksheet = True ' 存在する
Exit Function
End If
Next

ExistsWorksheet = False ' 存在しない
End Function




ExistsWorksheet の戻り値が True なら存在。
False なら存在しない。

Sheets と Worksheets の違いはワークシート以外を取得するかどうか。

Sheets:すべてのシートを取得
Worksheets:ワークシートのみ取得(グラフシートなどは取得しない)




【このカテゴリーの最新記事】
posted by naka at 08:58 | TrackBack(0) | Excel VBA

この記事へのトラックバックURL
https://fanblogs.jp/tb/10182594
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック
カテゴリーアーカイブ
×

この広告は30日以上新しい記事の更新がないブログに表示されております。