|
|
|
Author |
Message |
jejkskpj
|
Posted: 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
|
Posted: 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
|
Posted: Thu Jun 22 03:09:42 CDT 2006 |
Top |
|
|
|
paul
|
Posted: 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
|
Posted: 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
|
|
|
|
|
|
|