VBAで同じ文字のシートを開きたい

質問

ＶＢＡの超初心者です。
説明不足だと思いますが、申し訳ございません。
質問内容なのですが、
シート１にカレンダーを作成しています。
カレンダーの１をダブルクリックしたら”１”のシートというように、同じ数字のシートを参照したいのですが、参照する式が分かりません。
使っているエクセルは２００３です。
どなたか教えてください。

回答No.2

ka_na_de · ベストアンサー

こんばんは。

一例です。
エラー処理はしてません。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　　Worksheets(CStr(Target.Value)).Activate

End Sub

お礼

ありがとうございます。
この式で該当するシートを開くことができました。

回答No.1

hallo-2007

>同じ数字のシートを参照したいのですが、参照する式が分かりません。
質問の参照とは？

参考までに
シート名のタブを右クリック、コードの表示をクリック
Vbエディターが起動しますので
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox Sheets(Target.Value).Range("A1").Value
MsgBox Sheets(Target.Value & "").Range("A1").Value
Sheets(Target.Value).Select
End Sub
をコピィしてみてください
ダブルクリックしたセルに入っている数値のシート番号のA1セルの値
ダブルクリックしたセルに入っている文字と同じ名前のシートのA1セルの値
ダブルクリックしたセルに記述してある値と同じシート名のシートへ移動します。

お礼

やっぱり私の説明わかりにくかったですよね。
ありがとうございました。