Excel（エクセル）活用コミュの音を鳴らしたい。　出来ますか？

お世話になります。

(1)　Ａ１のセルに、とりあえず　1　の数字
(2)　Ａ２のセルに、　1　の数字
(3)　Ａ３のセルに、計算式　=SUM(A1+A2)

この状態で、Ａ１のセルに、適当な数字を、次々に、入れていきます。

それで、Ａ３のセルが、10を超えたら　ビーと音が出るように
したいです。

あんまりエクセルに詳しくないので、専門用語出来るだけ使わずに
教えてください。

コメント(6)

最初
全て
最新の40件

[1] mixiユーザー 08月07日 22:17

マクロを使えば音は鳴らせますが…

[2] mixiユーザー 08月07日 22:26

ちなみに(3)は「=SUM(A1:A2)」ですね。

「専門用語をできるだけ使わずに」ですか。固有名詞を使うなって話にもなってきて、ハードルが高いですね。
回答としては、「VBAでイベントプロシージャを組むことでできます。」ということになるかと思いますが、これらの意味がわからないとかこれらの内容を参考にして調べることができないということになると、「おっしゃっているようなことはできません」というのが適切な回答になるように思います。厳しすぎますかねぇ。

[3] mixiユーザー 08月07日 22:30

目的が分からないのですが、エラー値を目立たせたいのであれば条件付き書式にすればよいのではないでしょうか？
音はでませんが。。。

[4] mixiユーザー 08月08日 09:48

基本的には上記まじんさんが言われてる通りと思いますが、何も出せないのは寂しいのでｗ

A1セルとA2には1が入力されてます。
A3セルにはこれらの合計式 =SUM(A1:A2)もしくは=A1+A2が入ってるとします。A2セルには数字なら時と場合でなんでも入ると思いますが、入力するのはA1セルとするのを前提とします。
ここでA1セルを選択してデータから入力規則を選びユーザー設定にして式に =A3<=10を入力して設定すれば、合計が10を越える値をA1セルを入力する時にビープ音と停止ダイアログがでます。
こういうのが意にかなうかは分かりませんが

[5] mixiユーザー 08月08日 12:57

ご自分のＰＣで「ファイル名を指定して実行」にC:\Windows\Media といれ、お好きな.wavファイル名を指定してください。

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim str As String

　　If Not Intersect(Target, Me.Range("A3")) Is Nothing Then
　　　　With Me.Range("A3")
　　　　　　If IsNumeric(.Value) And .Value > 10 Then
　　　　　　　　str = "C:\Windows\Media\ringout.wav"
　　　　　　　　Shell "mplay32.exe /play /close " & str
　　　　　　Else
　　　　　　　　Exit Sub
　　　　　　End If
　　　　End With
　　End If
End Sub

[6] mixiユーザー 08月08日 15:15

皆さん、ありがとうです。
ある程度は、出来たのですが、
夜、詳細カキコします。

ログインすると、みんなのコメントがもっと見れるよ