VBAで仕入書価格と申告金額の集計結果を表示する方法

質問

• VBAを使用して、仕入書価格と申告金額を欄ごとに集計し、結果を別シートの10行目から表示させるプログラムを作成する方法について教えてください。
• また、SMALLのグループの中で税率ごとに一番大きい輸入統計品目番号を表示することも可能でしょうか。
• VBAのプロの方にお力をお借りして解決方法を教えていただけると幸いです。

回答No.5

CC_T

>　教えて頂いた通りに記述しましたがRows("31:60").ClearCont683005ents
>　の箇所でデバックがでます。何故か分かりません。どこが間違っているのでしょうか。

ClearContentsの命令の途中に「683005」が混じってますが、コピペミスでしょうか？(^^;
Rows("31:60").ClearContents
です。

こちらではエラー出ずに動いて処理できてます。
おっと、品目を高税率の方に書き換えできてないですね。…訂正しときます。

～～～～～Sub　Macro1()
'
'変数、行列を宣言する。
　　Dim　Lin　As　Integer,　Clm　As　Integer,　arg(1000,　10)　As　Variant
　　Dim　aln　As　Integer,　i　As　Integer

'初期値設定
　　Lin　=　11　'タイトル行を除くデータ先頭行を入れる
　　aln　=　1

'1行目データを配列に読み込み
　　For　i　=　1　To　3
　　　　arg(aln,　i)　=　Cells(Lin,　i)
　　Next　i

　　If　Cells(Lin,　4)　=　"無税"　Then　　'　変数型を数値型とするため、ゼロ値で取り込む
　　　　arg(aln,　4)　=　0
　　Else
　　　　arg(aln,　4)　=　Cells(Lin,　4)
　　End　If

　　For　i　=　5　To　6
　　　　arg(aln,　i)　=　Cells(Lin,　i)
　　Next　i

'次行の１列目が空白でない限り処理を継続する指示。

　　Do
　　　　Lin　=　Lin　+　1　'処理行を次行に

'欄の値が配列の「欄」の値と同じか判定する。
　　　　If　(arg(aln,　1)　=　Cells(Lin,　1))　Then

'　→同値ならば、金額を配列値と足しあわせる
　　　　　　arg(aln,　5)　=　arg(aln,　5)　+　Cells(Lin,　5)
　　　　　　arg(aln,　6)　=　arg(aln,　6)　+　Cells(Lin,　6)

'　　配列の税率とデータの税率を比較し、高率の品目と税率で配列を上書きする。
　　　　　　If　Not　(Cells(Lin,　4)　=　"無税")　Then
　　　　　　　　If　arg(aln,　4)　<　Cells(Lin,　4)　Then
　　　　　　　　　　arg(aln,　4)　=　Cells(Lin,　4)
　　　　　　　　　　arg(aln,　3)　=　Cells(Lin,　3)
　　　　　　　　End　If
　　　　　　End　If

'　→異値ならば、新たなデータとして行列の次行に読み込む。
　　　　　　Else
　　　　　　　　aln　=　aln　+　1

　　　　　　　　For　i　=　1　To　3
　　　　　　　　　　arg(aln,　i)　=　Cells(Lin,　i)
　　　　　　　　Next　i

　　　　　　　　If　Cells(Lin,　4)　=　"無税"　Then
　　　　　　　　　　arg(aln,　4)　=　0
　　　　　　　　Else
　　　　　　　　　　arg(aln,　4)　=　Cells(Lin,　4)
　　　　　　　　End　If

　　　　　　　　For　i　=　5　To　6
　　　　　　　　　　arg(aln,　i)　=　Cells(Lin,　i)
　　　　　　　　Next　i
　　　　End　If

　　Loop　While　Cells(Lin,　1)　>　0

'「別のシート」の情報を一旦クリア（しとかないと、下に前処理時のゴミが残っちゃうことがある）
　　Sheets("別シート").Select　　　　'★シート名は実情に合わせて指定下さい。
　　Rows("31:100").ClearContents　　'★実情に合わせて範囲指定してください。

'統計結果の書き込み
　　aln　=　1

　　While　arg(aln,　1)　>　0
　　　　Cells(30　+　aln,　1)　=　arg(aln,　1)
　　　　Cells(30　+　aln,　2)　=　arg(aln,　3)
　　　　Cells(30　+　aln,　4)　=　arg(aln,　5)
　　　　Cells(30　+　aln,　5)　=　arg(aln,　6)
　　　　aln　=　aln　+　1
　　Wend

End　Sub

補足

いろいろとご教示いただきありがとうございます。もう一つお願いがあります。税率も表示させたいのですがどうすればいいでしょうか。添付のエクセルの表には税率が表記されていません。恐れ入りますがこちらのほうもご教示頂ければありがたいです。