Excel VBA質問箱 IV

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

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


61801 / 76732 ←次へ | 前へ→

【19545】プログレスバーの使い方を教えて頂けませんか?
質問  タフマン  - 04/11/8(月) 22:26 -

引用なし
パスワード
   下記の標準モジュールの処理を行う最プログレスバーコントロールを
ユーザーフォームで表示(動作)させたいのですが標準モジュール
及びユーザーフォームにはどのように記述すればよいのでしょうか、
どなたか教えて頂けないでしょうか。

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

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 お礼

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