Excel VBA質問箱 IV

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

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


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

42938 / 76732

←次へ　｜　前へ→


	*【38855】Re:Sheets("").Selectについて**

かみちゃん - 06/6/12(月) 21:13 -


	引用なし

	パスワード

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

>シートが両方ある場合、｢元データ｣を優先で選択し、片方しかない場合は
>そのどちらかを選択出来る方法は有りますか？

私の場合、以下のような感じにしています。

Sub Macro1()
　'シート名が存在するかどうか
　If Not ChkSheet("元データ") Then
　 'シート名が存在するかどうか
　　If Not ChkSheet("生データ") Then
　　　MsgBox "「元データ」も「生データ」シートもありません"
　　Else
　　　Sheets("生データ").Select
　　End If
　Else
　　Sheets("元データ").Select
　End If
End Sub

'シート名存在チェック関数
Function ChkSheet(strWS As String) As Boolean
　Dim ws As Worksheet
　
　ChkSheet = False
　For Each ws In Worksheets
　　If ws.Name = strWS Then
　　　ChkSheet = True
　　　Exit For
　　End If
　Next
End Function

1 hits

▼

【38854】Sheets("*").Selectについて 質問者 06/6/12(月) 20:54