返回列表下一主題上一主題發帖

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

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-7-3 15:54 | 只看該作者

回復 1# av8d

Option Explicit
Private Sub Workbook_Open()
'例如我製作兩個OptionButton，分別命名為A1和Z1
'**--- 兩個OptionButton 是同一群組
Dim e As Shape, Rng As Range
With Sheets("Sheet1")
For Each e In .Shapes
If e.Name = "A1" Or e.Name = "Z1" Then
If e.Type = 12 Then '控制工具箱工具列的 OptionButton
If .OLEObjects(1).Object.Value Then Set Rng = .Range(e.Name)
ElseIf .Shapes(1).Type = 8 Then '表單工具列的 Option Button
If e.OLEFormat.Object.Value Then Set Rng = .Range(e.Name)
End If
End If
Next
End With
End Sub

複製代碼

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

3^#

發表於 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

oobird