VBA 如何控制不同分頁的物件

#vba

neil524 2024-07-11 16:09:56 ‧ 768 瀏覽

分享至

各位IT大大你好:

在這邊我簡單說明一下

我在sheet1有 OptionButton1

我想在sheet2 做一個按鈕，如果點擊以後，OptionButton1.Value = True

但我試過好像不能直接用Worksheets(sheet1).OptionButton1.Value = True 來呼叫

請問有方法做到嗎?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2024-07-11 22:15:22

最佳解答

替你問Claude AI

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    Dim opt As OptionButton
    Set opt = ws.OptionButtons("OptionButton1")
    
    opt.Value = True
End Sub

回應 2
分享
檢舉

neil524 iT邦新手 5 級 ‧ 2024-07-12 09:08:04 檢舉

一樣會出現應用程式或物件定義錯誤

neil524 iT邦新手 5 級 ‧ 2024-07-12 09:16:16 檢舉

但我問ChatGPT得出答案了

Sub ControlOptionButton()
Dim ws As Worksheet
Dim optBtn As Object

' 引用Sheet2
Set ws = ThisWorkbook.Sheets("Sheet2")

' 检查Sheet2上的OptionButton1是否存在
On Error Resume Next
Set optBtn = ws.OLEObjects("OptionButton1").Object
On Error GoTo 0

If Not optBtn Is Nothing Then
    ' 控制OptionButton1的操作
    optBtn.Value = True   ' 设置OptionButton1为选中状态
    ' 或者进行其他操作，比如获取其状态：optBtn.Value
Else
        MsgBox "Sheet2上找不到名称为OptionButton1的控件。"
End If

End Sub

登入發表回應