エクセルで複数から参照した場合の小数点以下の0の表示

質問

初めて質問させていただきます。
エクセル2000で
セルA1に2.00
セルA2に3.00
セルA3に="("&A1&")("&A2&")"
とした場合、小数点以下の.00が消えてしまいますが、
表示させる方法はありますか？
また、その小数点以下を任意に設定する方法、
例えば
（セルA1に1.001
セルA3に=ROUND(A1,A2)
とした場合のA2で小数3位までは任意に出せる。）
がありますでしょうか？

回答No.5

hamaken5031

No.3です。

指定小数点以下って切り捨てちゃっていいんですか？^^;

とりあえずマクロを作ってみました。
思ったほどスマートになりませんでした・・・。
唯一メリットといえば小数点以下の桁数が増えても問題ないくらいですか・・・。
なので質問者様の要件なら今回の関数対応で十分と思われます。

セルA1:小数点付き数値
セルA2:小数点付き数値
セルA3:「(セルA1整形値)(セルA2整形値)」表示
セルA4:小数点以下桁数

【セルA1,A2,A4の値変更契機　必ず数値しか入力されない前提】
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

Dim digit, a1val, a2val
digit = ""

If Not Intersect(Range("A1,A2,A4"), Target) Is Nothing Then
For i = 1 To Range("A4").Value
digit = digit + "0"
Next
If digit = "" Then
digit = "0"
Else
digit = "0." + digit
End If
With WorksheetFunction
a1val = .Text(.Round(Range("A1").Value, Range("A4").Value), digit)
a2val = .Text(.Round(Range("A2").Value, Range("A4").Value), digit)
End With
Range("A3").Value = "(" + CStr(a1val) + ")(" + CStr(a2val) + ")"
End If

Application.EnableEvents = True
End Sub

【数値チェックを入れたパターン】
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

Dim digit
Dim a1val, a2val
Dim RE
digit = ""

If Not Intersect(Range("A1,A2,A4"), Target) Is Nothing Then
Set RE = CreateObject("VBScript.RegExp")
RE.Pattern = "^\d+\.?\d*$"
If RE.test(Target.Value) Then
For i = 1 To Range("A4").Value
digit = digit + "0"
Next
If digit = "" Then
digit = "0"
Else
digit = "0." + digit
End If
With WorksheetFunction
a1val = .Text(.Round(Range("A1").Value, Range("A4").Value), digit)
a2val = .Text(.Round(Range("A2").Value, Range("A4").Value), digit)
End With
Range("A3").Value = "(" + CStr(a1val) + ")(" + CStr(a2val) + ")"
Else
Target.Select
res = MsgBox("数値を入力して下さい", vbOKOnly + vbExclamation, "入力エラー")
End If
End If

Application.EnableEvents = True
End Sub

お礼

回答ありがとうございます。
＞唯一メリットといえば小数点以下の桁数が増えても問題ないくらいですか・・・。
これは関数の場合はIF～が増えちゃうってことですよね？
今回の場合は最大3桁までなので関数でいけそうですが、
関数とマクロをうまく使い分けるように心がけていますので、
このご回答は今後のコード作成に非常に参考になりました。