Excel VBA質問箱 IV

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

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


40965 / 76732 ←次へ | 前へ→

【40855】Re:プログレスバーについて
発言  Jaka  - 06/7/25(火) 11:48 -

引用なし
パスワード
   例えばだけど、
同じ大きさのラベルを2枚重ねておく。
下のラベルの色を白にし、Label1とする。
上のラベルの色を青にし、Label2とする。

Private Sub UserForm_Initialize()
  Call prgb(0)
End Sub

Private Sub CommandButton1_Click()
  処理1
  Call prgb(0.25)
  処理2
  Call prgb(0.5)
  処理3
  Call prgb(0.75)
  処理4
  Call prgb(1)
End Sub

Private Sub prgb(NN As Single)
  If NN = 0 Then
    wd = NN
  Else
    wd = Label1.Width * NN
  End If
  Label2.Width = wd
End Sub

Sub 処理1()
MsgBox "処理1"
End Sub

Sub 処理2()
MsgBox "処理2"
End Sub

Sub 処理3()
MsgBox "処理3"
End Sub

Sub 処理4()
MsgBox "処理4"
End Sub
0 hits

【40850】プログレスバーについて NANA 06/7/25(火) 10:48 質問
【40855】Re:プログレスバーについて Jaka 06/7/25(火) 11:48 発言
【40861】Re:プログレスバーについて ハト 06/7/25(火) 13:40 回答
【40866】Re:プログレスバーについて NANA 06/7/25(火) 14:47 発言
【40905】Re:プログレスバーについて inoue 06/7/25(火) 23:16 発言
【40924】Re:プログレスバーについて ハト 06/7/26(水) 12:01 発言
【40926】Re:プログレスバーについて inoue 06/7/26(水) 13:29 発言
【40929】Re:プログレスバーについて ハト 06/7/26(水) 13:57 発言
【40960】Re:プログレスバーについて inoue 06/7/26(水) 21:20 発言
【40964】Re:プログレスバーについて neptune 06/7/27(木) 8:15 発言
【40982】Re:プログレスバーについて ハト 06/7/27(木) 11:19 発言
【40983】Re:プログレスバーについて 角田 06/7/27(木) 11:37 発言

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