エクセルで数字の各桁ごとに罫線を引く方法

質問

会社で次のような書類を作成するように言われて困ってます。
内容は、従来手書きでしていた見積書をエクセルで作成していたのですが、従来どおり各金額のところを、例えば、１０，０００円という数字の各桁（１の桁、１０の桁、１００の桁・・・）に罫線で引いておけというのです・・・。
社長には、従来手書きの時は、各桁に罫線があるのは便利だからいいのだが、エクセルで作成するようになったらそのような線は不要だと訴えているのですが、聞いてもらえません。
各桁をひとつのセルにしてしまうと、合計などができず、オブジェクトの線だと設定が大変です。
誰かいい方法をご存知ないものでしょうか？助けてください。

回答No.6

imogasi

手の込んだやり方ですが「カメラ機能」を使うと出来そうです。
まず
（１）セルの数字（金額）を１桁１セルに分配する方法。
Ｓｈｅｅｔ１のＡ１に金額数字が入っているとして、
Ｓｈｅｅｔ２のＡ１：Ｊ１の１０桁用のセルに、右詰で数字をいれるには、Ａ１セルに関数
=IF(COLUMN()-10+LEN(Sheet1!$A$1)<0,"",IF(COLUMN()-10+LEN(Sheet1!$A$1)=0,"\",MID(Sheet1!$A$1,COLUMN()-10+LEN(Sheet1!$A$1),1)))
といれて、Ｊ１まで右方向に複写する。
例えばＳｈｅｅｔ１のＡ１に１２３４５をいれると、Ｓｈｅｅｔ２のＡ１：Ｊ１には△△△△￥１２３４５（△は空白セル）が自動的に入る。
さて
（２）カメラ機能の出し方は
Ｓｈｅｅｔ２でツール－ユーザー設定－コマンド－（分類）ツール－（コマンド）カメラのアイコンを出し、ツールバー部へＤ＆Ｄをする。（ドラッグアンドドロップ）
（３）Ｓｈｅｅｔ２のＡ１：Ｊ１を範囲指定してカメラのアイコンをクリックして、Ｓｈｅｅｔ１の請求書の金額欄に貼りつける。
（４）Ｓｈｅｅｔ２のＡ１；Ｊ１は罫線で囲み、各セル左右間には縦の罫線を設定する。３桁ごとに縦線を太くしたり点線にしたり、色を工夫すると、黒白印刷のときの縦罫線の濃淡もコントロールできます。灰色を使うとか。
さすがに３桁ごとにカンマを入れる関数式までは、複雑になりすぎて、作る気がしなかった。ＶＢＡなど使えば（その応用として、ユーザー関数を作れば）３桁ごとにカンマをいれることが出来る。
また上記でＳｈｅｅｔ２のＡ列ーＪ列の幅は適当に狭く等幅にすること。行高も適当に大きく、フォントも大きく。
チェックライタの感じで。
カメラ機能の使う理由は、（Ｓｈｅｅｔ１）請求書の他の項目で決まる列幅に左右されずに金額欄が設定できることがメリットです。
セル結合でやれる場合もありそうだが、請求書のレイアウトを実際見てみないと何とも言えない。
上例ではＳｈｅｅｔ１のＡ１に金額があるようにしたが、実際は請求額があるデータベースはＳｈｅｅｔ３などと言う風にＳｈｈｅｔ１とは別でしょう。Ｓｈｅｅｔ２はカメラで使うのでこのためにだけ使うことになると思う。