[[20021225003655]]　『ビープ音を複数回鳴らすマクロ』（お助け）　ページの最後に飛ぶ

『ビープ音を複数回鳴らすマクロ』（お助け）

　ワークシートを開いたとき、ビープ音が３回鳴る下の様なマクロを作ってみましたが、

１回しか鳴りません。何処かおかしいのでしょうか。お教え下さい。

Private Sub Workbook_Open()

   Dim I

   For I = 1 To 3            ' ループを 3 回繰り返します。

    Beep                    ' ビープ音を鳴らします。

   Next I

   MsgBox ("今日もマクロの勉強がんばれよ")

End Sub

 連続では音が複数聞こえないと思います。

 例えば2秒待たせるには下のようにします。

 Application.Wait(Now() + TimeValue("00:00:02"))

 4行目のBeepのあと2秒くらい待たせて見てください。

 音がでるパソコンがサブノートしかないのでテストしていませんが。

（kazu）

コメント返信：