• ベストアンサー

エクセルで音を出したい

エクセルである数値になった時に音を出したいのですが・・・ 過去の回答を参考にしてみたのですが、(NO.4) http://oshiete1.goo.ne.jp/qa4235161.html これでたしかに音は出るのですが、私の場合、A3のセルにはA1-A2という数式をいれており、A1とA2には他のサイトから為替の数値をリアルタイムで入るようにしております。その為、エンターを押さないのでA3が希望の値になっても音が鳴ってくれません。 エンターなどを押さなくてもA3の値が希望の数値になった時、音がなるようにはできないでしょうか。 よろしくお願いいたします。 エクセルは2002です。

  • ton77
  • お礼率12% (10/78)

質問者が選んだベストアンサー

  • ベストアンサー
  • xls88
  • ベストアンサー率56% (669/1189)
回答No.1

試してください。 Private Sub Worksheet_Calculate() If Range("A3") > 10 Then Call Beep(2000, 500) End If End Sub

ton77
質問者

お礼

できました!!!! 感激です。素早く回答して頂きありがとうございました。

その他の回答 (2)

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.3

Calculateイベントで試されては Private Sub Worksheet_Calculate()   If Range("A3").Value > 10 Then Call Beep(2000, 500) End Sub

  • okormazd
  • ベストアンサー率50% (1224/2412)
回答No.2

http://oshiete1.goo.ne.jp/qa4235161.html のWorksheet_Changeイベントを Worksheet_Calculateイベントに変えます。 Private Sub Worksheet_Calculate() If Range("A3").Value > 100 Then Call Beep(2000, 500) End If End Sub とか。

関連するQ&A

  • エクセルで

    エクセルについてお伺いします。例えばセルA1に10%、A2に20%のパーセンテージで入力された値は合計は出せないのでしょうか。SUM関数で出すとエラーが出てしまいます。それと、数式を入力したセルの数値の値の合計も出ないのでしょうか。例えばあるセルに=A1+B1,もう一方のセルにA2+B2と入力されていてそれぞれ数値が5と4とします。合計9を出したいのですが、数式のためSUM関数では合計できません。何か方法はありますか。

  • エクセルで、値が飛んでこないのは?

    エクセルで、シートからシートへ値をとばすように設定しているのに値が入力されません。例: シートAのセル1の値をシートBのセルへ飛ばすとき、Bシートのセルの数式は ”+A!A1”となりますが、A1の値が飛んできません。F2を押してENTERキーを押すと飛んできます。たくさんのシートがあるので、大変です。どうしたらいいですか?

  • Excelで計算式が正しく入らないのですが。

    Excelで計算式の入ったセルをコピーし別のセルに貼り付けると、計算式ではなくもとのセルの値が張り付きます。数式バーには計算式が入っているのですが・・・また、数式バーの最後にカーセルを合わせ、Enterを押すと正しい値に変わります。

  • 初めて質問するのでよろしくお願いいたします。エクセルの数式で基準値を超

    初めて質問するのでよろしくお願いいたします。エクセルの数式で基準値を超えたセルにだけ一定の値を乗算する数式はあるのでしょうか?セルA→基準値 セルB→実積数値 セルC→基準値を超えたセルB*100 分かりにくいと思いますがよろしくお願いいたします。

  • エクセルで音を鳴らす

    エクセルに為替の数値をリアルタイムで入るようにしております。(D1とします。) そして、その数値がA1以下、またはB1以上になった時、ビープ音が なるようにしたかったので、初心者なりに下記のように入れてみました。 Private Sub Worksheet_Calculate() If Range("D1") >= Range("B1") Or Range("D1") <= Range("A1") Then Call Beep(500, 200) End If End Sub これでエクセルを起動すると「実行時エラー13 型が一致しません」 と出てしまいます。 デバッグを押すとIf Range("D1") >= Range("B1") Or Range("D1") <= Range("A1") Then のところが黄色くなっています。 デバッグではなく終了と押すと普通に作動はするのですが、 毎回実行時エラーになるので辛いです。 どの部分を訂正すればよいのでしょうか。 よろしくお願いいたします。

  • セルの数値が規定の範囲に入れば音を鳴らしたい

    EXCEL上でセルの数値はリアルタイムで変化しています。このセルの数値が例えば1から10の間に入ったら音を鳴らしたいのですが、どなたか教えて頂けませんでしょうか。

  • エクセルでセルの値を数式の範囲として使うには?

    タイトル通りなのですが、エクセルでセルの値を数式中で範囲として使うにはどうすればよいのでしょうか? 例えばA1セルに「1」という値が入っており、B2セルに「10」という値が入っているとします。この時、数式中で、「A1」と「B2」を用いて、「E1からE10まで」を指定することは可能でしょうか。可能でしたらどのような数式を組めば良いのでしょうか? よろしくお願いします。

  • Excel - 数式で引っ張った数式を有効にする方法

    お世話になります。 ちょっと説明が難しいのですが・・・ 数式で引っ張ってきた数式を、値として貼り付けると、最初に【=】が付いていても即座に数式として認識してくれません。 まぁ値で貼り付けてあるので当然と言えば当然なんですが。 これらはF2で数式バーに一旦移行し、その後ENTERで確定すると、その時点で初めて数式として認識します。 このようなセルを一括で、数式にする方法はないでしょうか。ひとつずつF2→ENTER→F2→ENTERとやっていくのは非常に面倒でして。 再計算、置換等、色々試してみましたが、どうも効果がないようです。 何かお知恵のある方、どうぞご協力宜しくお願いします。 【例】 A1に【=】 A2に【C3】 C3に【10】と入っているとします。 任意のセルに【=CONCATENATE($A$1,$A$2)】と入力しますと、そのセルには【=C3】と表示されます。 このセルをコピーし、別のセルに値貼り付けします。 するとコピー先のセルには【=C3】と表示されます。 本来は【10】と表示させたいので、F2で一旦編集に入り、ENTERで確定すると、ここで初めて【=C3】が【10】に変わります。 これを一括でやる方法、ということです。

  • EXCEL(エクセル)の関数について

    こんにちは、お世話になります。 エクセルの数式で困っており、ご教示頂きたいです。 C1のセルに、値を返させたいのですが、 A1の値が◆でB1が空白セルでなければ◇ A1の値が●でB1が空白セルでなければ○ A1の値が▲でB1が空白セルでなければ△ A1の値が■でB1が空白セルでなければ□ 、と返させたいです 全ての条件が満たされない場合は空白セルを表示させたいのですが、これを可能にするにはどのような数式を用いればよいでしょうか? 宜しくお願いします。

  • エクセルにて

    例えば 数値OR文字をセルにとばしたいのですが A 10 100 200とセルに値が入っていて Aなら10をA意外(例えばB)なら空白にしたい場合の数式を教えて下さい。

専門家に質問してみよう