Excel VBA質問箱 IV

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

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


61762 / 76732 ←次へ | 前へ→

【19584】Re:プログレスバーの使い方を教えて頂け...
回答  角田 WEB  - 04/11/9(火) 22:27 -

引用なし
パスワード
   こんにちは。
>うちの事業所にあるPC約80台の内の半数以上がスペックの低いものを
わたしのPCも433MHzと今では低スペックと呼ばれる域ですけど
>インターネットエクスプローラーで動作するソフトの中で使用しております
IE内でエクセル開いてVisible/Hiddenするマクロを動かしても
一瞬で終わりますね。
>グループウェアーと言う
とかいうのが重いんですかね‥‥‥

>最後だけ一旦全てを表示させて
>シート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 お礼

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