[[20050117191425]]　『数値によってＢＥＥＰ音を…』（Ｍｉｏｎ）　ページの最後に飛ぶ

『数値によってＢＥＥＰ音を…』（Ｍｉｏｎ）
エクセルで数値によってＢＥＥＰ音を鳴らしたいのですが、
可能でしょうか？

＜例＞Ａ＝数値
Ａ≧100　なら　ＢＥＥＰ音をならす
　　Ａ＝100　なら　ＢＥＥＰ音をならす　など

 音を出すのにはこちらを参考にしてみてください。
[[20050107153956]]『《セルの読み上げ》機能の声を変えたい！』（チビッコ）

 （川野鮎太郎）

 てきとうですが、ザナックのゲームオーバーの音。
 （ramrun）

 Private Declare Function APIBeep Lib "kernel32" Alias _
    "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

 Private Sub macro()
 Dim frq As Variant
 Dim lng As Variant

 Const d As Long = 261
 Const r As Long = 293
 Const m As Long = 329
 Const f As Long = 349
 Const s As Long = 392
 Const ss As Long = 415
 Const l As Long = 440
 Const c As Long = 493
 Const d2 As Long = 523
 Const r2 As Long = 587
 Const m2 As Long = 659
 Const f2 As Long = 698
 Const s2 As Long = 784
 Const t As Long = 60000 / 120

 frq = Array(l, s, l, d2, r2, c, l, l, _
    d2, c, r2, d2, c, l, d2, c, l, ss, l, ss, l, c, l)
 lng = Array(t / 4, t / 4, t * 4, t * 1.5, t * 1.5, t * 3, t, t * 4, _
    t, t, t, t, t, t, t / 2, t / 2, t / 2, t / 2, t, t, t, t, t * 2)

 For i = 0 To UBound(frq)
    APIBeep frq(i), lng(i)
 Next i

 End Sub

 面白すぎて音聞きながら微笑んでしまいました＾＾ｖ
 すんごいですね～♪
 （川野鮎太郎）

ふむふむ　ＶＢＡで　ビープ音を出す方法はわかりました＾＾

川野さん、ramrunさんありがとうです。

えーと迷惑ついでにもう一つ…

ＶＢＡで作成したマクロの関数はないのでしょうか？

<例>
Ａ1、Ｂ1に数値を入力しＣ1に

=SUM(A1:B1)

を入力して　合計を出します

そしてＤ1に

=AND(C1<10)

など条件判定の関数を入力し　条件に当てはまるなら

ＢＥＥＰ音を　ならす　という風に　出来ますでしょうか？

 ↓のようにして、 =ubeep(c1<10) とします。（ramrun）

 Private Declare Function APIBeep Lib "kernel32" Alias _
    "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

 Private Function uBeep(ByVal c As Boolean) As String
 Const d2 As Long = 523
 Const t As Long = 60000 / 120

 If c Then
    APIBeep d2, t
 Else
    uBeep = "orz"
 End If

 End Function

ＶＢＡのシート1に上記のプログラムを入れ

D1に

=ubeep(c1<10)

を入れたのですが、【＃ＮＡＭＥ？】と表示されてしまいます；；

 標準モジュールに記述してください。
  (INA)

できました！！非常にたすかりました！！
ＩＮＡさん、ramrunさん、川野鮎太郎さん
丁寧なご返答　本当にありがとうございました！！

APIBeepで好きな音が出せますが、音の間隔を調整するにはどうすればよいですか？　モールス音を作りたいと思っております。

Tak

 Takさんの質問はこちらへ続きました。
[[20100420201724]]　『モールス信号音を作りたい』（Tak）

 (HANA)

教えてもらえますでしょうか？　たとえばＡ５のセルが単純に１になら、音をなるすにはどうしたら良いのですか？　　=beep(a5=1) とか　IF(a5=1,beep,0)
では　だめですが、　プログラムを組まずに短銃にはならないのでしょうか？？　　
（ひろし） 2016/04/07(木) 15:10

 ＞プログラムを組まずに単純にはならないのでしょうか？？

 単純にできないので、このトピの回答案になったんじゃないでしょうか？

 既にプログラムによる解決策が出ているんですから、
 それをそのまま使えばいいと思うのですけど、何か障害があるんですか？

（半平太） 2016/04/07(木) 15:29

コメント返信：

[ 一覧(最新更新順) ]

[[20050117191425]] 『数値によってＢＥＥＰ音を…』（Ｍｉｏｎ） ページの最後に飛ぶ

[[20050117191425]]　『数値によってＢＥＥＰ音を…』（Ｍｉｏｎ）　ページの最後に飛ぶ