|
▼角田 さん:
こんばんは。
>>グループウェアーと言う
>とかいうのが重いんですかね‥‥‥
たぶんそうだと思います。
>>最後だけ一旦全てを表示させて
>>シート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
有難うございました、ここまでの知恵がなくてお恥ずかしい限りです
大変ためになりました、早速使わせて頂くとともに
他でも応用できそうなのでいろいろ試してみて勉強します。
それと、プログレスバーについても違ったところで使えるように
勉強いたしますのでまたわからないときには宜しくお願いします。
|
|