エクセル シートを呼び出して表示させる

エクセルで　作業シートをsｈeet１とした場合
sｈeet１　の　Ａ１のセルに　

2　と入力した場合sｈeet2の「データーシート２」を表示
3　と入力した場合sｈeet3の「データーシート３」を表示
させたいです

sｈeet数は２０枚ぐらいあります。

教えて下さい

No.5 回答者： fujillin 回答日時： 2008/07/02 16:41

#2さんの回答をそのまま微調整。

　こういうことではないの？
とは言っても、マクロの自動記録ぐらいは覚えて欲しいし、そもそもシート移動をシートタブでやるのと、山田とか入力するのとでほとんど変わらないと思いますけどねぇ・・・

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address <> "$A$1" Then Exit Sub
　On Error GoTo line
　Sheets(Target.Value).Activate
　Exit Sub
line:
　MsgBox "そんなシート無いです！"
End Sub

No.4 回答者： merlionXX 回答日時： 2008/07/02 16:07

#2のmerlionXXです。

> 作業シートを表示する　　と言うイメージです

作業シートのA1に数値を入れるならすでに作業シートが表示されているのではないですか？
Sheet2 データーシート２ と
> 山田　　田中　佐藤　～～～～など
の関係がぜんぜん見えません。

No.3 回答者： imogasi 回答日時： 2008/07/02 15:07

>「データーシート２」を表示

多分知らないのだろうが、関数ではできませんよ。
シートを開くことは、関数では出来ない。関数では指定したシートのセルの値やそれを加工した値しか出せません。
VBAの知識が必要です。
VBAコードをここに挙げるべきかどうか迷う。
イベントというものの理解やその他VBAの経験が要る。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
a = Array("", "Sheet1", "Sheet2", "Sheet3", "sheet4", "Sheet5")
Worksheets(a(Target)).Select
End If
End Sub
("", "Sheet1", "Sheet2", "Sheet3", "sheet4", "Sheet5")の””の中に実際のシート名を入れて修正してください。増やす場合は
"Sheet5"の後にカンマをいれ、””で囲んだシート名を追加してください。
ーーー
関数でやれる、質問に近いものに
A1に2,3,4・・のどれかを入れる。
B1に　式　=HYPERLINK("#Sheet"&A1&"!A1","とび先")
と入れる。
A1に数字を入れた後に、B1をクリック。
４と入れてB１をクリックすると、Sheet4が開く。

この回答への補足

imogasiさん　ありがとうございます

他でも書いたように　シート名に名前を入れて使っています

関数で呼べると思い　質問いたしました。

詳しい説明ありがとうございます。

補足日時：2008/07/02 15:13

No.2 回答者： merlionXX 回答日時： 2008/07/02 14:37

表示させるとは、そのシートをアクティブにするという意味ですね？

データーシートの次の番号は全角なんですね？
なら、以下を試してみてください。

１．シートのタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Worksheet
If Target.Address <> "$A$1" Then Exit Sub
On Error GoTo line
s = "データーシート" & StrConv(Target.Value, vbWide)
Set x = Sheets(s)
x.Activate
Exit Sub
line:
MsgBox "そんなシート無いです！"
End Sub

'*****ここより上までをコピペ*****

３．AltキーとF11キーを同時に押してワークシートへもどります。

これでA1セルに数値を入力してみてください。

もし、データーシートの次の番号が半角なら
s = "データーシート" & StrConv(Target.Value, vbWide)を
s = "データーシート" & StrConv(Target.Value, vbNarrow)に変えてください。

この回答への補足

とても早い回答ありがとうございます

説明不足で　いや　いい加減な質問方法ですみません

シートには　各々名前を付けてあり

山田　　田中　佐藤　～～～～など

作業シートを表示する　　と言うイメージです

補足日時：2008/07/02 14:57

No.1 回答者： hallo-2007 回答日時： 2008/07/02 14:21

A2セルにでも（データシート２がそれぞれのシートのB1として）

=INDIRECT("Sheet"&A1&"!B1")
シート名が
Sheet1
Sheet2
・・・
の場合です。