エクセルで表示形式を「○割○分○厘」に

質問

こんにちは。
エクセルの表の中に
「0.123」と入力すると、
「１割２分３厘」と表示されるように設定したいのですが、
可能でしょうか？
宜しくお願いします。

回答No.5

merlionXX · ベストアンサー

別セルではなく、入力したセルをそういう表示にしたいのですか？
文字列になってしまいますがいいですか？

仮にA1セルをそうしたいのであれば

1. 該当するシートのタブを右クリック、[コードの表示]。
2. 出てきた所に、以下のコードを貼付けます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If IsNumeric(Target.Value) Then
Target.Value = Application.WorksheetFunction.RoundDown(Target, 1) * 10 & "割" & _
Application.WorksheetFunction.RoundDown(Target * 10 - Int(Target * 10), 1) * 10 & "分" & _
Application.WorksheetFunction.RoundDown(Target * 100 - Int(Target * 100), 1) * 10 & "厘"
End If
End Sub

3. 右上の × でExcelの画面に戻ります。

これでOKです。

お礼

ありがとうございます！
できました

回答No.4

sakemoni1008

ＮＯ．１です
．１２３ではなく、０．１２３と入力して下さい
．１２３と入力するなら、ＭＩＤの（Ｉ５，３，１）を
（Ｉ５，２，１）に、ＭＩＤ（Ｉ５，４，１）をＭＩＤ（Ｉ５，３，１）として下さい
大変失礼致しました

お礼

ありがとうございました

回答No.3

noname#22222

ユーザー書式=.0"割"0"分"0"厘"
ツール.オプション=小数点をピリオドでなくブランクに。

いずれも邪道と思います。
VBAの出番でしょう！

お礼

やはりVBAの出番なのですね・・・
頭がいたいです。
ありがとうございました

回答No.2

aiai_013

「０．１２３」ではなく、「１２３」ですが

セルの書式設定－表示形式－ユーザー定義で
種類に「　＃”割”＃”分”＃”厘”　」

ではいかがでしょうか。

お礼

ありがとうございます
役立ちました

回答No.1

sakemoni1008

=(MID(I5,3,1)&"割")&(MID(I5,4,1)&"分")&(RIGHT(I5,1)&"厘")
入力は必ず、．１２３と入力すればできます

お礼

ありがとうございます。
なるほど！関数で表示させるというのも一つの手ですね！
ありがとうございました！