プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (5件)

別セルではなく、入力したセルをそういう表示にしたいのですか?


文字列になってしまいますがいいですか?

仮に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です。
    • good
    • 0
この回答へのお礼

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

お礼日時:2006/07/13 15:57

NO.1です


.123ではなく、0.123と入力して下さい
.123と入力するなら、MIDの(I5,3,1)を
(I5,2,1)に、MID(I5,4,1)をMID(I5,3,1)として下さい
大変失礼致しました
    • good
    • 0
この回答へのお礼

ありがとうございました

お礼日時:2006/07/13 15:56

ユーザー書式=.0"割"0"分"0"厘"


ツール.オプション=小数点をピリオドでなくブランクに。

いずれも邪道と思います。
VBAの出番でしょう!
    • good
    • 0
この回答へのお礼

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

お礼日時:2006/07/13 15:56

「0.123」ではなく、「123」ですが



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

ではいかがでしょうか。
    • good
    • 0
この回答へのお礼

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

お礼日時:2006/07/13 15:55

=(MID(I5,3,1)&"割")&(MID(I5,4,1)&"分")&(RIGHT(I5,1)&"厘")


入力は必ず、.123と入力すればできます
    • good
    • 0
この回答へのお礼

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

お礼日時:2006/07/13 15:55

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!