返回列表 上一主題 發帖

[發問] 請問如何計算不同內容的Checkbox?

[發問] 請問如何計算不同內容的Checkbox?

請問大家有關Checkbox的問題,

我希望能夠如下圖,分別計算出"非常滿意"、"滿意"、"不滿意"、"待改進"分別被勾選了幾個?

目前只能寫出所有被勾選的Checkbox個數,卻無法依照各分類去計算,程式碼及檔案都附上,望各位前輩指教,謝謝!
  1. Sub Test()
  2.    
  3.     Dim Ct As OLEObject, iI%
  4.    
  5.     iI = 0
  6.     For Each Ct In Me.OLEObjects
  7.         If Ct.progID = "Forms.CheckBox.1" Then
  8.             If Ct.Object.Value = True Then iI = iI + 1
  9.         End If
  10.     Next
  11.     [B11] = iI
  12.    
  13. End Sub
複製代碼
Checkbox問卷計算.rar (22 KB)

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題