>>261
Sub 括弧()
With ActiveCell
　　txt = .Text　 '書式変更前の表示テキスト確保(通貨など)
　　If IsNumeric(.Value) Then
　　　　.NumberFormat = "@"
　　End If
　　.Value = "(" & txt & ")"
End With
End Sub