|
こんにちは。かみちゃん です。
>シートが両方ある場合、「元データ」を優先で選択し、片方しかない場合は
>そのどちらかを選択出来る方法は有りますか?
私の場合、以下のような感じにしています。
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
|
|