Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24659 / 76732

←次へ　｜　前へ→


	【57421】Re:シート名の検索

かみちゃん - 08/8/21(木) 13:41 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>新規シートと同一名称の既存シートがある場合には
>その既存シートを開き,無い場合には新規名称でシートを作成したいのですが,
>
>"もし同一シート名のシートがあれば"←この記述がわかりません。

以下はのような感じでできると思います。

Sub Sample()
　If ChkSheet("Sheet1") Then
　　MsgBox "Sheet1は、存在します"
　Else
　　MsgBox "Sheet1は、存在しません"
　End If
End Sub

'シート名存在チェック関数
Function ChkSheet(strWS As String) As Boolean
　Dim ws As Worksheet
　
　On Error Resume Next
　Set ws = Worksheets(strWS)
　On Error GoTo 0
　If Not ws Is Nothing Then
　　ChkSheet = True
　Else
　　ChkSheet = False
　End If
End Function

3 hits

▼

【57420】ｼｰﾄ名の検索 おぢちゃん 08/8/21(木) 12:13