Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5316 / 13646 ツリー ←次へ | 前へ→

【51535】エクセルでメトロノームを作るには tosi 07/9/22(土) 11:11 質問[未読]
【51536】Re:エクセルでメトロノームを作るには neptune 07/9/22(土) 15:09 発言[未読]
【51537】Re:エクセルでメトロノームを作るには ichinose 07/9/22(土) 17:07 発言[未読]
【51541】Re:エクセルでメトロノームを作るには tosi 07/9/23(日) 5:50 お礼[未読]

【51535】エクセルでメトロノームを作るには
質問  tosi  - 07/9/22(土) 11:11 -

引用なし
パスワード
   はじめまして。よろしくお願いいたします。

【なぜエクセルで?】
ほぼどのパソコンにもエクセルがインストールされているので、またVBAをすこし自学したことがあるのでこのように考えました。
【質問したい内容】
1.VBAで(おそらくAPIというものを使用するのでしょうが)、GMサウンドを鳴らすにはどのようなコードになるのでしょうか?
2.作成したマクロに正確なテンポ(これもマシンのクロックや状態によって不安定だそうですが)を与えるにはどのようなコードが必要でしょうか?
【ご回答いただきたい内容】
1.とっかかりができれば、その後は自学できますので(APIもふくめて)、VBAを使って音を鳴らす(ファイルをいちいち読み込む形でなく)方法のサンプルコードを教えて欲しいです。
2.一定間隔でマクロを動作させること方法が分かれば応用できると思うので、そのサンプルコードを教えて欲しいです。

【最後に】
初心者のつまらない質問かもしれませんが、お時間がありましたらご回答よろしくお願いいたします。失礼いたします。

【51536】Re:エクセルでメトロノームを作るには
発言  neptune  - 07/9/22(土) 15:09 -

引用なし
パスワード
   こんにちは

私も画像や音関係はやったこと無いのですが、
>【ご回答いただきたい内容】
>1.とっかかりができれば、その後は自学できますので(APIもふくめて)、VBAを使って音を鳴らす(ファイルをいちいち読み込む形でなく)方法のサンプルコードを教えて欲しいです。
下記のサンプルが役に立ちそうです。解析下さい。
h t t p://www.skai.co.jp/arufonsu/vb/VB-002-07-003.htm

>2.一定間隔でマクロを動作させること方法が分かれば応用できると思うので、そのサンプルコードを教えて欲しいです。
私見ですが、Excelで正確な時間を切ってイベントを発生させるのは
恐らく出来ません。SetTimerというAPIもありますが、Excelで使うのは危険で
実用的ではありません。

従って、
>1.とっかかりができれば、その後は自学できま・・・
>2.一定間隔でマクロを動作させること方法が分かれば応用できると・・・
ということなので、
VB2005で作成してはいかがでしょうか?MSから無料でDLできます。
下記を参考にしてください。
このサイトは非常に学習するにはよいサイトと思います。
h t t p://homepage1.nifty.com/rucio/main/material/VB2005inst.htm

Timerコントロールと言うものを使用すれば簡単に出来ます。

【51537】Re:エクセルでメトロノームを作るには
発言  ichinose  - 07/9/22(土) 17:07 -

引用なし
パスワード
   こんにちは。

>はじめまして。よろしくお願いいたします。
>
>【なぜエクセルで?】
>ほぼどのパソコンにもエクセルがインストールされているので、またVBAをすこし自学したことがあるのでこのように考えました。
>【質問したい内容】
>1.VBAで(おそらくAPIというものを使用するのでしょうが)、GMサウンドを鳴らすにはどのようなコードになるのでしょうか?
>2.作成したマクロに正確なテンポ(これもマシンのクロックや状態によって不安定だそうですが)を与えるにはどのようなコードが必要でしょうか?
>【ご回答いただきたい内容】
>1.とっかかりができれば、その後は自学できますので(APIもふくめて)、VBAを使って音を鳴らす(ファイルをいちいち読み込む形でなく)方法のサンプルコードを教えて欲しいです。
>2.一定間隔でマクロを動作させること方法が分かれば応用できると思うので、そのサンプルコードを教えて欲しいです。
>
メトロノームといえば・・・、私には、あのカチツ、カチツ、カチツ という音が
頭に浮かびますが・・・。
カチツ、カチツ、カチツと言えば、リンクをクリックした時のカチッ という音と
同じように聞こえます。で、その音で試しました。


Win2000 & Excel2002で
メディアコントロールを使うと音は簡単に再現できました。

新規ブックに標準モジュールに

'===========================================================
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
  Dim idx As Long
  Dim ole As OLEObject
  Set ole = ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX.7", Link:=False, _
    DisplayAsIcon:=False, Left:=0, Top:=0, Width:=200, Height:=200)
  ole.Object.URL = "C:\WINNT\Media\start.wav"
  For idx = 1 To 30
    ole.Object.Controls.Play
    DoEvents
    Sleep 300
    Next
  ole.Delete
End Sub

環境によってコントロールの仕様が違いますが、
メディアプレーヤーをシートに配置し、
事前にカチッという音のWavファイルなりを設定し、

後は、Sleep等で定期的に音を出すと言う方法です。

私の環境では、何となくメトロノームっぽい音はしましたよ!!

検討材料としてみてください

【51541】Re:エクセルでメトロノームを作るには
お礼  tosi  - 07/9/23(日) 5:50 -

引用なし
パスワード
   みなさま、温かいご指導ありがとうございます。
朝起きてみてお二人からレスがあり、とても感謝いたしております。
さっそく教えていただいたことを実践したいと思います。
素人なので、このような掲示板(人と人との正のコミュニケーションの場)があるかぎり日本は安泰?などと考えてしまいました。
また質問をさせていただくこともあろうかと思いますがよろしくお願いいたします。
それでは失礼いたします。

5316 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free