VBAで判定音を鳴らす方法
- VBAを使用して、Windows7のExcel2010で動作させる際にメディアプレーヤーが表示されてしまう問題が発生しています。
- 改造することでメディアプレーヤーを表示せずに判定音を鳴らす方法を教えてください。
- プログラムや音楽データの関連付けを確認することも必要です。
- ベストアンサー
VBAで判定音を鳴らす方法
以前に古いPCにて以下のVBAプログラムで判定音を鳴らしていたのですが、新しい PCでWindows7のEｘｃｅｌ2010で動かしたら、メディアプレーヤーが出てきてしまいます。 メディアプレーヤーを出さずに、するにはどの様に改造すればよいでしょうか？ (もしかしたらプログラムや音楽データの関連付けが悪いのかもしれませんが) 何方かよろしくお願いいたします。 「 Function 判定音OK() Dim BookName As Variant BookName = ThisWorkbook.Name '以下をアクティブ Windows(BookName).Activate Sheets("判断用紙").Select 'OK音楽データをセレクト ActiveSheet.Shapes("OK").Select '音楽データ出力 Selection.Verb Verb:=xlPrimary End Function 」
- mitsu14
- お礼率50% (3/6)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
音楽（曲）ならmciSendString を使うのが簡単ですが 特定のフォルダーに置くとPCによって鳴らなくなるのでシステムの音を使う例です。 音楽ではなく短いシステム音で判定します。 Option Explicit Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then MessageBeep &H10 End If If WorksheetFunction.IsText(Target.Value) = True Then MessageBeep &H30 End If If WorksheetFunction.IsNumber(Target.Value) = True Then MessageBeep &H40 End If End Sub
関連するQ&A
- エクセルVBAで.mp3ファイルを鳴らす
こんにちは。 エクセル2003のVBAで.mp3ファイルを鳴らす方法を教えてください。 初心者なので、ドラッグ＆ドロップでエクセルシートの上に.mp3ファイル をオブジェクトの挿入で、アイコンにして追加しました。 このアイコンをクリックするとウインドウズのメディアプレーヤーが 起動して,mp3ファイルは問題なく再生されます。 (エクセルファイルサイズの大きさから。mp3ファイルはエクセルに含まれて いると考えられます。) 次にマクロのキー記録から次のようなコードを調べてVBAエディターを使って マクロに記載しました。 ActiveSheet.Shapes("Object 3").Select Selection.Verb Verb:=xlPrimary マクロを起動して問題なく.mp3は再生されますが、エクセルファイルの方が応答なし になり、フリーズしてしまい、エクセルを閉じる以外に元に戻せなくなります。 何か不足しているのでしょうか? お知恵を貸してください。 よろしくお願いします。
- ベストアンサー
- Windows 7
- VBAで印刷の成功判定
Excel2003でVBAをくんでいます。 印刷の成功判定を行いたくて、以下のFunctionをくみました。（印刷失敗時にFalseを返したい）しかし、印刷する処理で、実行エラーが発生してしまいます。 原因がわかりません。どなたかお教えください。よろしくお願いします。 '決裁処理用自動印刷機能 印刷処理の成功失敗を知りたい Function PrintAuto() PrintAuto = True '通常使うプリンタで印刷 Arrayに複数シート設定 Sheets(Array(SHEET_DETAIL1, SHEET_DETAIL2, SHEET_DETAIL3)).Select Sheets("ほげほげ").Activate ↓ここでコンパイルエラー発生（Functionまたは変数が必要です） PrintAuto = ActiveWindow.SelectedSheets.PrintOut(Copies:=1, Collate:=True) Sheets(SHEET_DETAIL1).Select Sheets(SHEET_DETAIL1).Activate End Function
- ベストアンサー
- Visual Basic
- 音が出なくなりました！
Windows Media Player9 と Real One Player を使おうと思ったら、音が出ません。メディアプレーヤーは画像だけが、リアルワンに関しては、音も画像も出ません。 テレビに関しては、音も画像もＯＫなのです。 メディアプレーヤは、「サウンド デバイスに問題があるため、ファイルを再生できません。サウンド デバイスがお使いのコンピュータにインストールされていないか、別のプログラムが使用中か、または正常に機能していない可能性があります」と出てきます。 リアルワンに関してもサウンドに問題があるため再生できませんと出ます。 使用機種は、ソニーバイオのＰＣＶ－Ｗ５００です。ＯＳはＸＰです。 どなたか教えてくださ～い。
- 締切済み
- デスクトップPC
- ＰＣの音再生時の音切れ
音楽、その他音楽系データはWindows Media Player 11を使って再生 しているのですが 音楽データをダブルクリックしてplayerを起動した 時に 最初の音だけが途切れてしますのです。 例えで言うと「あいうえお」と録音されている音を再生すると 「 ぃうえお」という感じで再生されます。 このような症状はスピーカーが悪いのでしょうか？ それともＰＣ自体なんでしょうか？ ぜひお言葉をお願いします。
- 締切済み
- デスクトップPC
- ＶＢＡで音楽を再生させた後
ＶＢＡで音楽を再生させた後、Windows Media Playerを消したいのですが、 手作業で×ボタンを押すしかないのでしょうか？ Sub 終了音を鳴らす() Dim SoundFile As String SoundFile = "C:\終了音.wav" Shell "c:\program files\windows media player\wmplayer.exe /play /close " & SoundFile End Sub で、音楽は鳴らせるのですが、添付画像のように Windows Media Playerは開いたままです。 音楽を鳴らした後に、Windows Media Playerも閉じる方法をご教授ください。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 音が出なくて困っています。
今までは全然問題なかったのですが、昨日sonicstageを使用中に突然 音が出なくなりました。 そこで、以下の事をためしてみました。 ・GOMプレイヤーの再生 NG ・CDを入れて聞いてみる NG ・サウンドとオーディオデバイスからプログラムイベントでのウィンドウズの起動や終了の再生を行う NG ・デジタルミュージックプレイヤーに転送して聞いてみる OK ・CDデータファイルを入れてみる OK ・PC立ち上げ時にVAIOの文字が出るのですが、そのときだけ音がでて その後はいっさい音が出ない。 上記の様な感じです。 一応トラブルシューティングも行ってみたのですが問題はなかったと思います。 誰か解決方法を教えて下さい。お願いします。
- ベストアンサー
- その他(PCパーツ・周辺機器)
- 音がません・・・
Windows Media Player１0ですがDVDを再生しても音が出ません。RealPlayerです。 mplayercnなら音はでます。サウンドはC-Media使ってます。また音楽再生中も音に大小の波があります。
- 締切済み
- Windows XP
- ＸＰで音・音楽・映像（の音だけ）をMP3化。
windows media playerなどで再生している音・音楽・映像（の音だけ）を録音することは可能でしょうか？ 最終的にはＭＰ３のデータにしたいです。 通常スピーカーから出る音をすべて録音するソフトがＭＡＣにはあるそうです。 ＷＩＮではそのようなものはないでしょうか？
- ベストアンサー
- Windows XP
- メディアプレーヤーで音が聞こえなくなりました
メディアプレーヤーを１０に更新するダウンロードを行ったところ、音が聞こえなくなりました。パソコンの音や他のソフトの音は問題ないようです。更新するまではメディアプレーヤーで音楽を聴くことが出来ました。 どうしたらよいのかわかりませんのでアドバイスをお願いします。
- 締切済み
- Windows XP
- 音がでない！
タイトルのとおりです。 ＰＣの音がでなくなりました。 基本的なことかもしれませんが、どうにも分かりません。 オンラインゲームの音が鳴りません。 メディアプレイヤーの音も鳴りません。 ホームページ内の音（開くと音楽が鳴るようになっているんでしょうか）は鳴ります。 ？？・・・何が原因なんでしょう・・・？？
- ベストアンサー
- その他（インターネット・Webサービス）
お礼
お礼が遅くなってすみませんが、 ありがとうございます。 記載の通り、短いシステム音でしたので、 タイマと連続をかませてNG音を連続させることによって 使用できました。 本当にありがとうございました。