|
▼n さん:
アドバイスありがとうございます。
色々とチェックを入れてコードを訂正しましたが・・・
何故かC9:D12に数字を入れると、全てカッコ付き(数字)となります。
また、お時間が有りましたら、コードをチェックしてください。
B列の反応も、A列の数字を削除してもセルの升目の左に残ったまま( )が外されますが、"G/標準"になりません。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A6:A20")) Is Nothing Then Exit Sub
Dim i As Long
With Sheets(1)
For i = 6 To 20
If .Cells(i, 1).Value = "" Then
.Cells(i, 2).NumberFormatLocal = "G/標準"
End If
If .Cells(i, 1).Value <> "" Then
.Cells(i, 2).NumberFormatLocal = """(""@"")"""
End If
Next
End With
End Sub
|
|