用 下面這段程式碼：

Sub howmanychk()

For Each chk In ActiveSheet.CheckBoxes

If chk.Value = 1 Then j = j + 1

Next

MsgBox "共有【" & j & "】個勾選！", vbInformation

End Sub

結果是：

如果只統計D列一年級的勾選，可以用下面的程式碼

Sub Howmany1()

For Each chk In ActiveSheet.CheckBoxes

If chk.Value = 1 And Left(chk.TopLeftCell.Address, 2) = "$D" Then j = j + 1

Next

MsgBox "共有【" & j & "】個勾選！", vbInformation

End Sub

checkbox的複選框框的大小是沒法改的， 但有別的方法可以嘗試， 我的方法是這樣子的： 先建一個Label，然後再在上面打個“√”， 接下來就去調字型大小，加粗， 最後再寫點程式： Private Sub Label1_Click() If Label1.Caption = "√" Then Label1.Caption = "" Else Label1.Caption = "√" End Sub 這樣子就OK了， 這法子有點土，不過管用，可以做得很大很大。