Excel VBA質問箱 IV

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

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


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

【51381】任意のシートをアクティブにするVBA アオガエル 07/9/14(金) 9:51 質問[未読]
【51383】Re:任意のシートをアクティブにするVBA じゅんじゅん 07/9/14(金) 10:12 発言[未読]
【51384】Re:任意のシートをアクティブにするVBA ぱっせんじゃー 07/9/14(金) 10:15 発言[未読]
【51398】Re:任意のシートをアクティブにするVBA アオガエル 07/9/14(金) 18:46 お礼[未読]

【51381】任意のシートをアクティブにするVBA
質問  アオガエル  - 07/9/14(金) 9:51 -

引用なし
パスワード
   初歩的な質問で申し訳ありません。
一つのブックに300枚のシートがありますのでインプットボックスにシート名を入力して実行したら入力したシート名のシートをアクティブにするVBAを自分で作ってみたのですがエラーでした。
初歩的なミスだと思いますが分かりません、よろしくお願いします。

Sub Check()
  
  Dim code As Long
  
  code = InputBox("コードを入力して下さい。")
   
  Sheets("code").Select
  
End Sub

【51383】Re:任意のシートをアクティブにするVBA
発言  じゅんじゅん  - 07/9/14(金) 10:12 -

引用なし
パスワード
   ▼アオガエル さん:
>初歩的な質問で申し訳ありません。
>一つのブックに300枚のシートがありますのでインプットボックスにシート名を入力して実行したら入力したシート名のシートをアクティブにするVBAを自分で作ってみたのですがエラーでした。
>初歩的なミスだと思いますが分かりません、よろしくお願いします。
>
>Sub Check()
>  
>  Dim code As Long
>  
>  code = InputBox("コードを入力して下さい。")
>   
>  Sheets("code").Select
>  
>End Sub

  Dim code As Long
  Sheets(code).Select
シート名が数値なら上記で。
文字列なら
  Dim code As String
  Sheets(code).Select  かな?

【51384】Re:任意のシートをアクティブにするVBA
発言  ぱっせんじゃー  - 07/9/14(金) 10:15 -

引用なし
パスワード
   ↓のようなかんじでいけるとおもいます。

  Dim code As Variant
  On Error GoTo er
 
  code = InputBox("コードを入力して下さい。")
  
  Sheets(code).Select
  Exit Sub
er:
MsgBox "シートが存在しないか、キャンセルされました。"

【51398】Re:任意のシートをアクティブにするVBA
お礼  アオガエル  - 07/9/14(金) 18:46 -

引用なし
パスワード
   じゅんじゅんさん、ぱっせんじゃーさん早速のRES大変ありがとうございました。
おかげさまで解決できましたし、ミスの原因も分かりました。
どうもありがとうございました。

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