返回列表 上一主題 發帖

[發問] (已完成.萬分感謝大大們) 如何讓在UserForm2.OptionButton6 = True下IF判斷式

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
1# 跳轉到 »
發表於 2012-6-7 20:33 | 顯示全部帖子
如果你的OPTIONBUTTON是放在同一個組, 只要設一個為TRUE,其他自動成FALSE
Private Sub UserForm_Initialize()
UserForm2.controls("OptionButton"& str(YEAR(NOW)-2006))).value = TRUE
End Sub

也假設OPTIONBUTTON6=2012年
'2012-2006 =6
'2013-2006 =7
'...
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-6-8 13:33 | 顯示全部帖子
回復  kimbal

我是放在同群組!
可是執行後出現
    "找不到指定物件"

大大您好~因為我是使用自訂表 ...
av8d 發表於 2012-6-8 11:41


或者試試這句?
Private Sub UserForm_Initialize()
    UserForm1.Controls("OptionButton" & Trim(Str(Year(Now) - 2006))).Value = True
End Sub

twbts20120608controls.zip (9.93 KB)
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題