強制マイナス表示

質問

例えばA1セルは負の数マイナス表示をしないといけない、
間違えて正の数を入力した場合には負の数マイナス表示をさせたい。負の数マイナス表示で入力した場合はそのままです。このようにするVBの記述を教えてください。お願いします。

回答No.1

shippo · ベストアンサー

エクセルの書式みたいなのでＶＢＡですかね？

一応一つの方法として・・・

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value > 0 Then
Range("A1").Value = Range("A1") * (-1)
End If
End Sub

という方法もありますよ。
もしＶＢであれば補足願います。

お礼

ありがとうございました。助かりました。