Excel VBA executed instruction not in sequence

[tgyew]

I created a simple count down to delay the display of my math result. The strange thing happen was, one of my math input (Sub1) not get to display before the count down. Can anyone help me with what's wrong in the code below?

' Function: Making Number from 3 to 10, with count downSub MakingNumber()
Dim Main As Double
Dim Sub1 As Double
Dim Result As Double
Dim Text As String
Dim WShell As Object: Set WShell = CreateObject("WScript.Shell")
Dim strCnt As String


'Clear all value
Range("C2") = ""
Range("B4") = ""
Range("D4") = ""


' Random assign values and compute the results
Main = WorksheetFunction.RandBetween(3, 10)
Sub1 = WorksheetFunction.RandBetween(1, (Main - 1))
Result = Main - Sub1


' Display the values of the question
Range("C2") = Main
Range("B4") = Sub1


' Count Down
For i = 0 To 4
    strCnt = Main & " - " & Sub1 & " = ? " & vbCrLf & "Count Down " & (5 - i)
    WShell.Popup strCnt, 1, "CountDown", vbOKOnly
Next i


' Display the result
Range("D4") = Result
Text = Main & " - " & Sub1 & " = " & Result
MsgBox Text, , "Result"


End Sub

 

[Norie]

As far as I can see the value of Sub1, which I assume is 4, is being displayed within the loop.

 

[tgyew]

As far as I can see the value of Sub1, which I assume is 4, is being displayed within the loop.

By design, Sub1 in the marco should display before the loop. Right now it is display after the loop. Not sure whats went wrong.

' Display the values of the question
Range("C2") = Main
Range("B4") = Sub1


' Count Down 
For i = 0 To 4
....[COLOR=#574123]
[/COLOR]

 

[Norie]

Are you referring to the values on the sheet or in the popups/message box?

 

[tgyew]

I was referring to the value on the sheet.

 

[Computerman]

tgyew,
Have you tried stepping through the code? Place a breakpoint at the first line afer the dim statements and then press f8 to step thrugh each subequent line. Does Cell B4 populate pperly then

Computerman

 

[tgyew]

tgyew,
Have you tried stepping through the code? Place a breakpoint at the first line afer the dim statements and then press f8 to step thrugh each subequent line. Does Cell B4 populate pperly then

Computerman

I tried out adding breakpoint, it able to populate Sub1 value in B4 properly. Once I removed breakpoint, it skipped thru the populating and direct go to count down.

 

[Computerman]

tgew,
Have you tried putting the line that displays B4 before the line that displays C2? See if the problem stays with B or stays with the second value displayed.

Computerman

 

[tgyew]

tgew,
Have you tried putting the line that displays B4 before the line that displays C2? See if the problem stays with B or stays with the second value displayed.

Computerman

I had tried display B4 before C2, and it show only B4 and no C2. Looks like a display timing issues in vba that pop up windows took the priority of display before the sheet get updated. I added one second delay and the problem solved.

[COLOR=#303336][FONT=inherit]Application[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Wait[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]Now [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+[/FONT][/COLOR][COLOR=#303336][FONT=inherit] TimeValue[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"00:00:01"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]))[/FONT][/COLOR]

 

[tgyew]

' Display the values of the question
Range("C2") = Main
Range("B4") = Sub1



<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">[COLOR=#303336][FONT=inherit]Application[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Wait[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]Now [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+[/FONT][/COLOR][COLOR=#303336][FONT=inherit] TimeValue[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"00:00:01"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]))[/FONT][/COLOR]</code>' Count Down For i = 0 To 4....</pre>