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

質問

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

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

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

教えて下さい

回答No.5

fujillin

#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

#2のmerlionXXです。

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

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

回答No.3

imogasi

>「データーシート２」を表示
多分知らないのだろうが、関数ではできませんよ。
シートを開くことは、関数では出来ない。関数では指定したシートのセルの値やそれを加工した値しか出せません。
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さん　ありがとうございます

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

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

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

回答No.2

merlionXX

表示させるとは、そのシートをアクティブにするという意味ですね？
データーシートの次の番号は全角なんですね？
なら、以下を試してみてください。

１．シートのタブを右クリックし、「コードの表示」を選択。
２．出てきた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)に変えてください。

補足

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

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

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

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

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

回答No.1

hallo-2007

A2セルにでも（データシート２がそれぞれのシートのB1として）
=INDIRECT("Sheet"&A1&"!B1")
シート名が
Sheet1
Sheet2
・・・
の場合です。