請求書の様式で…

質問

請求書を作成しています。請求書にかかわらず、領収書等にも使用したのですが。エクセルで表を作っているのですが、単価×個数＝合計金額と別々のセルにいれて計算させるのは簡単ですが、合計金額には、一の位、十の位、百の位、千の位、万の位…とセルを分けたいのです。
たとえば、合計金額が１５６，７００円とすると、十万のセルに「１」、万のセルに「５」、千のセルに「６」、は百のセルに「７」、十と一のセルは「０」といったように標記させたいのですが、いい方法はありませんか？
よろしくお願いします。計算式をIF関数で無理矢理計算式を入れていこうとしましたが、あまりしっくりと来ませんでした。

回答No.3

EL-SUR · ベストアンサー

レイアウトがわかりませんが、
A列が単価、B列が個数で、C列から右が合計金額だとします。

1行目だとすれば
■ C1セルに
------------------------
=TRIM(LEFT(RIGHT(" "&TEXT($A1*$B1,"#"),7-COLUMN(A1))))
------------------------
と入れて（↑をコピペしてください ）、H1セルまでフィルコピー
そのまま必要なだけ下にフィルコピーです。

◇合計金額の最大桁数を6桁としています。
7桁なら 7-COLUMN(A1)の 7を 8にして I列までコピー
8桁なら 7を 9にして J列までコピーです。

◇単価×個数の $A1*$B1も実際のセル位置に合わせて必要なら変更してください。
（ 列記号の前に必ず＄をつけること ）

◇COLUMN(A1) は右にコピーすることで 1、2、3・・・と変化させるためのものです。
どんな場合でも COLUMN(A1)のままにしておいてください（←←先頭のセルのみ。あとは右に下にコピーするだけ ）

★ セル内の数字は左揃えになるので、気になるようでしたら合計金額のセルはすべて右揃えにしてください。

以上が個々の明細の合計金額です。

★トータルの合計金額も必要なら次のようにします。

明細が1行目から10行目までだとすれば（ A列が単価、B列が個数 ）
トータルの合計金額は↓の式で求めることができます。
=SUMPRODUCT(A1:A10,B1:B10)

この合計金額も1セルに1桁ずつ入れるなら
最初の式の $A1*$B1を上の式に変えるだけです。

11行目がトータルの合計金額だとすれば
■ C11セルに↓を入れて、H11セルまでコピーです。
----------------------
=TRIM(LEFT(RIGHT(" "&TEXT(SUMPRODUCT($A1:$A10,$B1:$B10),"#"),7-COLUMN(A1))))
----------------------

◇ 最大桁数の変更など注意事項は上と同じ。

お礼

非常に細かいご指導ありがとうございます。勉強になります。

回答No.5

imogasi

=IF(COLUMN()<=2+10-LEN($A$1),"",MID($A$1,COLUMN()-(2+10-LEN($A$1)),1))
上記式の中の
2　　スタート列（この場合B列）を決める数字
したがって上記式では、B２とかD２とかに上記式を入れて、２＋１０列（L列）まで式を横方向に複写する。
10 　最大桁を決める数字
A1　　金額数字を入れるセル。
上記は数字文字列の扱いだが、右詰めに設定するか、＊１を掛けて
数値化する
=IF(COLUMN()<=2+10-LEN($A$1),"",MID($A$1,COLUMN()-(2+10-LEN($A$1)),1)*1)
か適当なほうを選ぶ

お礼

ありがとうございます。このような関数があるのですね。勉強になりました。

回答No.4

mshr1962

最大金額が１億の位として
１億の位=MID(TEXT(合計金額のセル,"?????????"),COLUMN(A$1),1)
として右方向にコピーしてください。

お礼

いろいろな方法があるのですね。勉強になります。ありがとうございました。

回答No.2

shikisaito

十万のセル=INT(MOD(SIGN(A1)*A1/100000,10))
万のセル=INT(MOD(SIGN(A1)*A1/10000,10))
千のセル=INT(MOD(SIGN(A1)*A1/1000,10))
百のセル=INT(MOD(SIGN(A1)*A1/100,10))
十のセル=INT(MOD(SIGN(A1)*A1/10,10))
一のセル=INT(MOD(SIGN(A1)*A1/1,10))

お礼

ありがとうございます。下記の方と同じ方法ですね。勉強になりました。

回答No.1

keirika

A1セルに金額が入力されていると仮定します。

十万・・・=INT(MOD(A1,1000000)/100000)
一万・・・=INT(MOD(A1,100000)/10000)
千・・・・=INT(MOD(A1,10000)/1000)
百・・・・=INT(MOD(A1,1000)/100)
十・・・・=INT(MOD(A1,100)/10)
一・・・・=INT(MOD(A1,10))

ではどうでしょうか？

お礼

ありがとうございます。簡単にできました。このような関数があるのですね。