[[20050422221402]]　『１行おきの金額を合計する方法』（けー子）　ページの最後に飛ぶ

『１行おきの金額を合計する方法』（けー子）

[お世話になります。１行おきの金額を合計する方法について教えてください。いまA7からA50までに以下のように売上金額とその消費税が次々と入力されている場合A7から以下の売上金額だけの合計（A7,A9,A11,A13,...A49)を出したいのですがどのようにすればよいのか判りません。。

       A    
7    10,000
8       500
9    30,000
10    1,500
11   50,000
12    2,500
13    5,000
.       .
.       .
.       .
50      .

よろしくお願いいたします。

]

 全部に消費税が入っているのなら、総合計を1.05で割っても答えは一緒じゃないかな・・。

 （川野鮎太郎）

 Ｂ列に売上げ、消費税と交互に入力して、
 =SUMIF(B1:B50,B1,A1:A50)
 で、いかがですか？
 （浦上）

 配列を使った一案です。
 =SUM(IF(MOD(ROW(A7:A50),2)=1,A7:A50,0))
 として、数式バーにカーソルを置き、Ctrl + Shift + Enter です。
　　　　　　　　　　　　　　　　　　　　　　　　(SS)

みなさま大変ありがとうございます。金額の中には税込み10,000などがありそれを無理に9,523円と税477等に分けるため総合計を使うと少し誤差がでます。Ｂ列は都合ですかえません。配列を使うとうまくいきそうなのでそれを使用させていただきます。今後ともよろしくお願いいたします。（けー子）

マクロコードを使えば，A50までと限定しなくても，データの末尾まで
１行おきの集計は簡単にできます。

   マクロでもｏｋでしょうか。（なお）

暇つぶしにマクロで作ってみました。（なお）

 Sub 集計()

lastrow = Cells(Rows.Count, 1).End(xlUp).Row

sd = Application.InputBox("開始行番号入力")

For i = sd To lastrow
sumd = Cells(i, 1) + sumd
i = i + 1
Next

MsgBox sumd

End Sub

なおさん　ありがとうございます。マクロは勉強はじめたばかりでよくわかりませんがこれはIputBoxに行番号を入力すると実行するのでしょうか？それとも何かボタンを作ってそれをクリックするとInputBoxがでるのでしょうか？もうひとつ、シートを開いたら１行おきの合計が出るようにするにはどうするのか教えてください。開始行は常に”７”です。勉強になります。（けー子）

マクロについては下記が参考になります。

 このexcelの学校の上メニュ「ライブラリ」--＞VBA--＞マクロの自動記録win

この説明中にあるVisualBasicEditorのModule1をクリックした時に現れる
画面に上のコードを書きます（実際にはコピーアンドペーストで複写する）。

　　実行するには
ワークシート側から

            [ツール(T)]メニュー→[マクロ(M)]→[マクロ(M)] で表示される画面で
            上のマクロ「集計」を選択して[OK]ボタンを押します。

すると実際にマクロが起動して、「開始行番号入力」と聞いてくるので
集計の開始する行番号（今回は7）を入力すると、末尾まで集計し結果は表示
されます。（なお）

コメント返信：

[ 一覧(最新更新順) ]

[[20050422221402]] 『１行おきの金額を合計する方法』（けー子） ページの最後に飛ぶ

[[20050422221402]]　『１行おきの金額を合計する方法』（けー子）　ページの最後に飛ぶ