質問編集履歴
2
コードの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -17,7 +17,7 @@
|
|
|
17
17
|
|
|
18
18
|
For i = 1 To 30000
|
|
19
19
|
With UserForm2
|
|
20
|
-
.ProgressBar1.Value =
|
|
20
|
+
.ProgressBar1.Value = i
|
|
21
21
|
.パーセント.Caption = Int(i / 30000 * 100) & "%"
|
|
22
22
|
.Repaint
|
|
23
23
|
End With
|
1
コードの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
### 実現したいこと
|
|
2
2
|
|
|
3
|
-
時間のかかる処理をする際に分かりやすく進捗を表示したい
|
|
3
|
+
時間のかかる処理をする際に分かりやすく進捗を表示したいです。
|
|
4
4
|
|
|
5
5
|
処理したいコードにForやWithを複数記述しているため、下記にしたのですが正常に進捗と％が＝になりません。
|
|
6
6
|
（100%になっても処理が続いてしまう）
|
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
|
|
14
14
|
UserForm1.Hide
|
|
15
15
|
Dim i As Long
|
|
16
|
-
|
|
16
|
+
UserForm2.Show vbModeless
|
|
17
17
|
|
|
18
18
|
For i = 1 To 30000
|
|
19
19
|
With UserForm2
|