|
(@)でないといけないのですか?
(#)あるいは(-#)ではダメなのでしょうか。
つまり数字を文字列ではなく数値のままカッコをつけるという意味ですが。
それでも良ければ
>r.Offset(, 1).NumberFormatLocal = """(""@"")"""
r.Offset(, 1).NumberFormatLocal = "(#);(-#);(@)"
この部分の変更だけです。
文字列として扱いたい場合は
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set Target = Intersect(Target, Range("A6:A20"))
If Target Is Nothing Then Exit Sub
For Each r In Target
With r.Offset(, 1)
Application.EnableEvents = False
If r.Value = "" Then
.NumberFormatLocal = "g/標準"
.Value = .Value
Else
.NumberFormatLocal = "(@)"
.Value = "'" & .Value
End If
Application.EnableEvents = True
End With
Next
End Sub
こんな感じですか。
|
|