標題: [發問] 請問如何計算不同內容的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/)