Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61834 / 76807

←次へ　｜　前へ→


	【19587】Re:プログレスバーの使い方を教えて頂け...

タフマン - 04/11/9(火) 23:05 -


	引用なし

	パスワード

▼角田さん：
こんばんは。

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

>>最後だけ一旦全てを表示させて
>>シート２だけ残す処理をしておりますので
>なんで全てを一端[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