A1〜C10セルに、単語が入力されており、そのブックに同じ単語名のシートがあります。 A1〜C10セ

A1〜C10セルに、単語が入力されており、そのブックに同じ単語名のシートがあります。

A1〜C10セルのどれかをクリックすると、同名のシートに移動する様にできますでしょうか。

ハイパーリンク以外の方法を教えて頂ければ、ありがたいです。

よろしくお願いします。

No.2 回答者： WindFaller 回答日時： 2017/03/15 18:56

回答が出ていますが、こちらからもひとつ書いておきます。

目的のシートのシートタプを右クリック--以下を貼り付けます。
後は、「左ダブルクリック」で飛びます。

間違いさえなければ、
Application.Goto Worksheets(Trim(Target.Value)).Range("A1")
この一行で、その場所に飛べます。

'//
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, Range("A1:C10")) Is Nothing Then Exit Sub
On Error Resume Next
　Application.Goto Worksheets(Trim(Target.Value)).Range("A1")
　If Err.Number <> 0 Then Beep 'エラーが出たら音を鳴らす
On Error GoTo 0
End Sub

No.1 回答者： yokomaya 回答日時： 2017/03/15 14:09

ご希望のクリックで動かす手段が

ＶＢＡには用意されていないようなので
ダブルクリックで作ってみました。
シート名を右クリックでコードを表示に
下記を貼れば動くのではないかと。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet, flg As Boolean

If Not Intersect(Target, Range("a1:c10")) Is Nothing And _
Target.Text <> "" Then
flg = False
For Each ws In ThisWorkbook.Worksheets
If Target.Text = ws.Name Then
flg = True
End If
Next
If flg Then
Application.EnableEvents = False
Worksheets(Target.Text).Activate
Application.EnableEvents = True
Else
MsgBox Target.Text & "というシートはありません"
End If
End If
End Sub