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

av8d

UserForm2.OptionButton6 = True

我想寫一個判斷式
OptionButton6=2012年 (今年)
OptionButton7=2013年 (明年)

UserForm2.OptionButton6 = True

這段的意思是代表選擇今年的

可是到了明年~他就無法自動變成明年
必須手動調整成
UserForm2.OptionButton7 = True

我該如何下IF判斷式?

---------------------------------------------------------------
題目於6/6晚上11點30分更改~謝謝2F大大的幫忙!

kevin681024

請將欲執行的Code
置放於
Private Sub UserForm_Initialize()
    你的程式碼
End Sub
裡面

kimbal

如果你的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
'...

av8d

回復 3# kimbal

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

大大您好~因為我是使用自訂表單~
是否也是相同作法?

kimbal

回復  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)

下載次數: 3

2012-6-8 13:32

av8d

回復 6# kimbal


    完成~可以用了~沒問題了~

我順便去看看Trim和Str的用法~非常感謝您的大力幫忙!