Question

excel插入的多个复选框如何用VBA语言批量将每个复选框的选择结果放到固定的区域？

用excel做的多选题，每一个多选题有四个选项，用复选框表示，我希望将每一个题目的答案放到另一个sheet表的一行（共四个），将下一个题放到对应位置下一行，依次类推。当前我可以将每一个复选框的结果放到特定位置，但由于复选框较多，单个编程就麻烦了，如何通过循环或是别的编码批量将所有checkbox的结果放到对应位置呢？下面是单个复选框的编码： Private Sub CheckBox1_Click() Worksheets("存放结果表").Select If CheckBox1.Value = True Then Worksheets("存放结果表").Cells(1, 1).Value = CheckBox1.Caption Else Worksheets("存放结果表").Cells(1, 1).Value = "" End If End Sub 接着，checkbox2是存放到cells(1,2), checkbox3是存放到cells(1,3), checkbox4是存放到cells(1,4)。这样完成了第一题的存放位置的编写。第二题从checkbox5开始，是存放到cells(2,1),checkbox6存放到cells(2,2)......依次类推，单个编码。

这样单个改太麻烦，如何通过一个循环，将所有的checkbox统一进行编码，然后存到相应的位置呢？

描述的问题有点长，还望耐心看，谢谢啦！

Answer 1

一般都不用excel作试题的，excel的主要作用是用于数据处理，如果你要做选择题的话，建议你使用asp做成网页，这样更好一点，并且做成网页也可以做成一个在线考试系统的

Answer 2

有点乱的，这样做是否麻烦呀。更改一下你的答题方法与答案设置，事半功倍。