標題:
[發問]
如何快速變換Workbook_Open的兩種功能需求?
[打印本頁]
作者:
av8d
時間:
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
時間:
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
複製代碼
作者:
av8d
時間:
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
辛苦大大了~謝謝!
作者:
oobird
時間:
2012-7-3 23:13
問題稍明朗些了!
[attach]11567[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)