Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4755 / 13644 ツリー ←次へ | 前へ→

【54664】あるセルに表示された内容と同一の名前のシートをアクティブにするには。 kotaro 08/3/25(火) 18:26 質問[未読]
【54665】Re:あるセルに表示された内容と同一の名前... ひげくま 08/3/25(火) 18:35 発言[未読]
【54666】Re:あるセルに表示された内容と同一の名前... マクロマン 08/3/25(火) 18:41 発言[未読]
【54668】Re:あるセルに表示された内容と同一の名前... kotaro 08/3/25(火) 19:02 お礼[未読]
【54669】Re:あるセルに表示された内容と同一の名前... マクロマン 08/3/25(火) 19:06 発言[未読]
【54670】Re:あるセルに表示された内容と同一の名前... kotaro 08/3/25(火) 19:10 お礼[未読]

【54664】あるセルに表示された内容と同一の名前の...
質問  kotaro  - 08/3/25(火) 18:26 -

引用なし
パスワード
   例えば以下のようなシート構成のブックがあるとします。(「」内はいずれもシート名で、ブックの左に位置するシートから記していると理解してください)
 * 「番号入力」「5」「52」「101」「329」「539」「852」の7シート

次に、シート「番号入力」のセル「A1」に上記シート名のいずれかの番号を入力します。
このセル「A1」に入力された番号と同じ名前のシートをアクティブにするマクロはどのように組めばいいのでしょうか。
たとえば、セル「A1」に「329」と入力されている場合、シート「329」をアクティブにする、ということです。

セル「A1」に「5」と入力して、マクロを
Sheets(Range("A1")).Select
としたら、シート「5」ではなく、左から5番目に位置するシートがアクティブになりました。これくらいの知識しか持ち合わせておりません。

初歩的な質問かもしれませんが、どなたかご教示くださいますでしょうか。
よろしくお願い申し上げます。

【54665】Re:あるセルに表示された内容と同一の名...
発言  ひげくま  - 08/3/25(火) 18:35 -

引用なし
パスワード
   Cstrで、文字列に変換してみてください。

【54666】Re:あるセルに表示された内容と同一の名...
発言  マクロマン  - 08/3/25(火) 18:41 -

引用なし
パスワード
   横から失礼します。

A1の書式が文字列になっていたら
>Sheets(Range("A1")).Select
でもA1に入力された名前のシートに
ジャンプするようです。

A1の書式をそのままで行いたいのであれば
ひげくまさんの方法か、↓のように変数で
指定してやればいいです。

Dim shtname As String
 shtname = Range("A1").Value
 Sheets(shtname).Select

【54668】Re:あるセルに表示された内容と同一の名...
お礼  kotaro  - 08/3/25(火) 19:02 -

引用なし
パスワード
   ひげくまさん、マクロマンさん、早速のご回答ありがとうございます。

マクロマンさんに教えていただいた方法で一発で解決しました。
ひげくまさんに教えていただいた「Cstrで文字列に変換」というのは、私の知識ではすぐに理解できず、たじろいでしまったのですが、思いつく限り試してみました。
こういうこと↓↓↓ですよね?
 Sheets("番号入力").Select
 Sheets(CStr(Range("A1"))).Select

勉強になります。
ありがとうございます。

【54669】Re:あるセルに表示された内容と同一の名...
発言  マクロマン  - 08/3/25(火) 19:06 -

引用なし
パスワード
   Access板ですが、参考になると思います。

http://www.accessclub.jp/supbeg/061.html

【54670】Re:あるセルに表示された内容と同一の名...
お礼  kotaro  - 08/3/25(火) 19:10 -

引用なし
パスワード
   ありがとうございます。
早速見てみます。

4755 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free