エクセルのセルにＶＢＡで（ ）付の式

質問

エクセルのＶＢＡで作業していますが、１つの列の全ての行を
（　　）付けとしたいのですが、式をお教え下さい。
例えばＤ列に数値AB123と入れたら(AB123)となるようにしたいのです。
現在のＶＢＡ式にはＤ列のカラミはありません。
単純に追加すればいいと思いますので・・・・
よろしくお願い致します。

回答No.3

merlionXX · ベストアンサー

> 数値AB123と入れたら(AB123)となるようにしたいのです。

AB123は数値ではありません。文字列です。
数値（数）は括弧でくくるとエクセルはマイナスと判断してしまいます。したがって数値の場合はセルの書式を文字列とすることで対処しました。

Sub test01()
Dim lr As Long, i As Long
lr = Cells(ActiveSheet.Rows.Count, "D").End(xlUp).Row
For i = 1 To lr
If Cells(i, "D") <> "" Then
If IsNumeric(Cells(i, "D").Value) Then
Cells(i, "D").NumberFormatLocal = "@"
End If
Cells(i, "D").Value = "(" & Cells(i, "D").Value & ")"
End If
Next
End Sub

お礼

早速試してみました。
ばっちりです。ありがとうございました。

回答No.2

tinu 2000（@tinu2000）

こんにちは。
１　D列全部を選択します。
２　書式→セル→表示形式→ユーザー定義→
３　種類の所で、"("@")"　と入力　→OK

と、言う事かな？外してたらゴメン！
ではでは

補足

回答ありがとうございます。
関数ですとコピーしても関数が付いてくるので
ＶＢＡでしたいと思った次第です。
値として貼り付けたらいいのでしょうけど、
予め組んでおきたいので・・・・

回答No.1

toshi_2000

cells(gyo,4)="(" & cells(gyo,4) & ")"

補足

回答ありがとうございます。
早速試してみましたが、式のエラーになります。
そのまま貼り付けただけですが、
なにか他にしなけねばならないのでしょうか？
すみません。教えてください。