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