Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7621 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【37869】シートを非表示にした状態でシートを選択 １６茶 06/5/22(月) 11:07 質問[未読]
【37872】Re:シートを非表示にした状態でシートを選択 Jaka 06/5/22(月) 11:52 発言[未読]
【37880】Re:シートを非表示にした状態でシートを選択 １６茶 06/5/22(月) 12:54 お礼[未読]
【37882】Re:シートを非表示にした状態でシートを... わさび 06/5/22(月) 13:26 発言[未読]
【37885】Re:シートを非表示にした状態でシートを... １６茶 06/5/22(月) 15:42 お礼[未読]
【37915】Re:シートを非表示にした状態でシートを... わさび 06/5/23(火) 12:50 発言[未読]
【37916】Re:シートを非表示にした状態でシートを... １６茶 06/5/23(火) 13:04 お礼[未読]
【37869】シートを非表示にした状態でシートを選択
質問  １６茶  - 06/5/22(月) 11:07 -
引用なし
パスワード
   先日は大変お世話になりました。
自分でも皆さんのおかげでスキルが上がって大変嬉しく思っています。
何度も申し訳ありませんが、今回もよろしくお願いします。

今回は、シートを非表示にした状態で、シートを選択すると言うことですが、
ブックの構成は

目次−−印刷用表紙
　　　｜−シート１
　　　｜−シート２
　　　｜−シート３

という構成になっています。

私が作ってみたマクロは、

If Range("s2") = 5 Then Sheets(5).Select
If Range("s2") = 6 Then Sheets(6).Select
If Range("s2") = 7 Then Sheets(7).Select

このようになります。
目次s2の中を印刷用表紙で参照していますのでハイパーリンクは付けられません。
そこで上のように作ってみたのですが、シートを非表示にすると
「worksheetクラスのselectメソッドが失敗しました。」と出ます。
試行錯誤してみたのですが、どうもうまくいきません。

お知恵をお貸しください　m(_ _)m
【37872】Re:シートを非表示にした状態でシートを...
発言  Jaka  - 06/5/22(月) 11:52 -
引用なし
パスワード
   ▼１６茶 さん：
>そこで上のように作ってみたのですが、シートを非表示にすると
>「worksheetクラスのselectメソッドが失敗しました。」と出ます。
>試行錯誤してみたのですが、どうもうまくいきません。
>お知恵をお貸しください　m(_ _)m
知恵うんぬんというより、出来ない物は出来ません。
なぜ、非表示にする必要があるのか、わざわざ選択しなくてはならないのかを、考えた方がいいと思いますけど。
【37880】Re:シートを非表示にした状態でシートを...
お礼  １６茶  - 06/5/22(月) 12:54 -
引用なし
パスワード
   ▼Jaka さん：
>知恵うんぬんというより、出来ない物は出来ません。
>なぜ、非表示にする必要があるのか、わざわざ選択しなくてはならないのかを、考えた方がいいと思いますけど。

そうなんですか、出来ないんですね。
この方法は諦めることにします。
どうもありがとうございました。m(_ _)m
【37882】Re:シートを非表示にした状態でシートを...
発言  わさび  - 06/5/22(月) 13:26 -
引用なし
パスワード
   >そこで上のように作ってみたのですが、シートを非表示にすると
>「worksheetクラスのselectメソッドが失敗しました。」と出ます。
>試行錯誤してみたのですが、どうもうまくいきません。

非表示になっているシートをSelectすると、このエラーが出るんですよね。
そもそも「非表示のシートを選択する」ということは、どういうことでしょうか。
非表示のシートを印刷することが目的ならば、
そのときだけ表示させて、印刷が終わったらまた非表示にする
…というのはどうでしょうか。
それとも「非表示のシートを表示させる」ことが目的なのでしょうか？


----------
また老婆心ながら…

>If Range("s2") = 5 Then Sheets(5).Select
>If Range("s2") = 6 Then Sheets(6).Select
>If Range("s2") = 7 Then Sheets(7).Select

こうするよりも、
If Range("s2") = 5 Then
　　Sheets(5).Select
ElseIf Range("s2") = 6 Then
　　Sheets(6).Select
ElseIf Range("s2") = 7 Then
　　Sheets(7).Select
End If
という形にしたほうがいいんじゃないかなと思います。
この違いは…って、
もしかしたら承知の上で、最初の３行の形でされてるのかもしれないですね。
すみません。
とりあえずちょっと気になったので、提議だけさせていただきます。

ちなみに、
If Range("s2") = 5 Then
　　Sheets(5).Select
ElseIf Range("s2") = 6 Then
　　Sheets(6).Select
ElseIf Range("s2") = 7 Then
　　Sheets(7).Select
End If
は、
Select Case Range("s2").Value
　　Case 5
　　　　Sheets(5).Select
　　Case 6
　　　　Sheets(6).Select
　　Case 7
　　　　Sheets(7).Select
End Select
とすると、もっとシンプルになることも併記させてください。
ご存知でしたら、ごめんなさい…
【37885】Re:シートを非表示にした状態でシートを...
お礼  １６茶  - 06/5/22(月) 15:42 -
引用なし
パスワード
   ＞わさび さん

そういうやり方があるんですね
知りませんでした。

ご丁寧にありがとうございます　m(_ _)m
なにぶん初心者ですので、いろいろご迷惑をおかけしますが
よろしくお願いいたします。
【37915】Re:シートを非表示にした状態でシートを...
発言  わさび  - 06/5/23(火) 12:50 -
引用なし
パスワード
   ＞１６茶 さん

私もまだまだ初心者です。
だからこそ初心者同士、同じ目線でアドバイスし合えることもあるのかなと、
最近そう思うようになってきました。


>ご丁寧にありがとうございます　m(_ _)m
>なにぶん初心者ですので、いろいろご迷惑をおかけしますが
>よろしくお願いいたします。
【37916】Re:シートを非表示にした状態でシートを...
お礼  １６茶  - 06/5/23(火) 13:04 -
引用なし
パスワード
   ＞わさび さん

ご丁寧にお返事ありがとうございます。
私にもお力になれるようなことがありましたら、
ご協力させてください　m(_ _)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7621 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free