Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11126 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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”のように未知のシートが混在したブックがあります。

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

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

よろしくお願いいたします。
【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", "グラフ")

この辺のコードがちょっと難しいですね。
今後の参考にしたいと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11126 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free