http://www.sigoto.co.jp/excel/activex/lesson11/activex50.htm
このコードなんですが、集計を取るのではなく
ぶどう りんご いちご みかん バナナ
● ● ● ●
● ● ●
● ● ●
このように一回のアンケートごとに行をずらしたいです。
サンプルコードを書いていただけないでしょうか?
よろしくお願いします
Private Sub 登録ボタン_Click()
For k = 3 To 65536
If Range("B" & k) & Range("C" & k) & Range("D" & k) & Range("E" & k) & Range("F" & k) = "" Then Exit For
Next k
If k = 65536 Then End
If チェックぶどう = True Then Range("B" & k) = "●"
If チェックりんご = True Then Range("C" & k) = "●"
If チェックいちご = True Then Range("D" & k) = "●"
If チェックみかん = True Then Range("E" & k) = "●"
If チェックバナナ = True Then Range("F" & k) = "●"
チェックぶどう = False
チェックりんご = False
チェックいちご = False
チェックみかん = False
チェックバナナ = False
End Sub
今日ははてながメンテをやっていたせいか動作がおかしいみたいですね(;^_^A
ありがとうございました。
たすかりました♪