[發問] 請問如何計算不同內容的Checkbox?
- 帖子
- 3
- 主題
- 2
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-5-13
- 最後登錄
- 2015-3-30
|
[發問] 請問如何計算不同內容的Checkbox?
請問大家有關Checkbox的問題，
我希望能夠如下圖，分別計算出"非常滿意"、"滿意"、"不滿意"、"待改進"分別被勾選了幾個?
目前只能寫出所有被勾選的Checkbox個數，卻無法依照各分類去計算，程式碼及檔案都附上，望各位前輩指教，謝謝!
- Sub Test()
-
- Dim Ct As OLEObject, iI%
-
- iI = 0
- For Each Ct In Me.OLEObjects
- If Ct.progID = "Forms.CheckBox.1" Then
- If Ct.Object.Value = True Then iI = iI + 1
- End If
- Next
- [B11] = iI
-
- End Sub
 Checkbox問卷計算.rar (22 KB)
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2015-3-23 06:55
| 只看該作者
回復 1# jemery127
試試看- Option Explicit
- Sub Test()
- Dim Ct As OLEObject, M As Variant, Rng As Range
- Set Rng = [a10:A14] '調查表範圍
- Rng.Offset(, 1) = ""
- For Each Ct In Me.OLEObjects
- If Ct.progID = "Forms.CheckBox.1" Then
- M = Application.Match(Ct.Object.Caption, Rng, 0)
- '工作表函數搜尋完全相同的字串的位置
- If Ct.Object.Value = True And IsNumeric(M) Then
- Rng(1, 2) = Rng(1, 2) + 1
- Rng(M, 2) = Rng(M, 2) + 1
- End If
- End If
- Next
- End Sub
|
|
|
|
|
|
|
|
發表於 2015-3-22 22:45
| 
