[發問]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全部勾選及全部取消勾選? |
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2013-1-10
- 最後登錄
- 2013-1-24
|
我是學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 -> 是什麼意思? |
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2013-1-10
- 最後登錄
- 2013-1-24
|
非常謝謝兩位版主的指教
全選時出現"陣列索引超出範圍" For i = 0 To UBound(MyGroup) 是什麼原因呢? |
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2013-1-10
- 最後登錄
- 2013-1-24
|
本帖最後由 qqchange 於 2013-1-18 11:50 編輯
關閉檔案重新開啟就又可以了,是在編寫其他module有影響嗎:o
還有一個問題.選定加粗可以用Range嗎?要怎麼寫? |
|
|
|
|
|
|
|
- 帖子
- 11
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2013-1-10
- 最後登錄
- 2013-1-24
|
謝謝Hsieh的指導 |
|
|
|
|
|
|
|
發表於 2013-1-16 22:32
| 
