Excel VBA質問箱 IV

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

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


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

【18062】特定のシートをアクティブにするには? カド 04/9/14(火) 9:52 質問[未読]
【18063】Re:特定のシートをアクティブにするには? つん 04/9/14(火) 10:17 回答[未読]
【18065】Re:特定のシートをアクティブにするには? カド 04/9/14(火) 10:27 お礼[未読]
【18066】Re:特定のシートをアクティブにするには? IROC 04/9/14(火) 10:33 回答[未読]
【18088】Re:特定のシートをアクティブにするには? カド 04/9/14(火) 18:25 お礼[未読]
【18067】Re:特定のシートをアクティブにするには? Jaka 04/9/14(火) 10:34 発言[未読]
【18089】Re:特定のシートをアクティブにするには? カド 04/9/14(火) 18:26 お礼[未読]

【18062】特定のシートをアクティブにするには?
質問  カド  - 04/9/14(火) 9:52 -

引用なし
パスワード
   シート名が、”Sheet1”や”グラフ”などと名前が既知のシートと
名前が”123asd”のように未知のシートが混在したブックがあります。

上記の条件のシート3枚しかないときに、”123asd”をアクティブにするには、
どうすればよいのでしょうか?

シートを1枚ずつアクティブにして、シート名を確認しながら、探せば
良いのでしょうが、具体的なコードがわかりません。

よろしくお願いいたします。

【18063】Re:特定のシートをアクティブにするには?
回答  つん E-MAIL  - 04/9/14(火) 10:17 -

引用なし
パスワード
   カド さん:

Sub test()

  Dim ws As Worksheet
  
  For Each ws In Worksheets
    If ws.Name = "123asd" Then
      ws.Select
    End If
  Next ws

End Sub

こんな簡単なことじゃないかしらん?(^^;

【18065】Re:特定のシートをアクティブにするには?
お礼  カド  - 04/9/14(火) 10:27 -

引用なし
パスワード
   ▼つん さん:
回答ありがとうございます。

シート名が"123asd"ということが不明な場合というのが条件なんですが。
無理言ってすみません。

【18066】Re:特定のシートをアクティブにするには?
回答  IROC  - 04/9/14(火) 10:33 -

引用なし
パスワード
     If Not (ws.Name = "Sheet1" Or ws.Name = "Sheet2") Then
    ws.Select
  End If

このようなことでしょうか?

【18067】Re:特定のシートをアクティブにするには?
発言  Jaka  - 04/9/14(火) 10:34 -

引用なし
パスワード
   カドさん つんさん こんにちは。

つんさんお元気ですか!
つんさんのを勝手に改造。

Sub test()
  Dim ws As Worksheet, MS As Variant
  MS = Array("Sheet1", "グラフ")
  For Each ws In Worksheets
    Bt = Application.Match(ws.Name, MS, 0)
    If IsError(Bt) Then
      ws.Select
      Exit Sub
    End If
  Next ws
End Sub

【18088】Re:特定のシートをアクティブにするには?
お礼  カド  - 04/9/14(火) 18:25 -

引用なし
パスワード
   ▼IROC さん:
回答ありがとうございます。

>  If Not (ws.Name = "Sheet1" Or ws.Name = "Sheet2") Then

なるほどif内はこんな形になるのですね。

【18089】Re:特定のシートをアクティブにするには?
お礼  カド  - 04/9/14(火) 18:26 -

引用なし
パスワード
   ▼Jaka さん:
回答ありがとうございます。

>  MS = Array("Sheet1", "グラフ")

この辺のコードがちょっと難しいですね。
今後の参考にしたいと思います。

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