シートの存在チェック

せれ。 (2014年8月 6日 22:21) | コメント(0)

配列からシート名決め打ちして存在チェックしてあれば処理、とやれれば
楽なのですが、そーゆー名前のシートが存在してるか？はどうやって調べれば
いいのでしょうか

 

 

http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=22438&rev=&no=0&P=R&KLOG=146

Sub SheetsChk()
Dim N As Integer
Dim Sh As Integer
Dim Res As String
Dim shop
shop = Array("Sheet1", "Sheet3", "Sheet5")
For Sh = LBound(shop) To UBound(shop)
    For N = 1 To Worksheets.Count
        If Worksheets(N).Name = shop(Sh) Then Exit For
    Next N
    If N <= Worksheets.Count Then
        Res = Res & shop(Sh) & " = 有り" & vbCrLf
    Else
        Res = Res & shop(Sh) & " = 無し" & vbCrLf
    End If
Next Sh
MsgBox Res
End Sub

 

カテゴリ:

コメントする