Excel VBA質問箱 IV

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

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


61759 / 76732 ←次へ | 前へ→

【19587】Re:プログレスバーの使い方を教えて頂け...
お礼  タフマン  - 04/11/9(火) 23:05 -

引用なし
パスワード
   ▼角田 さん:
こんばんは。

>>グループウェアーと言う
>とかいうのが重いんですかね‥‥‥
たぶんそうだと思います。

>>最後だけ一旦全てを表示させて
>>シート2だけ残す処理をしておりますので
>なんで全てを一端[Visible]にする必要があるのでしょう?
>そこが判りません。
>
>Sheet2だけ表示させて、他を隠すなら、↓のようなマクロで良いと
>思いますが? 
>既に[Hidden]状態のものは、そのまま[Hidden]のままにしておけば良いだろうし
>[Visible]のものだけ[Hidden]設定すれば良いでしょう。
>
>Dim wksh As Worksheet
>With Worksheets("Sheet2")
>  .Visible = xlSheetVisible
>  .Activate
>End With
>For Each wksh In ThisWorkbook.Worksheets
>  If (wksh.Name <> "Sheet2") And _
>    (wksh.Visible = xlSheetVisible) Then
>    wksh.Visible = xlSheetVeryHidden
>  End If
>Next wksh

有難うございました、ここまでの知恵がなくてお恥ずかしい限りです
大変ためになりました、早速使わせて頂くとともに
他でも応用できそうなのでいろいろ試してみて勉強します。
それと、プログレスバーについても違ったところで使えるように
勉強いたしますのでまたわからないときには宜しくお願いします。
2 hits

【19545】プログレスバーの使い方を教えて頂けませんか? タフマン 04/11/8(月) 22:26 質問
【19551】Re:プログレスバーの使い方を教えて頂けま... ichinose 04/11/8(月) 23:47 発言
【19553】Re:プログレスバーの使い方を教えて頂けま... タフマン 04/11/9(火) 8:59 お礼
【19559】Re:プログレスバーの使い方を教えて頂けま... 角田 04/11/9(火) 13:46 回答
【19564】Re:プログレスバーの使い方を教えて頂けま... タフマン 04/11/9(火) 18:31 質問
【19566】Re:プログレスバーの使い方を教えて頂けま... 角田 04/11/9(火) 18:55 回答
【19576】Re:プログレスバーの使い方を教えて頂けま... タフマン 04/11/9(火) 21:07 質問
【19584】Re:プログレスバーの使い方を教えて頂け... 角田 04/11/9(火) 22:27 回答
【19587】Re:プログレスバーの使い方を教えて頂け... タフマン 04/11/9(火) 23:05 お礼

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