如何针对单元格对D2和F2是否勾选赋值？

zhongyong

请教高手：如何针对单元格对D2和F2是否勾选赋值？
如果C2中的 “有”  在D2复选框中打钩，那么D4就显示1，D6就赋值100；

如果E2中的 “无”  在F2复选框中没有打钩，那么F4就显示0，F6就赋值0.

请教高手如何才能实现上面的功能，谢谢指导，万分感谢！
一份调研问卷中有几百个这样的复选框，为了简化录入量和快速分析，请教高手如何才能实现？

Chip_Kenny

1. Sub zz()
   
2. Dim a, b(1)
   
3. a = Split("有,?", ",")
   
4. b(0) = Array(1, "", 100): b(1) = Array(0, "", 0)
   
5. With Sheets(1)
   
6.     For i = 1 To .CheckBoxes.Count
   
7.         If .CheckBoxes(i).Value < 0 Then
   
8.             For j = 0 To UBound(b(i - 1))
   
9.                 b(i - 1)(j) = ""
   
10.             Next
    
11.         End If
    
12.         Cells(4, 4 + (i - 1) * 2).Resize(3) = Application.Transpose(b(i - 1))
    
13.     Next
    
14. End With
    
15. End Sub

复制代码

zhongyong

请教高手为什么增加性别后复选框点击就不起作用了，

应该如何修改？谢谢指导 运行显示下标越界！！   详见附件

Chip_Kenny

代碼要求宣告所有變數，檔案架構改變了，要求甚麼…