Excel VBA質問箱 IV

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

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


43881 / 76736 ←次へ | 前へ→

【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
という形にしたほうがいいんじゃないかなと思います。
この違いは…って、
もしかしたら承知の上で、最初の3行の形でされてるのかもしれないですね。
すみません。
とりあえずちょっと気になったので、提議だけさせていただきます。

ちなみに、
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
とすると、もっとシンプルになることも併記させてください。
ご存知でしたら、ごめんなさい…
0 hits

【37869】シートを非表示にした状態でシートを選択 16茶 06/5/22(月) 11:07 質問
【37872】Re:シートを非表示にした状態でシートを選択 Jaka 06/5/22(月) 11:52 発言
【37880】Re:シートを非表示にした状態でシートを選択 16茶 06/5/22(月) 12:54 お礼
【37882】Re:シートを非表示にした状態でシートを... わさび 06/5/22(月) 13:26 発言
【37885】Re:シートを非表示にした状態でシートを... 16茶 06/5/22(月) 15:42 お礼
【37915】Re:シートを非表示にした状態でシートを... わさび 06/5/23(火) 12:50 発言
【37916】Re:シートを非表示にした状態でシートを... 16茶 06/5/23(火) 13:04 お礼

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