返回列表 上一主題 發帖

[發問] 有關選項按鈕

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-11 14:16 | 只看該作者

[發問] 有關選項按鈕

各位大大,小弟有一個檔案是有很多的"選項按鈕"每次工作之後,我都要把它們變回"未選取"的況態,因為每一個按鈕的名字都不一樣,所以我只能每一個的寫程序,有可能一個指令就做的到嗎?
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2012-5-12 10:12 | 只看該作者
本帖最後由 oobird 於 2012-5-12 10:36 編輯

要看哪種選項按鈕
ActiveSheet.OptionButtons.Value = False

TOP

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
3#
發表於 2012-5-12 12:56 | 只看該作者
謝謝回覆,如果是Check Box 也可以用這個方法嗎?
50 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2012-5-12 16:06 | 只看該作者
謝謝回覆,如果是Check Box 也可以用這個方法嗎?
am0251 發表於 2012-5-12 12:56


不行，這個就要循環了
For Each Check In Sheet1.OLEObjects
        If Check.Name Like "Check*" Then
            Check.Object.Value = False
        End If
    Next

TOP

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
5#
發表於 2012-5-13 13:03 | 只看該作者
非常的感謝
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題