Excel VBAでＢＥＥＰ音を鳴らす方法を教えて

質問

Excel　VBA初心者です。
Ｗorksheetの９行目　”Ａ９からＡＺ９”間のいづれかのセルに”当たり”の文字があれば、１０秒間、音の大きさも調整できるＢＥＥＰ音を鳴らす方法を教えてください。

使用環境は、
Win8.1でEXCELは2010を使用しています。

（追伸）
なお、もし可能ならば、
同様に　9行目（Ａ９：ＡＺ９）のいづれかのセルに
”当たり”　があれば　”ファンファーレ”のような【効果音】をならし、
”はずれ”　があれば　”Beep音”を鳴らす方法がわかれば　”ＢＥＳＴ回答”　
に選ばせていただきます。

回答No.1

skp026 · ベストアンサー

以下にExcel VBAで音を扱うサンプルがあります。
http://www.start-macro.com/55/w/s077.html
ここのWin32APIのbeepを使った方法と、
メディアプレーヤーを使った方法が、
ご希望に近いと思います。
ご確認ください。

ご希望と違ったらごめんなさい。

お礼

最速のご回答に感謝して、御礼申し上げます。

回答No.2

takasan_2525

ブログでの回答ですが、こういったものはいかがでしょうか？
https://blog.hatena.ne.jp/takataka2743/ydcoco.hatenablog.com/edit?entry=10257846132615713704