エクセルVBAで銭円までの表示・非表示

質問

エクセル2002使用です。
初歩的な質問で申し訳ございません。

通常のワークシートの設定では、
書式→セル→表示形式→通貨→小数点以下の桁数→１
と設定するコードをVBAでしたいのですが、

Range("A1").NumberFormatLocal = "#,###.#"

とすると、銭単位が０の時、０は表示されないのですが、”.”が残ってしまいます。銭単位０以外の場合は表示し、０の時は"."も含めて表示しない（円単位）にするにはどうすればいいのかわかりません。

よろしくお願いします。

回答No.3

imogasi · ベストアンサー

A列に原データがあるとします。
B列の書式を（１）文字列（２）右詰（３）書式をP付きでないものにする。
Sub test01()
For i = 1 To 9
If Int(Cells(i, "A")) = Cells(i, "A") Then
Cells(i, "B") = Format(Cells(i, "A"), "0") & " "
Else
Cells(i, "B") = Format(Cells(i, "A"), "0.00")
End If
Next i
End Sub
を実行する。
A列は非表示。
A列は
12.23
123
12
12.01
B列は
12.23
123
12
12.01
になります。上記B列は崩れて見えるでしょうが実際は円の桁で揃います。
しかしA列データが変ると、再実行が必要です。
ことほど難しいようです。

お礼

imogasi 様　早速のご回答ありがとうございました。
いろいろ調べみたいのですが、定番みたいなものはないようですね。意外や意外。。。

通貨に限らず、数字の小数点でも結構問題みたいで、
アイデアをお借りしまして、下記のように処理しました。

本当にありがとうございました。今後ともよろしくお願いします。

回答No.2

BLUEPIXY

Range("A1").NumberFormatLocal = IIf(Range("A1").Value = Int(Range("A1").Value), "#,###", "#,###.#")
とりあえず、値（小数部分があるかないか）によって書式を切り替えることはできます。
どれほどの意味（お望みのものかどうか）があるかはわかりません。

補足

BLUEPIXY 様　早速のご回答ありがとうございました。
いろいろ調べみたいのですが、定番みたいなものはないようですね。意外や意外。。。

通貨に限らず、数字の小数点でも結構問題みたいで、
アイデアをお借りしまして、下記のように処理しました。

本当にありがとうございました。今後ともよろしくお願いします。

Sub ins()

Dim 小数点 As Integer
Dim i As Integer

For i = 1 To 3
小数点 = InStr(1, Cells(i, 2).Value, ".", vbTextCompare)

If 小数点 <> 0 Then
Cells(i, 2).NumberFormatLocal = "#,###.#"
Else
Cells(i, 2).NumberFormatLocal = "#,###"
End If
Next i

End Sub

回答No.1

papayuka

Excel2000だとこんな感じで希望に近いと思うけど、、、

Sub test()
　ActiveCell.NumberFormat = "[=0]#;[<>0]#,###.0"
End Sub

お礼

papayuka 様　早速のご回答ありがとうございました。
いろいろ調べみたいのですが、定番みたいなものはないようですね。意外や意外。。。

通貨に限らず、数字の小数点でも結構問題みたいで、
アイデアをお借りしまして、＃１様お礼欄のように処理しました。

本当にありがとうございました。今後ともよろしくお願いします。