標題: [發問] 如何計算checkbox "有打勾"的個數?? [打印本頁]

---

作者: rick4615    時間: 2013-8-13 15:07     標題: 如何計算checkbox "有打勾"的個數??

請問如何計算checkbox 有打勾的個數呢?
假設有checkbox1~5
只勾了1.3
那要如何做計算呢??

煩請各位前輩解答 感謝 :)

---

作者: luhpro    時間: 2013-8-13 23:59

回復 1# rick4615

1. Private Sub cbCal_Click()
   
2.   Dim iI%
   
3.   Dim ctl As Control
   
4.   
   
5.   iI = 0
   
6.   For Each ctl In Me.Controls
   
7.     If TypeName(ctl) = "CheckBox" Then
   
8.       If ctl.Value Then iI = iI + 1
   
9.     End If
   
10.   Next
    
11.   MsgBox "共有 " & iI & "個 CheckBox 被打勾"
    
12. End Sub

複製代碼

[attach]15768[/attach]

---

作者: rick4615    時間: 2013-8-14 08:54

回復 2# luhpro


感謝大大的幫忙 :D

---

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