返回列表 上一主題 發帖

如何得知按鈕(表單控制項)的Object Name及控制

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-3-22 14:05 | 顯示全部帖子
回復 1# c_c_lai

play.gif
一般模組
  1. Sub auto_open()
  2. Dim Sp As Shape
  3. For Each Sp In 工作表2.Shapes
  4. Sp.OnAction = "OC"
  5.    If Sp.TextFrame.Characters.Text = "開啟" Then
  6.       Sp.Visible = msoFalse
  7.       Else
  8.       Sp.Visible = msoTrue
  9.     End If
  10. Next
  11. End Sub
  12. Sub OC()
  13. For Each Sp In 工作表2.Shapes
  14.       Sp.Visible = msoTrue
  15. Next
  16. 工作表2.Shapes(Application.Caller).Visible = False
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-3-22 22:25 | 顯示全部帖子
回復 4# c_c_lai

學海無涯_不恥下問

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-3-23 08:47 | 顯示全部帖子
回復 6# c_c_lai
請參考VBA的Shape物件的屬性說明
play.gif
學海無涯_不恥下問

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題