[發問]Excel中的checkbox控制項勾選問題
- 帖子
- 11
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2013-1-10
- 最後登錄
- 2013-1-24
|
[發問]Excel中的checkbox控制項勾選問題
Excel中的"控制工具箱"物件checkbox控制項，當打勾時Range("B4")會變粗體字,
當取消勾選時Range("B4")會取消粗體字.vba要如何編寫?
如下圖說明Range(i4)打勾,Range(J4)就會變粗體
另外如何讓工作表裡的所有checkbox全部勾選及全部取消勾選? |
|
|
|
|
|
|
|
- 帖子
- 14
- 主題
- 5
- 精華
- 0
- 積分
- 21
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- SP3
- 閱讀權限
- 10
- 註冊時間
- 2011-3-9
- 最後登錄
- 2021-10-26
|
10#
發表於 2014-4-22 09:23
| 只看該作者
我也有類似的需求，
不知如何將所有的checkbox 指定相同的巨集？
沒用過物件類別，
但目前還是小學生，無法下載檔案
可否勞煩版主將範例檔寄給我呢？
謝謝 |
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2013-1-10
- 最後登錄
- 2013-1-24
|
9#
發表於 2013-1-19 10:50
| 只看該作者
謝謝Hsieh的指導 |
|
|
|
|
|
|
|
- 帖子
- 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嗎?要怎麼寫? |
|
|
|
|
|
|
|
- 帖子
- 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) 是什麼原因呢? |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2013-1-17 15:39
| 只看該作者
回復 3# qqchange
Public MyGroup() As New Class1
Public 陳述式 在模組層次中用來宣告公用變數，並配置儲存空間。
MyGroup() : 動態陣列變數
As New Class1 指定為 新的Class1 物件
UBound, WithEvents 3.moudle1的語法不是很懂? 多看看VBA的說明就會懂了
|
|
|
|
|
|
|
|
- 帖子
- 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 -> 是什麼意思? |
|
|
|
|
|
|
|
