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 質問
【57421】Re:シート名の検索 かみちゃん 08/8/21(木) 13:41 発言
【57424】Re:シート名の検索 おぢちゃん 08/8/21(木) 15:45 お礼
【57422】Re:シート名の検索 ひげくま 08/8/21(木) 14:01 回答
【57425】Re:シート名の検索 おぢちゃん 08/8/21(木) 15:52 お礼
【57432】Re:シート名の検索 Abebobo 08/8/22(金) 9:04 発言
【57471】Re:シート名の検索 おぢちゃん 08/8/26(火) 7:56 お礼

24659 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free