質問: 1 to 5 '回数 application.wait now + timevalue("00:00:01") beep next end if end if end with end sub
回答: こんばんは! http://www.start-macro.com/55/w/s077.html ↑のようなサイトがありましたので参考にさせてもらいました。 まず↓のコードを標準モジュールにしてください。 declare function beepapi lib "kernel32.dll" alias "beep" _ (byval dwfreq as long, byval dwduration as long) as long 次に↓のコードをシートモジュールにし、a列にデータを色々入れてみてください。 private sub worksheet_change(byval target as range) if intersect(target, range("a:a")) is nothing or target.count > 1 then exit sub with target if .row > 1 then if .value <> .offset(-1) then call beepapi(350, 500) '//←350hzを0.5秒// call beepapi(800, 500) call beepapi(390, 500) call beepapi(300, 500) call beepapi(600, 500) end if end if end with end sub ※ 「et」の音に近づけようとしましたが、 なかなかうまくいきませんでした。m(_ _)m