Board logo

標題: [發問] 請問如何計算不同內容的Checkbox? [打印本頁]

作者: jemery127    時間: 2015-3-22 22:45     標題: [發問] 請問如何計算不同內容的Checkbox?

請問大家有關Checkbox的問題,

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

目前只能寫出所有被勾選的Checkbox個數,卻無法依照各分類去計算,程式碼及檔案都附上,望各位前輩指教,謝謝!
[attach]20480[/attach]
  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
複製代碼
[attach]20481[/attach]
作者: GBKEE    時間: 2015-3-23 06:55

回復 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
複製代碼





歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)