多選CheckBox的VBA怎麼寫？

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 135
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-6-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2012-11-22 15:19 | 只看該作者

Sub ex() '讀取勾選之表單CheckBox控制項
Dim Sp As Shape
For Each Sp In ActiveSheet.Shapes
If Sp.FormControlType = xlCheckBox Then
If Sp.ControlFormat.Value = 1 Then mystr = IIf(mystr = "", Sp.TextFrame.Characters.Text, mystr & "," & Sp.TextFrame.Characters.Text)
End If
Next
MsgBox mystr
End Sub
Sub ex1() '取消勾選CheckBox
Dim Sp As Shape
For Each Sp In ActiveSheet.Shapes
If Sp.FormControlType = xlCheckBox Then
Sp.ControlFormat.Value = False
End If
Next
End Sub

複製代碼

回復 9# c_c_lai

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 135
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-6-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2012-11-22 15:38 | 只看該作者

回復 6# maikoyuki

Sub 清除控制項的值()
Dim Ct As OLEObject, k
For Each Ct In Me.OLEObjects
k = Ct.Object.Value
Ct.Object.Value = IIf(TypeName(k) = "Boolean", False, IIf(TypeName(k) = "String", "", Null))
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2012-11-22 15:45 | 只看該作者

回復 10# GBKEE
謝謝您的說明，學習VBA快一年了，到目前為止我幾乎沒使用過 ActiveX 控制項，
譬如下圖所示，我都是使用表單控制項處理，為何可以呢？難道在工作表單上一定
要使用 OLEObject 物件嗎？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

14^#

發表於 2012-11-22 16:13 | 只看該作者

回復 11# Hsieh
終於 OK 了，謝謝 Hsieh 版大的解惑，在判斷 xlCheckBox 之前尚需先行過濾 Ct 的型態；
If Ct.Type = msoFormControl Then ~ End If ，否則會產生錯誤訊息。
在 UserForm 內之 Ct.Caption 亦如 Hsieh 版大的範例一併須修改成 Ct.TextFrame.Characters.Text 。

Sub Test2()
Dim Ct As Shape, mystr As String
For Each Ct In Me.Shapes
If Ct.Type = msoFormControl Then
If Ct.FormControlType = xlCheckBox Then
If Ct.ControlFormat.Value = 1 Then mystr = IIf(mystr = "", Ct.TextFrame.Characters.Text, mystr & "," & Ct.TextFrame.Characters.Text)
End If
End If
Next
Sheet1.[B12] = mystr
End Sub

複製代碼

再次謝謝您等的指導！

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

15^#

發表於 2012-11-22 16:39 | 只看該作者

整理一下 , 有錯請幫我指正~

表單上的控制項 :
使用"表單"的Controls遍歷 ,
找特定類型用TypeName檢查

工作表上的activeX控制項 :
使用"工作表"的OLEObjects遍歷 ,
找特定類型用progID檢查

工作表上的表單控制項 :
在"工作表"的shapes中 , Type = msoFormControl 的 shape ,
控制項屬性在shape.ControlFormat下 ,
找特定類型用shape.FormControlType檢查

TOP

c_c_lai