|
質問させてください。
アンケートの集計用のシートを以下のように作成しています。
シート1(データベース)
A B C D
1 支店No. Q1 Q2 Q3
2 1 2 1 1
3 3 1 1 2
4 4 2 2 1
5 2 1 1 1
シート2(集計用)
A B C D
1 ○支店 ×支店
2 Q1_1 満足 1 1
3 Q1_2 不満足 5 3
4 ・
5 ・
6 Q1件数計 15 35
7 Q2_1 満足 10 3
8 Q2_2 不満足 1 4
9 Q2件数計 11 7
集計シートでは、支店毎に各質問の回答件数の集計をしています。
もっと良い方法があるかとは思うのですが、
現在はSUMPRODUCT関数で複数条件(各支店ごとに各設問で何と回答したか)での
件数を集計欄に入力した後、Q1の件数の計算をしようとしています。
SUMPRODUCTまではきちんと動作しているのですが、
その後の計算でエラーが出てしまいます。
このエラーは何故起こるのかさっぱりわかりません・・・。
どなたかご回答いただけませんでしょうか?
↓が作成したコードです。
どうぞ宜しくお願い致します。
Private Sub CommandButton1_Click()
Dim b列 As String
Dim c列 As String
With Sheets("データベース")
'b列(支店名列の入力範囲を取得)
b列 = "データベース!" & .Range(.Cells(1, 2), .Range("b65536").End(xlUp)).Address
'c列(Q1の入力範囲を取得)
c列 = "データベース!" & .Range(.Cells(1, 2), .Range("b65536").End(xlUp)).Offset(0, 1).Address
End With
With Sheets("集計表").Range("c2:c9")
'
.Formula = "=sumproduct((" & b列 & "=c$1)*(" & c列 & "=$b2)*1)"
-------ここまでは正常に動作する-----------------------------------
-------ここより↓がオブジェクトはこのメソッド及びプロパティをサポートしていませんとのエラーが出る。---------
.Range ("C6").select
.Formula = "=SUM(C2:C5)"
End With
End Sub
|
|