|
横槍失礼。
> 何故かC9:D12に数字を入れると、全てカッコ付き(数字)となります。
そのセルが既にそういう書式になっているからでしょう。
If Intersect(Target, Range("A6:A20")) Is Nothing Then Exit Sub
にブレークポイントを置いて、そのあとステップ実行して、
そのプロシージャーの動作を確認してみては、どうですか?
C9:D12に入力したときは、直ぐに抜けているはずです。
こんな風に書いてはどうですか?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wRange As Range, r As Range
Set wRange = Intersect(Target, Range("A6:A20"))
If wRange Is Nothing Then Exit Sub
For Each r In wRange
If r.Value = "" Then
r.Offset(, 1).NumberFormatLocal = "G/標準"
Else
r.Offset(, 1).NumberFormatLocal = """(""@"")"""
End If
Next
End Sub
|
|