返回列表 上一主題 發帖

[發問] CheckBox隱藏與出現設定

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-10-17 15:55 | 只看該作者

[發問] CheckBox隱藏與出現設定

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

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2017-10-17 17:10 | 只看該作者
回復 1# liebe
  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
複製代碼
學海無涯_不恥下問

TOP

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
3#
發表於 2017-10-18 13:52 | 只看該作者
回復 2# Hsieh
Hsieh超級版主大大真很謝謝你!!
但我對於程式碼仍有些疑惑，關於第四行
If ob.TopLeftCell.Row = a.Row Then ob.Visible = (a = 2)
這裡的""ob.TopLeftCell.Row""是什麼意思呢?
感謝你!

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2017-10-18 14:13 | 只看該作者
回復 3# liebe

直接翻譯就是
物件 左上角的儲存格的列號
學海無涯_不恥下問

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題