警告音をならす方法

質問

こんばんは。
昨日まで、違うカテゴリーの方で質問をしていたのですが、こちらの方がよい回答が得られるのではないかということを教えていただき、こちらに再度質問をしたいと思っています。よろしくお願いします。
私はエクセル2000を使用しています。
現在やろうとしていることは、
実験の測定データをエクセルに取り込み（測定データは文字列としてエクセルに取り込まれます）、Ｄ列の数字が100以上になったら音をならして知らせるようにしたいと考えております。
それで、以下のマクロを組んでやってみました。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If IsNumeric(Target) And Target.Value > 100 Then
Beep
　　　MsgBox "範囲外です"
End If
End If
End Sub

しかし、If IsNumeric(Target) And Target.Value > 100 Thenのところで、型が一致しませんとエラー？がでてしまいます。
まだ、ＶＢＡを勉強しはじめて2週間くらいなので、なにぶんわからないことだからで、もしわかる方がいらしたら教えてください。

回答No.3

lark_0925 · ベストアンサー

Private Sub Worksheet_Change(ByVal Target As Range)
'　　Dim ctarget As Range　　←これ要りません
　　Dim rrng As Range
　　Dim crng As Range
　　Set rrng = Application.Intersect(Target, Columns(4))
　　If Not rrng Is Nothing Then
　　　For Each crng In rrng
　　　　　If IsNumeric(crng.Value) And crng.Value > 100 Then
　　　　　　Beep
　　　　　　MsgBox crng.Address & " 範囲外です"
　　　　　　End If
　　　　　Next
　　　End If
End Sub

お礼

今日、会社で試したところ音がなりました。
本当にありがとうございます。

回答No.2

lark_0925

>実験の測定データをエクセルに取り込み（測定データは文字列としてエクセルに取り込まれます）、
この取り込み方法がポイントでしょうか？

'===========================================================
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim ctarget As Range
　　Dim rrng As Range
　　Dim crng As Range
　　Set rrng = Application.Intersect(Target, Columns(4))
　　If Not rrng Is Nothing Then
　　　For Each crng In rrng
　　　　　If IsNumeric(crng.Value) And crng.Value > 100 Then
　　　　　　Beep
　　　　　　MsgBox crng.Address & " 範囲外です"
　　　　　　End If
　　　　　Next
　　　End If
End Sub

回答No.1

gatyan

IsNumeric(Target)
の部分を
WorksheetFunction.IsNumber(Target)
にしてみる？