Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
For i = 1 To Sheets.Count’シートの枚数分繰り返す
If ActiveCell.Text = Sheets(Sheets(i).Name).Name Then ’セルの内容と一致するシート名の検索
Sheets(Sheets(i).Name).Select ’対象のシート名を見つけた場合対象シートに移動
Else
MsgBox "見つかりませんでした"
Exit Sub
End If
Next i
End Sub
コメントを残す