お世話になります。

質問

お世話になります。

vista　HP　SP２　ソニー　VGN-NRノートです。
エクセル２００７を使用

表計算で「　1,000.50　」と金額を入力すると　「　1,000円50銭　」と
表示させたいのですが、
ユーザー定義の「種類」の枠に「#,###"円".00"銭"」にすると　
「1,000円.50銭」となってしまい
円の後ろの「.」を取ると　「1,0円01銭」と表示されてしまいます。

また、「250.20」は「250円.20銭」となり、
円の後ろの「.」を取ると「2円50銭」と表示されてしまいます。

今はどうやったらいいか分からないので「250.20」と数値を入力して、
定義の種類枠に「#,###.00"円"」と設定して、
シートでは円単位表示「250.20円」にして、計算するようにしています。

ユーザー定義の種類でどのように設定すればよろしいでしょうか？

ご指導をお願いいたします。

回答No.2

noname#204879 · ベストアンサー

[回答番号：No.1この回答への補足]へのコメント、

Win XP SP-3 の場合で説明します。
１．[地域と言語のオプション]の[地域オプション]を開きます。
２．“日本語”の右にある[カスタマイズ]をクリックして、[数値]を開
　　きます。
　　[小数点の記号]ボックス内に表示されている「.」を「 」(半角ス
　　ペース」で上書きして、右下にある[適用]をクリック

お礼

mike_g様

ご親切に再度のお答えありがとうございました。
早速教えて頂いた通りにやってみました。

出来あがった表の「.」はきれいに半角スペース表示になりましたが
追記していくデーターの表示が「円　銭」が表示されないと同時に
関数が埋め込まれている他のセル数値もエラーになる事も分かりました。
（文字列扱いになるからでしょうか・・・）

この手法は完成したシートを印刷する時いいですね。
お陰さまで大変勉強になりました。

第三者に渡す時はコンパネを開かなくても良い様に、
条件付き書式で「.」だけを「文字色を白」に
設定してみようかとも考え、色々試したのですが
私の知識では出来ませんでした。
もし御迷惑でなかったら、条件書式の式を教えて頂く訳には
行きませんでしょうか？

また分からない点が生じた折には質問させて頂きますので
どうかその節はよろしくお願いいたします。

本当にありがとうございました。大収穫です。

回答No.3

Wendy02

こんばんは。

Excel 2007 では、選択肢としては、狭まるものの、マクロでの解決方法があります。

マクロの取り付け方：

マクロを実行しようとするワークシートのシートタブ(下部のSheet1,Sheet2 ...)を右クリックすると、「コードの表示(V)」というメニューがありますから、それをクリックしてください。そして、開いた画面に、以下のコードを貼り付けて、Alt + Q で閉じれば設定は完了です。

マクロをそのブックに乗せないコードは、設定が複雑になりますが、可能です。

'-------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　If .Column > 3 Then Exit Sub 'A列,B列のみ(除外設定）
　　If .Count > 1 Then Exit Sub
　　If .Value = "" Then Exit Sub
　　If VarType(.Value) <> vbDouble Then Exit Sub
　　　　On Error GoTo EndLine
　　　　Application.ScreenUpdating = False
　　　　Application.EnableEvents = False
　　　　.ClearFormats
　　　　If Int(Abs(.Value)) = Abs(.Value) Then
　　　　　　.NumberFormatLocal = "#,##0円"
　　　　　　'桁揃えの場合
　　　　　　'.NumberFormatLocal = "#,##0円 _" & String(5, Space(1))
　　　　Else
　　　　　　.NumberFormatLocal = "#,##0円.00銭"
　　　　　　.Value = Replace(Target.Text, ".", "")
　　　　　　.HorizontalAlignment = xlRight
　　　　End If
EndLine:
　　　　Application.EnableEvents = True
　　　　Application.ScreenUpdating = True
　　End With
End Sub
'------------------------------------------
-
ただし、そのままでは計算出来ません。ユーザー定義関数が必要になります。

お礼

Wendy02 様

ありがとうございました。
マクロはとても興味あったので、以前PC月刊誌で「簡単マクロ」の記事が掲載された時、
１０種類位自分でも実際に実践した事がありますが、
今回教えて頂いたのを今後ゆっくり時間をかけて勉強しようと思っています。
ありがとうございました。

また分からない点が生じた折には質問させて頂きますので
どうかその節はよろしくお願いいたします。

本当にありがとうございました。大収穫です。

回答No.1

noname#204879

限りなくお奨めはしませんが、[コントロールパネル]内の[地域と言語のオプション]を設定変更することによって、
ユーザー定義の「#,###"円".00"銭"」に設定したままで、
「　1,000.50　」と金額を入力すると　「　1,000円 50銭　」
と表示させることはできます。（円の直後に半角空白が入る）
ただし、Excel のすべての Book/Sheet および貴方のパソコン全体でもそうなってしまいますよ。駄目でしょ？

補足

早速のご回答ありがとうございました。

＞[地域と言語のオプション]を設定変更することによって、

コンパネからを[地域と言語のオプション]を開いてみたのですが、
ここでは、設定変更はどのようにするのですか？

たぶんお答から察すると駄目だろうと思いますが、興味があるので
もしよろしかったら、もう一度教えていただけないでしょうか？