如何在程式執行的同時顯示”程式執行中…”

[Limking]

請教，誰知道如何在程式執行的同時顯示”程式執行中….”,直到程式碼執行完畢

[Limking]

以下面為例:
for i=1 to 600
for j=1 to 250
cells(i,j)=”test”
next j
next i
怎樣讓cells在被寫入的同時提示”儲存格寫入中…..”,當所有cells被寫完后該提示框關閉.