• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 727
  • Last Modified:

Excel 2013 - progress bar

To give a visual indication of progress in a loop I've been using something like this on each time round the loop.

    Sheet2.Shapes("Rectangle 9").Width = intWidth

To make it work I generally need a
Application.ScreenUpdating = True (though I'm not sure why, since I have not turned it off)

Anyway, I was wondering if anyone knows of a slicker way of doing this?
Maybe something that uses the Windows API?
Thanks
0
hindersaliva
Asked:
hindersaliva
  • 2
  • 2
1 Solution
 
hindersalivaAuthor Commented:
Found a way with Conditional Formatting. It works
http://www.howtogeek.com/howto/45677/how-to-create-progress-bars-in-excel-with-conditional-formatting/

Any other methods?
0
 
Steve KnightIT ConsultancyCommented:
Listening here for other interesting ways.... have used similar to above, or updated a counter cell, also updated the status bar with info or string of | characters etc - that works then with screenupdating false too.  

on phone at mo. but will have a look at your other link on pc later.

steve
0
 
[ fanpages ]IT Services ConsultantCommented:
Hi,

For your information, there is a published article here:

"A VBA Progress Bar for Excel and Other Microsoft Apps"
[ http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/A_1756-A-VBA-Progress-Bar-for-Excel-and-Other-Microsoft-Apps.html ]

Also for background reading:

"Excel 2003 - Progress Bar for Multiple Subs"
[ http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_27505597.html ]

"Progress Bar & automatic Calculation"
[ http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Q_27730040.html ]

BFN,

fp.
0
 
hindersalivaAuthor Commented:
Thanks fanpages!

Doh! I should have searched EE first. That's all the stuff I need.
Thanks.
0
 
[ fanpages ]IT Services ConsultantCommented:
:)

You're welcome!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now