Ｅｘｃｅｌ関数（応用）・・・入力金額を一の位から千の位まで個々に取り出す

今日は今まで紹介したＥｘｃｅｌ関数の実際の使用例を紹介しようと思います・・・

下の簡易ソフトは私が実際に使用している郵便振込取扱票のソフトなんですが・・・

下図の「Ｄ」の個所に
- セルＪ22からＮ25(セル5個分）に金額
- Ｏ22からＡＥ25(セル17個）に文章を入れてます。
下図の「Ｃ」の個所は「Ｄ」の表の振り込んで頂く金額を記入する個所です。
「Ｃ」に金額を書き込めば下図の「Ａ」の個所にその金額が転記される訳です。
と同時に下図の「Ｂ」の個所にも「Ｄ」の表の文章が転記されます。

先ず、「Ａ」の個所にどの様な関数を書き込んでいるのか紹介します。

一円の位・・・ＲＩＧＨＴ関数を使用して、金額入力欄セルＡ5を指定して一円の位を指定・・・=RIGHT(A5,1)
十円の位・・・ＭＩＤ関数を使用して
- 1000円未満の場合、何百円と云えば３桁に成りますから開始位置を２番目に指定して１文字抜き取ります・・・=MID(A5,2,1)となり・・・
- 1000円以上の場合、４桁に成りますから開始位置を３晩目に指定して１文字抜き取ります・・・=MID(A5,3,1)と成ります。
- これをＩＦ関数と組み合わせ、セルＡ5が1000円未満の時、正しければ=MID(A5,2,1)
  間違いであれば=MID(A5,3,1)と成ります・・・=IF(A5＜1000,MID(A5,2,1),MID(A5,3,1))
百の位・・・ＭＩＤ関数を使用して
- 1000円未満の場合、何百円と云えば3桁ですから開始位置を1番目に指定して1文字抜き取ります・・・=MID(A5,1,1)
- 1000円以上の場合、４桁に成りますから開始位置を２番目に指定して１文字抜き取ります・・・=MID(A5,2,1)
- これをＩＦ関数と組み合わせ、セルＡ5が1000円未満の時、正しければ=MID(A5,1,1)
  間違いであれば=MID(A5,2,1)と成ります・・・=IF(A5＜1000,MID(A5,1,1),MID(A5,2,1))
千円の位・・・ＬＥＦＴ関数でも良いのですがＭＩＤ関数を使用して
- 千円の位のみですから、開始位置は1番目を指定して1文字抜き取り・・・=MID(A5,1,1)
- それをＩＦ関数と組み合わせして、もし1000未満の場合は空白""にして、
  1000円以上の場合=MID(A5,1,1)と成ります・・・=IF(A5＜1000,"",MID(A5,1,1))

次に、「Ｂ」の個所にはどの様な関数なのか紹介します・・・基本的にはＶＬＯＯＫＵＰ関数です。

セルＡ5にＤの表の金額を書き込む訳ですからＤの箇所の表を検索範囲に指定します。・・・I22:AE25
金額がセルＪ22からＮ25(セル5個分）文章がＯ22からＡＥ25(セル17個）ですから
セルＡ5の金額で検索し文章表示をするには6列目を指定・・・=VLOOKUP(A5,J22:AE25,6,検索の型)
完全一致で表示・・・=VLOOKUP(A5,J22:AE25,6,FALSE)
ＶＬＯＯＫＵＰ関数の場合、空白の場合エラー＃Ｎ／Aが表示されますから厭なので・・・
ＩＳＮＡ関数でＶＬＯＯＫＵＰ関数を検査してエラーの場合空白にしてる訳です・・・
=IF(ISNA(VLOOKUP(A5,J22:AE25,6,FALSE)),"",VLOOKUP(A5,J22:AE25,6,FALSE))