Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29150 / 76738 ←次へ | 前へ→

【52874】Re:VBAでワークシート関数を使用したいのですが
発言  じゅんじゅん  - 07/12/7(金) 12:59 -

引用なし
パスワード
   ▼じゅんじゅん さん:
>▼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
の方がいいかも。

0 hits

【52872】VBAでワークシート関数を使用したいのですが VBA初心者 07/12/7(金) 12:36 質問
【52873】Re:VBAでワークシート関数を使用したいので... じゅんじゅん 07/12/7(金) 12:56 発言
【52874】Re:VBAでワークシート関数を使用したいので... じゅんじゅん 07/12/7(金) 12:59 発言
【52876】Re:VBAでワークシート関数を使用したいので... VBA初心者 07/12/7(金) 13:43 お礼

29150 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free