[發問]Excel中的checkbox控制項勾選問題

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

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

2^#

發表於 2013-1-16 23:53 | 只看該作者

回復 1# qqchange

使用物件類別讓所有的CheckBox有同樣的效果

物件類別.rar (12.76 KB)

學海無涯_不恥下問

小學生 Rank: 1

帖子: 11
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2013-1-10
最後登錄: 2013-1-24

論壇贊助勳章

3^#

發表於 2013-1-17 14:14 | 只看該作者

我是學VBA新手,關於回覆內容想請教幾個問題
1.CheckBox8_Click()的內容是指全選的語法嗎?UBound(MyGroup)是什麼意思?
2.class1的內容是指儲存格式變粗體嗎?儲存格要做其他變化是在這裡設定嗎?
3.moudle1的語法不是很懂?
If cb.progID = "Forms.CheckBox.1" And cb.Object.Caption = "" Then
         ReDim Preserve MyGroup(s)
         Set MyGroup(s).xlBox = cb.Object
         s = s + 1
  End If
4.Public WithEvents xlBox As MSForms.CheckBox -> 是什麼意思?

GBKEE

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

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

4^#

發表於 2013-1-17 15:39 | 只看該作者

回復 3# qqchange

Public MyGroup() As New Class1
Public 陳述式在模組層次中用來宣告公用變數，並配置儲存空間。
MyGroup() : 動態陣列變數
As New Class1  指定為   新的Class1 物件

UBound, WithEvents  3.moudle1的語法不是很懂? 多看看VBA的說明就會懂了

小學生 Rank: 1

帖子: 11
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2013-1-10
最後登錄: 2013-1-24

論壇贊助勳章

5^#

發表於 2013-1-17 17:23 | 只看該作者

非常謝謝兩位版主的指教

全選時出現"陣列索引超出範圍" For i = 0 To UBound(MyGroup) 是什麼原因呢?

Hsieh

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

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

6^#

發表於 2013-1-17 17:43 | 只看該作者

回復 5# qqchange
我測試並無此問題
你是否有編輯過VBA，然後就直接勾選全選
這樣MyGroup並未建立，必須先執行auto_open程序後才可以勾選

學海無涯_不恥下問

小學生 Rank: 1

帖子: 11
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2013-1-10
最後登錄: 2013-1-24

論壇贊助勳章

7^#

發表於 2013-1-18 11:48 | 只看該作者

本帖最後由 qqchange 於 2013-1-18 11:50 編輯

關閉檔案重新開啟就又可以了,是在編寫其他module有影響嗎:o
還有一個問題.選定加粗可以用Range嗎?要怎麼寫?

Hsieh

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

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

8^#

發表於 2013-1-18 14:04 | 只看該作者

回復 7# qqchange
用Range來寫，這只是定位的問題
你試著去了解程式碼，就會知道，要變粗體的定位方式
是利用核取方塊的相對右下方儲存格做定位
若是你要特定其他範圍，就必須整理出對應的規則

學海無涯_不恥下問