返回列表 上一主題 發帖

[發問] 如何計算checkbox "有打勾"的個數??

回復 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
複製代碼
如何計算checkbox有打勾的數量.zip (6.51 KB)

TOP

        靜思自在 : 生氣,就是拿別人的過錯來懲罰自己。
返回列表 上一主題