|
▼G-Luck さん:
ご指摘ありがとうございます。
そうですね、集計といっても色々ありますよね。
Set myWb32 = Workbooks(2).Worksheets(3)
Set myWb33 = Workbooks(3).Worksheets(3)
Set myWb34 = Workbooks(4).Worksheets(3)
Set myWb35 = Workbooks(5).Worksheets(3)
Set myWb36 = Workbooks(6).Worksheets(3)
Set myWb37 = Workbooks(7).Worksheets(3)
'各項目データ集計
Workbooks(1).Worksheets(3).Activate
Range("I7").Select
ActiveCell.Formula = myWb32.RC+ myWb33.RC + myWb34.RC + myWb35.RC + myWb36.RC+ myWb37.RC
With Range("I7").Select
Selection.AutoFill Destination:=Range("I7:I42"), Type:=xlFillDefault
Range("I7:I42").Select
Selection.AutoFill Destination:=Range("I7:U42"), Type:=xlFillDefault
Range("I7:U42").Select
End With
このマクロだと、ActiveCell.Fomulaの部分が黄色に塗られ、デバックが出ます。
With Rangeの部分は、正常に動きます。
フォローお願いいたします。
|
|