| |
▼Hirofumi さん,こんにちは。
ご回答ありがとうございました。ご教授の内容をもとに、私のファイルへ当てはめ、少し、加工しましたが、うまくいきません。以下の様な、内容ではまずいのでしょうか？ちなみに、以前、ご紹介しましたエクセルの表を若干、加工した表を使います。申し訳ありませんが、またのご教授をお願い致します。
・１〜３行は文字列（＊＊で入力しておきます。）が、４〜５行は空白、６行目は 項目名（Ｂ〜Ｋ列、入力は省略してます。）です。
・前回ご紹介したエクセルの表の日付（20040402など）を、その対象となるデータ のＢ列へ貼り付けています。（後で、オートフィルタをかけるためです。）
・Ａ列７行目以降は、項目名になります。
・集計する列は、Ｆ〜Ｈ列の数値であり、小計をＦ〜Ｈ列の10行目と16行目に、合 計をＦ〜Ｈ列の17行目に表示させ、なおかつ、件数の小計もＥ列10行目と16行目 に、合計をＥ列16行目に集計させます。
・前述で説明しましたとおり、サンプル表は、１〜３行目の文字列、Ｂ列の日付、 Ｆ〜Ｈ列の数値だけ入力しています。
A＿B＿C＿D＿E＿F＿G＿H＿I＿J＿K＿L＿M＿N＿O＿P＿Q＿R＿S＿T＿U＿V＿W＿＿ 1＊＊＊＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
2＊＊＊＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
3＊＊＊＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
4＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
5＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
6＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
7＿20040401＿＿100_10_1000＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
8＿20040401＿＿200_20_2000＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
9＿20040401＿＿300_30_3000＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 10＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿11＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿12_20040402＿＿100_10_1000＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿13_20040402＿＿200_20_2000＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿14_20040402＿＿300_30_3000＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿15_20040402＿＿400_40_4000＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿16_＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿17___________________＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Option Explicit
Public Sub AddUp()
Dim i As Long
Dim j As Long
Dim lngListTop As Long
Dim lngListEnd As Long
Dim vntData As Variant
Dim vntSum(1) As Variant
Dim vntSubSum(1) As Variant
With ActiveSheet
'仮に先頭行を設定
lngListTop = 4
'もし、先頭行B列が""なら
If .Cells(lngListTop, "A").Value = "" Then
'先頭行を取得
lngListTop = .Cells(lngListTop, "A").End(xlDown).Row
End If
'最終行を取得
lngListEnd = .Cells(65536, "E").End(xlUp).Row + 1
'先頭行から最終行まで繰り返し
For i = lngListTop To lngListEnd
'現在行のA、F、G、H列の値を取得
vntData = .Cells(i, "A").Resize(, 7).Value
'もし、A列が""でF列が""なら（日付の終り）
If vntData(1, 1) = "" Then
'小計を出力
.Cells(i, "F").Resize(, 3).Value = vntSubSum
'小計を計に加算
For j = 0 To 1
vntSum(j) = vntSum(j) + vntSubSum(j)
Next j
Else
'もし、A列が""で無いなら（日付が有る場合）
If vntData(1, 1) <> "" Then
'小計をクリア
For j = 0 To 1
vntSubSum(j) = 0
Next j
Else
'小計にF列値、G列値、H列値及びカウントを加算
vntSubSum(0) = vntSubSum(0) + 1
vntSubSum(1) = vntSubSum(1) + vntData(1, 5)
vntSubSum(2) = vntSubSum(2) + vntData(1, 6)
vntSubSum(3) = vntSubSum(3) + vntData(1, 7)
End If
End If
Next i
'計を出力
.Cells(i, "E").Resize(, 4).Value = vntSum
End With
Beep
MsgBox "処理完了"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 04/4/25(日) 21:11 -
