かなりやっかいなんですが、Ｅｘｃｅｌに音

質問

条件で音をだすのは出来たんですが、　Celｌs（1、1）.Ｖａｌｕｅ＞100　Then
Ｂｅｅｐ　・・・みたいな。　セルに数字を入れれば（Ｅｎｔｅｒをおせば）鳴るんですけど、　このセル、自動的に数字が入るようになっているんです。
今まで、IF関数を使って”記号”とか出していたので、当然鳴ると思っていたのですが・・・鳴らないんです。　ENTERをおしたようにセルに入ったデーターに反応させる方法ないでしょうか？

回答No.3

TAGOSAKU7 · ベストアンサー

SelectionChangeではなく
Changeイベントですよ

イベントの指定が間違っていませんか？

回答No.2

TAGOSAKU7

Private Sub Worksheet_Change(ByVal Target As Range)
　　On Error Resume Next
　　If (Target.Column = 1) And (Target.Row = 1) Then
　　　　If Target.Value > 100 Then Beep
　　End If
End Sub
なら、これでよいのかな？

お礼

ご丁寧に有難うございます。しかし、なりません・・・・
On Error Resume Next の役目はなんでしょうか？
やはり、Ｅｎｔｅｒをおすとなるんですけど・・・

回答No.1

TAGOSAKU7

＞Celｌs（1、1）.Ｖａｌｕｅ＞100　

モジュールのどこに書いたのか不明
どのタイミング・イベントで実行されているのかが不明
「このセル、自動的に数字が入るようになっているんです。」全然不明
「当然鳴ると思っていたのですが・・・鳴らないんです」やっぱり不明

質問するからには、他の人が読んでわかる文章を書きましょう。

補足

Sheet1をダブルクリックして、Worksheetにして、
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
　・・・・・
End Sub　の中にかいたんです。
タイミングベルト？　知りません。
”自動的”Ｅｘｃｅｌにリアルタイム市場データーが入る様になっているんです。
”当然鳴ると思っていたのですが”　Ｉｆ（＝を入れると左上にでてくるＩＦ）
を使って○とか×をだすことが出来たので、Ｂｅｅｐにしたら音がなると思っていたんです。　私としては、同じ事だと思っていたんですが・・・　むずかしいですね。　ここまでくるのに、本を３冊、３ヶ月という時間がかかっているのですが・・・。