excel - Just want to show a Popup Or Status bar during running of VBA code -


i have long code & taking approx. 1 min 30 sec execute , want show status bar showing "please wait...running" or popup same message or else on easy. consist many while, & if conditions.. don't want use long code or heavy method show message, please suggest small way this.

here short procedure demonstrate adjusting application.statusbar property text in loop.

sub sb_text()     dim w long, s long, d double      s = 2 '<~~ seconds between actions      application.statusbar = "preparing ..."     d = + timeserial(0, 0, s): while < d: doevents: loop      w = 1 5         application.statusbar = "working: " & w         d = + timeserial(0, 0, s): while < d: doevents: loop     next w      application.statusbar = "finished"     d = + timeserial(0, 0, s): while < d: doevents: loop      application.statusbar = vbnullstring end sub 

i've set 2 second pause can observe changes status bar text. in actual procedure loop, waiting replaced actual work being done.


Comments

Popular posts from this blog

javascript - Chart.js (Radar Chart) different scaleLineColor for each scaleLine -

apache - Error with PHP mail(): Multiple or malformed newlines found in additional_header -

java - Android – MapFragment overlay button shadow, just like MyLocation button -