返回列表 上一主題 發帖

[發問] 如何快速變換Workbook_Open的兩種功能需求?

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-3 08:52 | 顯示全部帖子

[發問] 如何快速變換Workbook_Open的兩種功能需求?

本帖最後由 av8d 於 2012-7-3 09:11 編輯

Private Sub Workbook_Open()
    Range ("A1")
End Sub

Private Sub Workbook_Open()
    Range ("Z1")
End Sub

以上為範例~是否有什麼方法可以快速變換Workbook_Open內程式碼的內容?
例如我製作兩個OptionButton，分別命名為A1和Z1
當點到A1的時候Workbook_Open就轉換成A1
當點到Z1的時候Workbook_Open就轉換成Z1
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2012-7-3 22:07 | 顯示全部帖子
本帖最後由 av8d 於 2012-7-3 22:09 編輯

回復 2# GBKEE

以下都是ActiveX控制項:

如果改成
當選取OptionButton1做
Private Sub CommandButton10_Click()
Range("A1")
End Sub
當選取OptionButton2做
Private Sub CommandButton10_Click()
Range("Z1")
End Sub

也適用大大提供的方法套用嗎?
當選取OptionButton1關閉檔案再開啟
他會移動到A1
當選取OptionButton2關閉檔案再開啟
他會移動到Z1

辛苦大大了~謝謝!

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題