|
田村亮 さん、皆さん、おはようございます。
>お世話になります。お知恵拝借させてください。
>
>たとえば、A1のセルに1、2、3、...10。と順に数値を入れるマクロで、入れるたびに処理を止めて画面を見たいのです。
>
>すなわち、A1に1を入れて止めて画面を見る。次に処理を進めて、A1に2を入れて止めて画面を見る...これを続けて行きたいです。
どうして上記のような処理がしたいのか がわからないのですが、
方法のひとつとして・・・
スピンボタンを使用する事も検討してみて下さい。
以下のコードでアクティブシートのセルA1にスピンボタンを連動します。
'============================================================
Sub main()
Dim spi As Spinner
With Range("a1")
Set spi = .Parent.Spinners.Add(.Left + .Width, .Top, 10, .Height)
With spi
.LinkedCell = "=" & Range("a1").Address(, , , True)
.SmallChange = 1
.Value = 1
End With
End With
End Sub
これでスピンボタンのクリックでセルA1の値が変更できます。
|
|