返回列表 上一主題 發帖

[發問] 指定儲存格內容變更時執行巨集之方式請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-6-27 11:09 | 只看該作者

[發問] 指定儲存格內容變更時執行巨集之方式請教

DEAR ALL  大大
1.指定儲存格內容變更時執行巨集之方式請教
2.當 SHEET3.RANGE("F9")儲存格內容變更時執行巨集"列隱藏"
2.1 置於  SHEET3之Worksheet_SelectionChange會一直執行.
    2.1.1 如何達成 當 SHEET3.RANGE("F9")儲存格內容變更時方執行巨集"列隱藏"  
3.煩不吝賜教   THANKS*10000
圖一
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.Run "列隱藏"
End Sub
收藏 分享
羅

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2017-6-29 09:23 | 只看該作者
回復 1# rouber590324

sheet3模組
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3.    If Target.Address = "$F$9" Then 隱藏列
  4. Application.EnableEvents = True
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2017-6-30 13:36 | 只看該作者
DEAR  Hsieh  大大
完全符合需求  THANKS*10000
羅

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題