円未満（銭）の単位の表示を変えたい。

質問

通常は、円未満の表示、小数点以下は、例えば　１９.１０（１９円１０銭）と表示されますが、これを　１９　のうしろに、半分の高さで上付きにして、下線を付けたいのですが、「そんなのできるわけない」と言われましたが、なんかいい方法はありませんか？

回答No.2

comv

こんばんは！

表示形式のみでは不可能ですね！
私も思いつくのは、hequilさんと同様ですが

＞計算式に当てはまらないですよね。
計算式としては

Ａ１
=INT(計算式）
Ｂ１
=SUBSTITUTE(TEXT(MOD((計算式),1),"#.####"),".",,1)
小さなフォント　下線　［配置］横：左揃え　縦：上詰め

そしてその結果を他の計算で利用するのであれば
=A1+("."&B1)
で元の計算式の数値になります。

計算式が入っている限りＶＢＡでも不可能でしょう！

また１つのセル内で表示したいのであれば
１．オートシェイブの図形の調整　位置合わせ　グリットと図をＯＮ
２.テキストボックスを目的のセルに配置（整数部）
３．テキストボックスをダブルクリック　サイズタブ　幅　整数部の寸法に調整
４．セルの空いた部分に小数部用のテキストボックスを配置
５．整数部のテキストボックスを選択　数式バーに　=整数部セル =A1　を入力　右揃え
６．小数部も同様
７．[Shift]を押しながら両方のテキストボックスを選択してから　グループ化
８．ダブルクリック　色と線　なし　なし

で見かけ上は、セル内表示されます。

お礼

ありがとうございました。
すごい関数があるんですね。よくご存知ですね。
1つのセルで表示するのは、あきらめました。
本当にありがとうございました。

回答No.1

hequil

同一セル内では無理ですが、
セルを分ければ、各セルの書式設定を行えば可能ですよ
（めちゃくちゃ力づくですけど）

Ａ列は円単位の数値
Ｂ列は小数点
Ｃ列は銭単位の数値

あとはＣ列のフォントサイズを小さくして
上付き左寄せ、下線を設定すればいいんじゃないでしょうか？

お礼

ありがとうございました。
でも、やっぱり、基本的には、無理なんですね。
これじゃー計算式に当てはまらないですよね。
無理を承知で聞きました。ほんと、ありがとう。