返回列表 上一主題 發帖

[發問] 當我選擇了sheet3工作表就執行某程序???語法是?

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-3 08:46 | 只看該作者

[發問] 當我選擇了sheet3工作表就執行某程序???語法是?

當我選擇了sheet3工作表就執行某程序???語法是?
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-11-3 19:55 | 只看該作者
回復 1# t8899
你在VBAProject點工作表3，程式碼上方有下拉選項讓你選工作表觸發的事件，
到這裡查一下有哪些事件就好了，也不用特別記。
  1. Private Sub Worksheet_Activate()
  2.   MsgBox "我被選擇了"
  3. End Sub
複製代碼

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
3#
發表於 2014-11-3 21:43 | 只看該作者
回復  t8899
你在VBAProject點工作表3，程式碼上方有下拉選項讓你選工作表觸發的事件，
到這裡查一下有哪 ...
stillfish00 發表於 2014-11-3 19:55


了解!謝謝指導

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
4#
發表於 2014-11-3 22:06 | 只看該作者
本帖最後由 t8899 於 2014-11-3 22:19 編輯
回復  t8899
你在VBAProject點工作表3，程式碼上方有下拉選項讓你選工作表觸發的事件，
到這裡查一下有哪 ...
stillfish00 發表於 2014-11-3 19:55

奇怪失效??
Private Sub Worksheet_Activate()
ActiveWindow.ScrollColumn = Range("A1").Column '右下滑桿移到最左邊
End Sub

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2014-11-4 18:01 | 只看該作者
回復 4# t8899


    如果想要切換工作表  切換後自動回到 A1  不用那麼麻煩
  1. Private Sub Worksheet_Activate()
  2.      [a1].select
  3. End Sub
複製代碼
如果想回到A欄位
  1. Private Sub Worksheet_Activate()
  2.     Columns("A:A").Select
  3. End Sub
複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題