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

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

excel 產生多個核取方塊.

小學生 Rank: 1

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-9-1 01:37 | 只看該作者

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

複製代碼

小學生 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

帖子: 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: 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兔年全勤獎章

6^#

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

回復 5# ML089

Option Explicit
Sub Ex()
Dim S As Integer, C As Variant
For Each C In ActiveSheet.OLEObjects '控制工具箱的控制項 (MSForms.CheckBox)
If C.Name Like "CheckBox*" Then
S = S + IIf(C.Object.Value, 1, 0)
End If
Next
MsgBox S
S = 0
For Each C In ActiveSheet.CheckBoxes '表單的控制項(核取方塊)
S = S + IIf(C.Value = 1, 1, 0)
Next
MsgBox S
End Sub

複製代碼

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

版主 Rank: 7 Rank: 7 Rank: 7

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

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

7^#

發表於 2013-9-5 17:28 | 只看該作者

本帖最後由 ML089 於 2013-9-5 17:31 編輯

回復 6# GBKEE

原來 CheckBox 與核取方塊不同，謝謝你詳細的解說

這兩個使用上有何差別?

{...} 表示需要用 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兔年全勤獎章

8^#

發表於 2013-9-5 20:07 | 只看該作者

回復 7# ML089
控制工具箱的控制項,可寫VBA

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

9^#

發表於 2013-9-5 20:44 | 只看該作者

若你想用LinkedCell屬性計算，那就是表單工具的核取方塊了，可改成這樣：(例如LinkedCell放在m欄)

Sub test()
For Each c In ActiveSheet.Cells.SpecialCells(2)
Set b = ActiveSheet.CheckBoxes.Add(c(1, 2).Left, c.Top, c.Width, c.Height)
b.Characters.Text = c.Value
i = i + 1
b.LinkedCell = Cells(i, 13).Address
Next
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

10^#

發表於 2013-9-5 20:52 | 只看該作者

回復 9# oobird

結果如圖：

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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