前提・実現したいこと
条件付の合計の計算の仕方をご教授ください。
●「データ」シート
ある売上の一覧です。
A10セルから始まり、AV列までデータがあります。行数はその時によって変わります。
コード列・・・D列
税抜金額・・・AL列
この2シートがありまして、データシートをもとに、集計シートにコードごとの税抜金額を合計を出したいです。
sumif関数を使うやり方と、valueを使うやり方を試しましたがうまく行きませんでした。
宜しくお願い致します。
該当のソースコード
(valueを使ったコードです。めちゃくちゃなコードでしたらすみません) Public Sub 作成() Const ORG_ROW As Long = 11 '「データ」シートのデータ開始行 Const SHUKEI_MIDASI As Long = 1 '「集計」シートの見出し行数 Dim sh_date As Worksheet '「データ」シート Set sh_date = ThisWorkbook.Worksheets("データ") Dim sh_shukei As Worksheet Set sh_shukei = ThisWorkbook.Worksheets("集計") Dim codeRng As Range '「データ」シートの取引先コードセル Dim basecell As Range '「データ」シートのデータ転記開始セル Set basecell = sh_date.Range("D11") Dim gyosu As Long '「データ」シートの最終行 gyosu = basecell.End(xlDown).Row Dim shukeiKiten As Range '「集計」シート集計表の基点セル Set shukeiKiten = ThisWorkbook.Worksheets("集計").Range("A1") Dim uriagekin As Long '売上金額 Dim i As Long '各コードの売上金集計用変数 Dim cnt As Long cnt = 1 Dim j As Long For j = 1 To shukeiKiten.CurrentRegion.Rows.Count - SHUKEI_MIDASI For i = ORG_ROW To gyosu If sh_date.Cells(i, 4) = sh_.Cells(j, 1).Value Then uriagekin = uriagekin + sh_date.Cells(i, 38) End If Next i j = j + 1 Next j End Sub
補足情報(FW/ツールのバージョンなど)
SUMIFのコードです。
実行しても何も起きませんでした。
Worksheets("集計").Cells(2, 4).Value = _ WorksheetFunction.sumif(Worksheets("データ").Range("E10:E73"), _ Worksheets("集計").Range("A2"), Worksheets("データ").Range("AL11:AL73"))
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/04/05 08:30
2018/04/05 08:33
2018/04/05 08:36
2018/04/11 07:40