初心的な質問で申し訳ないのですが
３秒ごとにテキストボックスに１・２・３を表示するプログラムを作ろうと思うのですが

text1.Text = "１"
Sleep 3000

text1.Text = "２"
Sleep 3000

text1.Text = "３"


↑のように書くと
最初に現れる文字が３になってしまいます。
１・２・３を表示させるにはどうしたらよいのですか？

(ＸＰ：Ｅｘｃｅｌ２００２　)

> ３秒ごとにテキストボックスに１・２・３を表示するプログラムを作ろうと思うのですが

手抜き実装としては、
    TextBox1.Value = 1
    Application.Wait DateAdd("s", 3, Now)
    TextBox1.Value = 2
    Application.Wait DateAdd("s", 3, Now)
    TextBox1.Value = 3
のように書けます。

ただし、Wait 中は Excel を操作できなくなります。
もし、非同期的に処理させたいのであれば、Wait メソッドの代わりに
OnTime メソッドを使えば OK です。

# あるいは、SetTimer / KillTimer API を使うという方法もあります。

>
> 手抜き実装としては、
>     TextBox1.Value = 1
>     Application.Wait DateAdd("s", 3, Now)
>     TextBox1.Value = 2
>     Application.Wait DateAdd("s", 3, Now)
>     TextBox1.Value = 3
> のように書けます。
>
> ただし、Wait 中は Excel を操作できなくなります。
> もし、非同期的に処理させたいのであれば、Wait メソッドの代わりに
> OnTime メソッドを使えば OK です。
>
> # あるいは、SetTimer / KillTimer API を使うという方法もあります。


わかりました。エクセルの操作が出来なくなるのですね。
ありがとうございました。

OnTime メソッドの方も使ってみたいと思います。