エクセルのVBAに詳しい方教えてください。
以下のようにA列に上の値が違う時にBEEP音が5回鳴る関数を教えて頂きました。
現在worksheetに記述しています。
このBEEP音を違う音にしたいのですが可能でしょうか?現在単調な音なのでもっと注意喚起できる音
にしたいのですが。
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
For i = 1 To 5 '回数
Application.Wait Now + TimeValue("00:00:01")
Beep
Next
End If
End If
End With
End Sub
No.3ベストアンサー
- 回答日時:
こんばんは!
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
ありがとうございます。早速やってみましたが64ビット云々のエラーが出てしまいます。私の環境が64ビットエクセルなので
動かないようです。64ビット変数少し勉強してみます。
No.2
- 回答日時:
Beep コマンドの音をソフトウェアの設定で変えることはできません。
マザーボードに接続されているブザーを取り替えれば音は変わります。つまり機種によって音は違います。Beep の代わりにサウンドファイルを再生するようにプログラムすれば好きな音が出せるようになります。
http://officetanaka.net/excel/vba/tips/tips22.htm
しかし、サウンド機能を持たないパソコンでは何も起こらなくなってしまう欠点もあります。
私が以前開発に携わっていたアプリではオープニングジングルを鳴らす時のエラーをチェックすることでサウンド機能の有無を確認し、音を鳴らす専用の関数を作成してそこを呼び出すようにしていました。
ありがとうございます。エクセルのマクロで大きな音が欲しいのです。
教えて頂いたマクロがBEEP音だったので。当方皆様のようなスキルが無い為質問マクロのどこをどう変えたら良いのか教えていただけば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
エクセルで音を鳴らしたい
Excel(エクセル)
-
エクセル、条件を満たしたら音を鳴らす方法教えて下さい
Excel(エクセル)
-
VBAでシステム音を鳴らす方法
Visual Basic(VBA)
-
-
4
ピンポーンの音
芸術学
-
5
VBA で警告音
Visual Basic(VBA)
-
6
ビープ音を連続して鳴らす
Visual Basic(VBA)
-
7
「DecareステートメントにPtrSate属性を設定してください」のエラー
Visual Basic(VBA)
-
8
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
9
UserForm1.Showでエラーになります。
工学
-
10
Excelでセル入力後に音を鳴らす方法は?
その他(Microsoft Office)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
エクセルで条件を満たした場合に音を鳴らしたいです。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
おじさんの食べ方って何であん...
-
秋は、どうして音が綺麗に聞こ...
-
この音は何ですか?
-
壁を叩くような音
-
至急です。助けてください。 夜...
-
夜や夜中に家にいると謎の音が...
-
処女膜が破れたときって自分で...
-
職場でマウスの使い方がうるさ...
-
就寝中の大きな音の原因がわか...
-
朝6時、毎日あるいは土日?銃...
-
宗教でしょうか?木琴を叩く音...
-
運転中にシャッター音が鳴ります。
-
ゼルダの伝説のティアキンのネ...
-
ポテトチップスを食べる時 自分...
-
PCのキュッキュッキュという音
-
ホイッスルの音を小さくする方...
-
音で人は死ぬ?
-
冷蔵庫からものすごい音がする...
-
AIがアダルトビデオから嫌いな...
-
欧米ではストローで最後に音を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
おじさんの食べ方って何であん...
-
夜や夜中に家にいると謎の音が...
-
最近不定期に謎の通知音がなります
-
ゼルダの伝説のティアキンのネ...
-
この音は何ですか?
-
壁を叩くような音
-
自分もうるさいくせに、いちい...
-
まさに地獄状況!下痢気味の際...
-
至急です。助けてください。 夜...
-
処女膜が破れたときって自分で...
-
職場でマウスの使い方がうるさ...
-
宗教でしょうか?木琴を叩く音...
-
PS5の異音 PS5が使用中、電源切...
-
テレビから「パキッ」というよ...
-
運転中にシャッター音が鳴ります。
-
朝6時、毎日あるいは土日?銃...
-
就寝中の大きな音の原因がわか...
-
音で人は死ぬ?
-
やたら音に反応する人について
-
シューズの音
おすすめ情報