Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40966 / 76732

←次へ　｜　前へ→


	【40854】Re:ラベルの文字について

ｔｋ - 06/7/25(火) 11:28 -


	引用なし

	パスワード

おはようございます。昨日はありがとうございました。
さっそく試させていただきました。
希望通りの動作でした。
これを、今自分が行っている作業に組み込みたいのですがどうも上手くいきません。
内容としては、フォーム上で登録のボタンをクリックしたら下記のように、progressbarを表示させその後、ある作業（動作）を行い、終了後、メッセージボックスが表示されます。
progressbarは実際の動作に平行して動くものではなく、ただのもどきです。
このときに、教えていただいた内容をprogressbarと同時進行させ（文字のスクロール）、メッセージボックスが表示される前にスクロールの文字が消える、ということがしたいのですが、どこにどのように組み込めばよいのかわかりません。
いろいろ試したのですがどうも上手くいきません。
なにとぞお力をお貸し下さい。

ProgressBar1.Max = 18000
　For i = 1 To 18000
　　　ProgressBar1.Value = ProgressBar1.Value + 1
　　　Label110.Caption = Int(i * 1 / 180) & "%"
　　　Frame4.Repaint
　Next i
　　　ProgressBar1.Value = 0

　　　　　・・・作業・・・・

　MsgBox Me.ComboBox1.Value & "月の更新が終了しました。"

　Frame4.Label110.Caption = ""

0 hits

▼

【40804】ラベルの文字について ｔｋ 06/7/24(月) 14:30