Excel VBA質問箱 IV

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

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


61795 / 76732 ←次へ | 前へ→

【19551】Re:プログレスバーの使い方を教えて頂けませんか?
発言  ichinose  - 04/11/8(月) 23:47 -

引用なし
パスワード
   ▼タフマン さん:
こんばんは。

>下記の標準モジュールの処理を行う最プログレスバーコントロールを
>ユーザーフォームで表示(動作)させたいのですが標準モジュール
>及びユーザーフォームにはどのように記述すればよいのでしょうか、
>どなたか教えて頂けないでしょうか。
>
>Sub システム終了()
>
>  Application.Visible = False
>
>  Dim ShVisibility As Integer
>  
>  counter = counter - 1
>  
>    If counter <= -1 Then
>    
>      ShVisibility = True
>      counter = 0
>      
>    Else
>    
>      ShVisibility = xlVeryHidden
>      
>    End If
>    
>  Worksheets("Sheet2").Visible = ShVisibility
>  Worksheets("マスター1").Visible = ShVisibility
>  Worksheets("触らないで!").Visible = ShVisibility
>  Worksheets("担当部署(A)").Visible = ShVisibility
>  Worksheets("担当部署(B)").Visible = ShVisibility
>  Worksheets("担当部署(C)").Visible = ShVisibility
>  Worksheets("担当部署(D)").Visible = ShVisibility
>  Worksheets("担当部署(E)").Visible = ShVisibility
>  Worksheets("グラフ").Visible = ShVisibility
>  Worksheets("Sheet3").Visible = ShVisibility
>  Worksheets("Sheet4").Visible = ShVisibility
>    
>  counter = counter + 1
>  
>    If counter >= 2 Then
>    
>      ShVisibility = True
>      counter = 0
>      
>    Else
>    
>      ShVisibility = xlVeryHidden
>      
>    End If
>  
>  Worksheets("マスター1").Visible = ShVisibility
>  Worksheets("触らないで!").Visible = ShVisibility
>  Worksheets("担当部署(A)").Visible = ShVisibility
>  Worksheets("担当部署(B)").Visible = ShVisibility
>  Worksheets("担当部署(C)").Visible = ShVisibility
>  Worksheets("担当部署(D)").Visible = ShVisibility
>  Worksheets("担当部署(E)").Visible = ShVisibility
>  Worksheets("グラフ").Visible = ShVisibility
>  Worksheets("Sheet3").Visible = ShVisibility
>  Worksheets("Sheet4").Visible = ShVisibility
>  
>  ThisWorkbook.Save
>  Application.EnableEvents = False
>  Application.Quit
>
>End Sub
プログレスバーは、原則として、ループ処理の中で使用するものなんです。
角田さんのサイトに詳しく説明されていますから、参考にして下さい。

http://www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm
1 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 お礼

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