|
▼iino さん:
>現在プログレスバーが作動中はその作業のみですが
>単純に、この作動中にもバックでは他のマクロが動くように
>できる?かの質問なんですが・・・
>その場合下記のコードにCall・・・等を組み込むことで
>>そうではなく別の意味ですか(ひとつ心当たりがありますが)?
>たぶん心当たりではないかと思うのですが?
心当たりの見当が全くついてませんが、
プログレスバーってこんな感じですよ!
Sub prog()
Application.DisplayStatusBar = True
cnt = 20999
Joz = 1000
moji = String(Int(cnt \ Joz), "□")
Application.StatusBar = moji
For i = 1 To cnt
Cells(1, 1).Value = i
If i Mod Joz = 0 Then
moji = Application.Substitute(moji, "□", "■", 1)
Application.StatusBar = moji
End If
Next
MsgBox "終了"
Application.StatusBar = Empty
End Sub
|
|