構文
Beep
指定場所にBeepと記載する事で、マクロでBeep音を鳴らすことが可能です。
Beepステートメントのサンプルコード
Public Sub sample() '■1回Beep音(警告音)を鳴らす。 Beep Dim i As Long '■複数回Beep音(警告音)を鳴らす。 For i = 1 To 10 Beep Next End Sub
注意点
- Beep音の鳴る時間、周波数はPCによって異なります。
- 1回だと短くて聞こえなければ、上記のようにループ処理をします。
- もしくはWindowsAPIのBeep関数/BeepAPIを使用しましょう。
関連記事
コメント