エクセルマクロでの消費税計算式（他シ－トへの転記含む）を教えてください

質問

エクセルマクロでの消費税計算式（他シ－トへの転記含む）を教えてください。
お世話になります。現状シ－ト４枚構成で1枚目（シ－ト名は「日報」）に商品類別に５項目を縦列に税込額を入力し登録というマクロボタンを押すと、シ－ト２枚目（シ－ト名は「総額」に５項目を横５列に転記する形となっています。
シ－ト３枚目（シ－ト名は「税抜」）シ－ト４枚目（シ－ト名は「消費税」）での計算処理は、シ－ト「総額」の各行列セルに新規数値が転記された際ＩＦ関数とＩＮＴ関数で税抜額と消費税額とをそれぞれのシ－トで計算する形（＝各セルに上記関数での計算式が貼り付けているというチカラワザ形式）となっています。

シ－ト「日報」のセルＡ５に消費税率値を置いて、Ａ列１０行からＡ列１４行までに商品類名称を固定表示し・Ｂ列１０行からＢ列１４行までに毎日の税込売上額を入力し、シ－ト「日報」の１つの登録ボタンのみを押すだけで、シ－ト３枚目と４枚目とのシ－トＤ列１１行目からＨ列１１行にそれぞれ各商品類別の「税抜額」「消費税額」を転記表示させるマクロについて御教授いただけると助かります。（各シ－トともＩ列は横行合計を表示してあります）

税抜額＝総額▲消費税額という形で（税抜額の算出には消費税率を使用せず、総額から総額の５／１０５で消費税額を計算し当該消費税額と総額との差額という形）処理できれば助かります。

便法としては１日毎の入力都度ではなく、１ヶ月纏めてシ－ト「総額」から一括でシ－ト３枚目４枚目に税抜額・消費税額値を転記するというマクロも在るかと思うのですが（シ－ト名ＲＡＮＧＥ表示の為算式が長くなり成功しませんでした）申し訳ありませんが上記１日単位での処理方法をお教えくださると助かります。

回答No.2

haichicchi · ベストアンサー

#1です。

いろいろなやり方があるでしょうが、例えば、

「日報」シートは１つしかないので、そのときに書き込んだデータが
いつのデータなのか識別できる情報が必要。
→「日報」のセルA6に日付（1 or 2 or ...31）を入力しておいて
　それに応じた「合計」の行に転記するものとする。という仕様にすると

Zeiritsu = Worksheets("日報").Cells(5, 1).Value
Hiduke = Worksheets("日報").Cells(6, 1).Value

For i = 0 To 4
ZeikomiGaku = Worksheets("日報").Cells(10 + i, 2).Value
'ZeinukiGaku = （ZeikomiGaku と Zeiritsu から計算してね）
Worksheets("合計（税込）").Cells(10 + Hiduke, i + 4).Value = ZeikomiGaku
Worksheets("合計（税抜）").Cells(10 + Hiduke, i + 4).Value = ZeinukiGaku
Next i

でできます。
あとは自分で工夫してみてくださいね。

お礼

御迷惑を掛けましたのに、易しい式で具体的に教えてくださいまして助かりました。
ありがとうございました。

CELLSを使うと縦横変換が容易に（処方箋を頂戴して初めて理解できました）処理出来るんですね。
rangeでのみ試行錯誤（参考書は手許に置いていたのですが－－）して疲労困憊状態でした。　

お陰様で８月からの日報整理迅速に処理出来ます。　重ね重ねありがとうございました。

拝

回答No.1

haichicchi

こんばんは。

説明がよく理解できないのですが、結局どの部分がわからないのでしょうか？
この部分の処理を教えて、なら回答できるのですが、
「何もかもわからないから作って」だとしたら費用をいただかないと。。(笑)

>シ－ト「日報」のセルＡ５に消費税率値を置いて、Ａ列１０行から
>Ａ列１４行までに商品類名称を固定表示し・Ｂ列１０行からＢ列１４行
>までに毎日の税込売上額を入力し、
>シ－ト３枚目と４枚目とのシ－トＤ列１１行目からＨ列１１行にそれぞれ
>各商品類別の「税抜額」「消費税額」を転記表示させる

の部分の処理ならこんな感じでできるはず。。。

Zeiritsu = Worksheets("日報").Cells(5, 1).Value
for i = 0 to 4
ZeikomiGaku = Worksheets("日報").Cells(10+i, 2).Value
ZeinukiGaku = （ZeikomiGaku と Zeiritsu から計算してね）
Worksheets("シート３").Cells(11, i+4).Value = ZeinukiGaku
Worksheets("シート４").Cells(11, i+4).Value = ZeikomiGaku
Next i

セルから値を取得するのとセルに値を書き込むのはこの方法でできるので、
あとは算数で好きなように計算するだけです。
これを参考にして思考錯誤してみてください。

お礼

ありがとうございました。
メ－ルチェックを怠ったため御礼が遅くなりましたことお詫びさせていただきます。
日毎の縦列金額を月報横列集計用に日付順に（月末が最終行に記載されるように）転記したかったのが質問の主旨でございます。私が不慣れなため解りやすくと思ってかえって混乱させる形の冗長文になりましたことお詫びさせていただきます。
それほど複雑でなければ、シ－ト名「日報」のＢ列１０行から１４行までの数値をシ－ト名「合計」Ｂ列１１行からＦ列１１行に月初（初日）分を、２日目分をＢ列１２行からＦ行１２行にという形で順次記録させていくマクロを教えていただければ助かります。幾度もお手数を煩わせる形になりまして申し訳ありません。
消費税率・税抜額・消費税額自体の転記は無視していただいて結構でございます。
（単純には、シ－ト　日報　に縦列記載した数値を　シ－ト　合計　に　横行形式で日付順に同一数値を転記させるという形のマクロになります。）
拝