| |
ＶＢＡは初心者ですのでので、どなたか助けてください。現在、５００人分のアンケートの集計をしています。一枚の質問用紙に２４の質問があり、それぞれの質問はＡＢＣＤのいずれかで解答します。そして、２４問分のＡＢＣＤの割合をグラフにすることになっています。ここまでの作業は、フォーム上にＡＢＣＤののオプションボタンを作成しました。グループを作り、１つの項目が選択されている時には、他の項目がオフになるようにしています。しかし、コマンドボタンで、選択されている項目が、特定のセルに１ずつ加算されるようにしたいのですが、できません。
Private Sub commandbutton1_click()
If OptionButton1.Value = True Then
Range("D10").Value = "=D10+1"
ElseIf OptionButton2.Value = True Then
Range("E10").Value = "=E10+1"
ElseIf OptionButton3.Value = True Then
Range("F10").Value = "=F10+1"
ElseIf OptionButton4.Value = True Then
Range("G10").Value = "=G10+1"
End If
End Sub
だと、循環参照が出てしまい、計算できなくなります。
変数などを使えばよいのかなあとも思いますが、どのようにすればよいのでしょうか。
よろしくお願いします。
|
|
Matt Yoshida
- 03/7/28(月) 2:36 -
