|
VBAは初心者ですのでので、どなたか助けてください。現在、500人分のアンケートの集計をしています。一枚の質問用紙に24の質問があり、それぞれの質問はABCDのいずれかで解答します。そして、24問分のABCDの割合をグラフにすることになっています。ここまでの作業は、フォーム上にABCDののオプションボタンを作成しました。グループを作り、1つの項目が選択されている時には、他の項目がオフになるようにしています。しかし、コマンドボタンで、選択されている項目が、特定のセルに1ずつ加算されるようにしたいのですが、できません。
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
だと、循環参照が出てしまい、計算できなくなります。
変数などを使えばよいのかなあとも思いますが、どのようにすればよいのでしょうか。
よろしくお願いします。
|
|