Ｅｘｃｅｌにてデータ１件入力完了時にチャイム音を

質問

一人が入力データを読み上げ、他の一人がＥｘｃｅｌにそのデータを入力しようとしています。
１件のデータは５項目から成り、順にＡ列～Ｆ列に入力します。
Ｆ列への入力が終える度に、チャイム音を発するようにさせ、読み上げ者に知らせるようにしたいと考えております。
どなたか、マクロをご提示していただけると幸いです。
ＯＳは、Ｗｉｎｄｏｗｓ８．１、Ｅｘｃｅｌは２０１３です。
確かＷｉｎＸＰパソコン内にあった「ティンドン」という音声ファイルを起動させてやったこような記憶ありますが、保存場所や起動方法を忘れてしまいました。

回答No.2

watabe007 · ベストアンサー

シートモジュールに以下を貼り付けてください。
F列に入力が有れば音が鳴ります。
Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　　　If .Count > 1 Then Exit Sub
　　　　If .Column <> 6 Then Exit Sub
　　　　CreateObject("Wscript.Shell").Run _
　　　　　　"C:\Windows\Media\Notify.wav", 0, False
　　End With
End Sub
チャイム音はネットで "フリー効果音" などで検索すると多数ヒットします。

お礼

早々にご回答を頂いていましたのに、実行が遅くなり申し訳ありませんでした。
ご回答頂いた内容は、正に期待していた内容でした。ありがとうございました。

回答No.1

chayamati

こんにちは
ベタですが、コマンドボタンを配置して、これをクリックするとBEEP
配置は開発リボンの挿入のフォームコントロールのボタンと進みます
Sub 　ボタン1_Click()
Beep
End Sub