[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シートの存在確認について』(初心者)
お世話になっています。
連日ですみません。
Excelファイルの中に、目的のSheetが存在すれば作業し、存在しなければスルーする場合はどのようにすればいいでしょうか。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
VBAでしたら、ワークシートコレクションをループしてシート名をチェックしていく、という方法があります。
http://bayashita.com/p/entry/show/114
ワークシート名は
ワークシートオブジェクト.Name
で取得できます。 該当するのがあったらフラグを立ててExit Forするようにしたら若干効率的になります。 (カリーニン) 2017/06/14(水) 10:48
VBAでの作業です。
全部で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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.