エクセルで・・・

質問

専用の請求書などを作成する上で以下のような事が
可能でしょうか？可能であれば方法を教えて下さい。
仮にセル番地Ｋ２０に集計の金額が表示されるとし
ます。￥１２３４５という答えが出たとします。
その答えに基づいてセル番地Ｅ１０には￥、Ｆ１０
には　２　、Ｇ１０には　３　、Ｈ１０には　４　
というふうに入るようにしたいのですが・・・
答えの桁数は任意で決まっていません。
どんな場合でも頭には￥マークを入れたいのです。
例えば上の例で集計の金額が７桁の場合だとセル番
地Ｃ１０に￥が入る事になります。
いろいろと試したのですがうまくいきません。
どなたか宜しくお願いします。

回答No.2

imogasi · ベストアンサー

本当はＭＩＤ関数は文字列に対して使うものと思いますが
数値でも使えました。
数値の最大を何桁かに決めて
右端のセルに
=MID(A1,LEN(A1)-,1)
その左に
=MID(A1,LEN(A1)-1,1)
その左に
=MID(A1,LEN(A1)-2,1)
これでLEN(A1)-xが０になるとき￥を
マイナスになる時は空白を入れる。
----さて実際には
A1に２３４５
Ｂ１に=IF(LEN($A$1)+COLUMN()=6,"\",MID($A$1,LEN($A$1)+COLUMN()-6,1))
Ｃ１からＦ１まで複写します。
Ｂ１は￥、Ｃ１は２、Ｄ１は３、Ｅ１は４、Ｆ１は５
となります。
これの外に所定の桁数以下のときの、￥の前にスペースのセルが必要ですが、
ＩＦを前にネストして=IF(LEN($A$1)+COLUMN()=6,"\",IF(LEN($A$1)+COLUMN()>6,MID($A$1,LEN($A$1)+COLUMN()-6,1),"")
最後の式はテストしてません。
長くなりすぎるのでＶＢＡでやりたい。

お礼

ありがとうございました。
参考にさせていただきます。

回答No.4

sakenomo

もうひとつ、ご質問例では９桁までが入力できると思いますが、金額が１０桁を超えた場合はＥを表示するようにしました。

=IF(LEN($K$20)+1>COLUMN($J$10),"E",IF(LEN($K$20)+2>COLUMNS(K$10:$K10),IF(LEN($K$20)+1=COLUMNS(K$10:$K10),"\",LEFT(RIGHT($K$20,COLUMNS(K$10:$K10)),1)),""))

お礼

ありがとうございました。
おかげでうまくいきました。
助かりました。感謝致します。

回答No.3

sakenomo

Ｋ２０に表示されている￥は、セルの表示形式によるものということでよいでしょうか。

Ｊ１０に下を入れて、左へオートフィルでいかがでしょうか。

=IF(LEN($K$20)+2>COLUMNS($K$10:K11),IF(LEN($K$20)+1=COLUMNS($K$10:K11),"\",LEFT(RIGHT($K$20,COLUMNS($K$10:K11)),1)),"")

お礼

ありがとうございました。
おかげでうまくいきました。
助かりました。感謝致します。

回答No.1

gatyan

たとえば、
A1: =RIGHT(" "&TEXT(K20,"\0"),8)
と入れると、K20の値が右詰の８桁の文字列になります。
A10: =MID(A1,1,1)
B10: =MID(A1,2,1)
のように、２番目の引数を順に１から８まで変化させるとそれらしいものになりませんか？

お礼

ありがとうございました。
参考にさせていただきます。