|
初めての投稿ですが 宜しくお願いいたします。
A B C D E F
1 項目 数量 単位 単価 計
2 16520 1 set 1500 1500
3 16011 2 set 1000 2000
4 ・ ・ ・ ・ ・
5 ・ ・ ・ ・ ・
6 16011 2 set 1000 2000
7 小計 18000
以下の行に同様の表が存在し、各々小計をマクロにて計算するプログラムを作成しております。※小計までの項目行数は様々です。
今までのレスを拝見させていただき下記のプログラムまでは行着きましたが、Forメソッドなども使ってみましたが、連続しての"小計検索&オートSAM"がうまくいきません。
ご教授いただきたつく、投稿させていただきました。
Sub 検索()
Range("A1").Select '検索開始セルは"A1"
With Cells.Find(What:="小計", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell(1, 3).Select
End With
Dim i As Long
Dim lngCount As Long
With ActiveCell
'データ行数の初期値を設定
lngCount = 0
'現在のセルより上のデータが数字でなくなるまで繰り返し
i = i - 1
Do Until .Row + i = 0
'操作行が数値無く、若しくはEmpty値ならDoを抜ける
If (Not IsNumeric(.Offset(i).Value)) Or IsEmpty(.Offset(i).Value) Then
Exit Do
Else
'データ行数をカウント
lngCount = lngCount + 1
End If
'操作行を更新
i = i - 1
Loop
'数式を出力
.FormulaR1C1 = "=Sum(R[-" & (lngCount) & "]C:R[-1]C)"
End With
End Sub
宜しくお願い足します。
|
|