【ExcelVBA】実行状況を出力する -プログレスバーっぽく

スポンサーリンク
プログラミング

マクロ実行時に「バグってない?固まってない?」とならないように、処理の状況を画面に表示させましょう。

表示される場所はExcelの左下(ステータスバー)に表示されます。

使い方
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As Long)

Sub test()
    Dim i As Integer
    Dim j As Integer
    Dim progressCount As Integer
    Dim progressText As String
    
    progressCount = 1
    
    For i = 1 To 10
        progressText = "処理中:"
        For j = 1 To 10
            If j <= progressCount Then
                progressText = progressText & "■"
            Else
                progressText = progressText & "□"
            End If
        Next j
        progressText = progressText & "(" & progressCount & "/10)"
        Application.StatusBar = progressText
        progressCount = progressCount + 1
        Sleep 1000
    Next i

End Sub

暇な時間にU-NEXT

今なら無料1ヶ月無料トライアル600円分の有料コンテンツを使えるチャンス!

見放題作品が31日間無料で視聴可能最新作はレンタル配信!

600円分のポイントプレゼント!DVD・ブルーレイよりも先行配信の最新作、放送中ドラマの視聴や最新コミックの購入に使用可能

 

追加料金なく、80誌以上の雑誌が読み放題

プログラミング
スポンサーリンク
uediveをフォローする
SEの休日

コメント

タイトルとURLをコピーしました