| |
こんにちは。かみちゃん です。
横から失礼します。
>例えば、エクセルのｼｰﾄが1から10までのｼｰﾄ名で10ｼｰﾄあるとき
>Ａ1のセルに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
|
|
かみちゃん
- 08/9/23(火) 19:06 -
