|
こんにちは。かみちゃん です。
横から失礼します。
>例えば、エクセルのシートが1から10までのシート名で10シートあるとき
>A1のセルに5と数字(シート名)を入力すると5と書いたシート名に
>ジャンプするできるようにすることは可能ですか?
すでに、りんさんからコメントがついていて、ほぼ同じものですが、書いてしまったのでそのまま
投稿させていただきます。
りんさんと違うところは、シートの存在チェックをしているところでしょうか?
あとは、どのようなシート名にも対応しているつもりです。
以下のコードをA1セルに入力するシートのシートモジュールに記述してください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Count > 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
On Error Resume Next
Set ws = Worksheets(CStr(Target.Value))
On Error GoTo 0
If Not ws Is Nothing Then
ws.Activate
Else
MsgBox "シート " & Target.Value & " がありません"
End If
End Sub
|
|