標題: [發問] CheckBox隱藏與出現設定 [打印本頁]

---

作者: liebe    時間: 2017-10-17 15:55     標題: CheckBox隱藏與出現設定

各位大大們好!
請教一下大家關於CheckBox的一些問題
目前想撰寫一個當表格A1數值=2時，就會出現CheckBox，其他時候會隱藏，就這樣撰寫至A10
請問這功能是否能寫出來呢?需要用到何種函數或功能?又或者需要調整什麼格式呢?
麻煩大大們稍微指導我一下!感謝!

---

作者: Hsieh    時間: 2017-10-17 17:10

回復 1# liebe
[attach]27812[/attach]

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. For Each a In [A1:A10]
   
3.   For Each ob In Me.OLEObjects
   
4.     If ob.TopLeftCell.Row = a.Row Then ob.Visible = (a = 2)
   
5.   Next
   
6. Next
   
7. End Sub

複製代碼

---

作者: liebe    時間: 2017-10-18 13:52

回復 2# Hsieh
Hsieh超級版主大大真很謝謝你!!
但我對於程式碼仍有些疑惑，關於第四行
If ob.TopLeftCell.Row = a.Row Then ob.Visible = (a = 2)
這裡的""ob.TopLeftCell.Row""是什麼意思呢?
感謝你!

---

作者: Hsieh    時間: 2017-10-18 14:13

回復 3# liebe

直接翻譯就是
物件 左上角的儲存格的列號

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)