- 484 名前：デフォルトの名無しさん mailto:sage [2011/01/02(日) 22:00:45 ]
- >483 >469さんのは値範囲のチェックがありませんでしたね。
>469さんのマクロの
If IsNumeric(r.Value) Then
Worksheets("B").Range("B1").Insert Shift:=xlDown
Worksheets("B").Range("B1") = r.Value
End If
を
If IsNumeric(r.Value) Then
If v <= -3 Or v >= 3 Then '←追加
Worksheets("B").Range("B1").Insert Shift:=xlDown
Worksheets("B").Range("B1") = r.Value
End If '←追加
End If
にするだけですよ。
