[[20170614103449]]　『シートの存在確認について』（初心者）　ページの最後に飛ぶ

『シートの存在確認について』（初心者）

お世話になっています。
連日ですみません。

Excelファイルの中に、目的のSheetが存在すれば作業し、存在しなければスルーする場合はどのようにすればいいでしょうか。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

一般機能でですか？
VBAですか？
シートの左下の矢印キーのところで右クリックしたらシート一覧が表示されます。
（カリーニン） 2017/06/14(水) 10:41

 VBAでしたら、ワークシートコレクションをループしてシート名をチェックしていく、という方法があります。

http://bayashita.com/p/entry/show/114

 ワークシート名は

 ワークシートオブジェクト.Name

 で取得できます。
 該当するのがあったらフラグを立ててExit Forするようにしたら若干効率的になります。
（カリーニン） 2017/06/14(水) 10:48

説明不足ですみません。

ＶＢＡでの作業です。

全部で15枚のワークシート（1月～12月の12枚を含む）があって、〇○月のシートでは保護されていないセルの数値を削除し、それ以外のシートはスルーするようにしたいんです。

（初心者） 2017/06/14(水) 10:52

 VBAでしたら、リンクした通りです。

 あるいは、エラー処理を使った方法もあります。普通はワークシートコレクションをループしてチェック
 しますけど。

 エラー処理を使った方法です。

 Dim shtname As String
 Dim flg As Boolean
 Dim dmy As String
  shtname = "aaa"
  flg = True
  On Error Resume Next
  dmy = Worksheets(shtname).Cells(1, 1).Value '指定のシートのセルの値を取得しようとする
  If Err.Number = 9 Then 'シートが無くてエラーの場合
     flg = False
  Else 'シートがあってエラーにならなかった場合
     flg = True
  End If
  On Error GoTo 0
  MsgBox flg
（カリーニン） 2017/06/14(水) 11:03

回答ありがとうございました。

お陰様で何とか解決しました。
（初心者） 2017/06/14(水) 18:11

コメント返信：

[ 一覧(最新更新順) ]

[[20170614103449]] 『シートの存在確認について』（初心者） ページの最後に飛ぶ

[[20170614103449]]　『シートの存在確認について』（初心者）　ページの最後に飛ぶ