|
▼じゅんじゅん さん:
>▼VBA初心者 さん:
>>質問させてください。
>
>>With Sheets("集計表").Range("c2:c9")
>> '
>> .Formula = "=sumproduct((" & b列 & "=c$1)*(" & c列 & "=$b2)*1)"
>>-------ここまでは正常に動作する-----------------------------------
>>-------ここより↓がオブジェクトはこのメソッド及びプロパティをサポートしていませんとのエラーが出る。---------
>> .Range ("C6").select
>> .Formula = "=SUM(C2:C5)"
> Range("C6").Formula = "=SUM(C2:C5)"
>とするべきかな?
>.Range("C6")の”.”が With文の〜.Range("c2:c9")に
>かかってくるからエラーになるのでは?
>>End With
>>End Sub
と言うより、
With Sheets("集計表")
.Range("c2:c9").Formula = "=sumproduct((" & b列 & "=c$1)*(" & c列 & "=$b2)*1)"
.Range ("C6").Formula = "=SUM(C2:C5)"
End With
の方がいいかも。
|
|