返回列表 上一主題 發帖

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

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

請問大家有關Checkbox的問題,

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

目前只能寫出所有被勾選的Checkbox個數,卻無法依照各分類去計算,程式碼及檔案都附上,望各位前輩指教,謝謝!
擷取.PNG
2015-3-22 22:39
  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)

回復 1# jemery127
試試看
  1. Option Explicit
  2. Sub Test()
  3.     Dim Ct As OLEObject, M As Variant, Rng As Range
  4.     Set Rng = [a10:A14]  '調查表範圍
  5.     Rng.Offset(, 1) = ""
  6.     For Each Ct In Me.OLEObjects
  7.         If Ct.progID = "Forms.CheckBox.1" Then
  8.             M = Application.Match(Ct.Object.Caption, Rng, 0)
  9.             '工作表函數搜尋完全相同的字串的位置
  10.             If Ct.Object.Value = True And IsNumeric(M) Then
  11.                 Rng(1, 2) = Rng(1, 2) + 1
  12.                 Rng(M, 2) = Rng(M, 2) + 1
  13.             End If
  14.         End If
  15.     Next
  16. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題