Application.StatusBar = True
DoEvents
Application.StatusBar = Format(k / runs, "0.00%") & " Complete. " & k & " / " & runs
Basically, the code above appears in parts of my code. I'm doing a lengthy simulation using excel vba and i'm trying to use the status bar updates to track the progress of the code. The problem is the status bar update is 'hidden' (i.e. flickers for a brief second) behind the solver status updates 'trial solution: 1 Set Cell: 0.0487' etc etc as part of the simulation involves optimizing a certain parameter. I hope you get my meaning. I'm trying to find a way to disable the 'trial solution' bit from appearing of forcing the status update as above to always display on top of anything else.
The above code works perfectly in a separate piece of work i did. But in that separate work, I was not using any solver and the status bar would display 5.00% Complete and update as the program progressed.
DoEvents
Application.StatusBar = Format(k / runs, "0.00%") & " Complete. " & k & " / " & runs
Basically, the code above appears in parts of my code. I'm doing a lengthy simulation using excel vba and i'm trying to use the status bar updates to track the progress of the code. The problem is the status bar update is 'hidden' (i.e. flickers for a brief second) behind the solver status updates 'trial solution: 1 Set Cell: 0.0487' etc etc as part of the simulation involves optimizing a certain parameter. I hope you get my meaning. I'm trying to find a way to disable the 'trial solution' bit from appearing of forcing the status update as above to always display on top of anything else.
The above code works perfectly in a separate piece of work i did. But in that separate work, I was not using any solver and the status bar would display 5.00% Complete and update as the program progressed.
