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
Post a Comment