構文
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を使用しましょう。
関連記事



コメント