screen updating  
Author Message
jejkskpj





PostPosted: Thu Jun 22 02:57:08 CDT 2006 Top

Excel Programming >> screen updating

I am running a simulation which creates a graph (covers almost the whole
sheet) on my Excel sheet. Also, there are some numbers on the bottom of
the sheet, which change as the simulation runs. I would like to see the
simulation running on the graph and the numbers changing on the bottom,
but now the view moves to the point where the results are recorded. Is
there any way to "lock" the view so that I can see the graph changing
while the simulation runs? Here is the code that I have created.

Sub Simulation()
'
Range("RESULTS").Select
Selection.ClearContents

For counter = 1 To Range("ITERATIONS")
Range("NPV").Select
Calculate
Cells(counter + 3, 16).Value = ActiveCell.Value
Next counter


End Sub


--
miikka1978
------------------------------------------------------------------------
miikka1978's Profile: http://www.hide-link.com/ ;userid=32294
View this thread: http://www.hide-link.com/

Excel525  
 
 
Piotr





PostPosted: Thu Jun 22 02:57:08 CDT 2006 Top

Excel Programming >> screen updating

[...]

Replace:

> Range("RESULTS").Select
> Selection.ClearContents

with:

Range("RESULTS").ClearContents

and replace:

[...]
> Range("NPV").Select
> Calculate
> Cells(counter + 3, 16).Value = ActiveCell.Value
[...]

with:

Calculate
Cells(counter + 3, 16).Value = Range("NPV").Value

This won't affect the Selection object so this is probably what you want.

--
PL
 
 
miikka1978





PostPosted: Thu Jun 22 03:09:42 CDT 2006 Top

Excel Programming >> screen updating
Thanks a lot!


Miikka


--
miikka1978
------------------------------------------------------------------------
miikka1978's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=32294
View this thread: http://www.excelforum.com/showthread.php?threadid=554442

 
 
paul





PostPosted: Thu Jun 22 03:12:51 CDT 2006 Top

Excel Programming >> screen updating Hi
You need to stop the axes on the graph rescaling.
Right click the x and y axes on the graph, choose format axes... and
click on the scale tab. Unclick the Auto boxes and set your scale
values as required.
I would also suggest in your code that you put in a DoEvents. This will
make your graphics change more smoothly, and let it respond to a button
click (to stop the animation for example).

For counter = 1 To Range("ITERATIONS")
Range("NPV").Select
Calculate
Cells(counter + 3, 16).Value = ActiveCell.Value
DoEvents
Next counter

and you can simplify your code to

For counter = 1 To Range("ITERATIONS")
Calculate
Cells(counter + 3, 16).Value = Range("NPV").Value
DoEvents
Next counter

you may also be able to leave out the Calculate bit. Try it.

regards
Paul



> I am running a simulation which creates a graph (covers almost the whole
> sheet) on my Excel sheet. Also, there are some numbers on the bottom of
> the sheet, which change as the simulation runs. I would like to see the
> simulation running on the graph and the numbers changing on the bottom,
> but now the view moves to the point where the results are recorded. Is
> there any way to "lock" the view so that I can see the graph changing
> while the simulation runs? Here is the code that I have created.
>
> Sub Simulation()
> '
> Range("RESULTS").Select
> Selection.ClearContents
>
> For counter = 1 To Range("ITERATIONS")
> Range("NPV").Select
> Calculate
> Cells(counter + 3, 16).Value = ActiveCell.Value
> Next counter
>
>
> End Sub
>
>
> --
> miikka1978
> ------------------------------------------------------------------------
> miikka1978's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=32294
> View this thread: http://www.excelforum.com/showthread.php?threadid=554442

 
 
paul





PostPosted: Thu Jun 22 03:20:13 CDT 2006 Top

Excel Programming >> screen updating Hi
Just reread your mail and I'm answering a whole other problem. Sorry
about that!
Paul


> Hi
> You need to stop the axes on the graph rescaling.
> Right click the x and y axes on the graph, choose format axes... and
> click on the scale tab. Unclick the Auto boxes and set your scale
> values as required.
> I would also suggest in your code that you put in a DoEvents. This will
> make your graphics change more smoothly, and let it respond to a button
> click (to stop the animation for example).
>
> For counter = 1 To Range("ITERATIONS")
> Range("NPV").Select
> Calculate
> Cells(counter + 3, 16).Value = ActiveCell.Value
> DoEvents
> Next counter
>
> and you can simplify your code to
>
> For counter = 1 To Range("ITERATIONS")
> Calculate
> Cells(counter + 3, 16).Value = Range("NPV").Value
> DoEvents
> Next counter
>
> you may also be able to leave out the Calculate bit. Try it.
>
> regards
> Paul
>
>

> > I am running a simulation which creates a graph (covers almost the whole
> > sheet) on my Excel sheet. Also, there are some numbers on the bottom of
> > the sheet, which change as the simulation runs. I would like to see the
> > simulation running on the graph and the numbers changing on the bottom,
> > but now the view moves to the point where the results are recorded. Is
> > there any way to "lock" the view so that I can see the graph changing
> > while the simulation runs? Here is the code that I have created.
> >
> > Sub Simulation()
> > '
> > Range("RESULTS").Select
> > Selection.ClearContents
> >
> > For counter = 1 To Range("ITERATIONS")
> > Range("NPV").Select
> > Calculate
> > Cells(counter + 3, 16).Value = ActiveCell.Value
> > Next counter
> >
> >
> > End Sub
> >
> >
> > --
> > miikka1978
> > ------------------------------------------------------------------------
> > miikka1978's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=32294
> > View this thread: http://www.excelforum.com/showthread.php?threadid=554442