excel 產生多個核取方塊. - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » excel 產生多個核取方塊.

返回列表下一主題上一主題發帖

excel 產生多個核取方塊.

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^# 跳轉到 »

發表於 2013-9-5 16:25 | 只看該作者

回復 4# GBKEE

請問用2#作出來核取方塊可以統計勾選數量

若用人工插入的核取方塊為何無法統計勾選數量，需要在設定甚麼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-9-5 15:58 | 只看該作者

回復 3# sworder12
2003版可用

Option Explicit
Sub Ex()
Dim S As Integer, C As Variant
For Each C In ActiveSheet.OLEObjects
If C.Name Like "CheckBox*" Then
S = S + IIf(C.Object.Value, 1, 0)
End If
Next
MsgBox S
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 16
主題: 4
精華: 0
積分: 28
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2013-8-31
最後登錄: 2019-5-17

3^#

發表於 2013-9-5 15:24 | 只看該作者

感謝版主,在家用office 2010測試正常,
因為我需要用 true/false 做計數功能.但公司版本是舊版的,不像新版的那麼方便,可以直接按屬性->LinkedCell

請問在舊版的 excel 如何開啟屬性呢？試了許久試不出來....:(

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2013-9-1 08:57 | 只看該作者

Sub test()
For Each c In ActiveSheet.Cells.SpecialCells(2)
Set b = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Left:=c(1, 2).Left, Top:=c.Top, Width:=c.Width, Height:=c.Height)
b.Object.Caption = c.Value
Next
End Sub

複製代碼

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。

返回列表下一主題上一主題