12
返回列表 上一主題 發帖

多選CheckBox的VBA怎麼寫？

maikoyuki

帖子
5 
主題
2 
精華
0 
積分
13 
點名
0  
作業系統
Win7 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-6-9 
最後登錄
2021-7-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-11-21 17:53 | 只看該作者

多選CheckBox的VBA怎麼寫？

在一個儲存格裡放著CheckBox所選取的項目，並用 , 隔開，請問這段VBA是怎麼寫？謝謝！


CheckBox.rar (14.15 KB)
收藏 分享

cake1234

帖子
6 
主題
1 
精華
0 
積分
55 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
註冊時間
2016-4-23 
最後登錄
2020-4-19 
20#
發表於 2016-12-5 17:06 | 只看該作者
好詳細的講解，受益良多

TOP

sppchad

帖子
1 
主題
0 
精華
0 
積分
6 
點名
0  
作業系統
window xp 
軟體版本
office 2000 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2012-12-11 
最後登錄
2012-12-16 
19#
發表於 2012-12-11 22:54 | 只看該作者
回復 1# maikoyuki

雖然目前還不能下載來看看,但還是謝謝你

TOP

maikoyuki

帖子
5 
主題
2 
精華
0 
積分
13 
點名
0  
作業系統
Win7 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-6-9 
最後登錄
2021-7-3 
18#
發表於 2012-11-23 16:31 | 只看該作者
To Hsieh大：

一個後續問題，就是現在可以把要選取的東西放在儲存格上，那麼如果想要在這個儲存格上查詢有多少個選取了的項目，把它顯示在 [B13]以下的儲存格，每一個項目 佔一個儲存格，這個代碼如何處理？謝謝！

TOP

maikoyuki

帖子
5 
主題
2 
精華
0 
積分
13 
點名
0  
作業系統
Win7 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-6-9 
最後登錄
2021-7-3 
17#
發表於 2012-11-23 16:28 | 只看該作者
回復  12#  Hsieh

執行上出現錯誤，'438' ， 物件不支援此屬性或方法。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
16#
發表於 2012-11-22 17:45 | 只看該作者
回復 15# stillfish00
附上圖表，你便更易瞭解了。

TOP

stillfish00

帖子
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

帖子
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 。
  1. Sub Test2()
  2.     Dim Ct As Shape, mystr As String
  3.       
  4.     For Each Ct In Me.Shapes
  5.         If Ct.Type = msoFormControl Then
  6.             If Ct.FormControlType = xlCheckBox Then
  7.                 If Ct.ControlFormat.Value = 1 Then mystr = IIf(mystr = "", Ct.TextFrame.Characters.Text, mystr & "," & Ct.TextFrame.Characters.Text)
  8.             End If
  9.         End If
  10.     Next

  12.     Sheet1.[B12] = mystr
  13. End Sub
複製代碼
再次謝謝您等的指導！

TOP

c_c_lai

帖子
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

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 2012-11-22 15:38 | 只看該作者
回復 6# maikoyuki
  1. Sub 清除控制項的值()
  2. Dim Ct As OLEObject, k
  3. For Each Ct In Me.OLEObjects
  4.    k = Ct.Object.Value
  5.    Ct.Object.Value = IIf(TypeName(k) = "Boolean", False, IIf(TypeName(k) = "String", "", Null))
  6. Next
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
12
返回列表 上一主題