Board logo

標題: [發問] (已完成.萬分感謝大大們) 如何讓在UserForm2.OptionButton6 = True下IF判斷式 [打印本頁]
作者: av8d    時間: 2012-6-6 18:55     標題: (已完成.萬分感謝大大們) 如何讓在UserForm2.OptionButton6 = True下IF判斷式

本帖最後由 av8d 於 2012-6-8 15:13 編輯

UserForm2.OptionButton6 = True

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

UserForm2.OptionButton6 = True

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

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

我該如何下IF判斷式?

---------------------------------------------------------------
題目於6/6晚上11點30分更改~謝謝2F大大的幫忙!
作者: kevin681024    時間: 2012-6-6 19:08

請將欲執行的Code
置放於
Private Sub UserForm_Initialize()
    你的程式碼
End Sub
裡面
作者: kimbal    時間: 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
'...
作者: av8d    時間: 2012-6-8 11:41

本帖最後由 av8d 於 2012-6-8 11:43 編輯

回復 3# kimbal

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

大大您好~因為我是使用自訂表單~
是否也是相同作法?
作者: kimbal    時間: 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

[attach]11317[/attach]
作者: av8d    時間: 2012-6-8 13:46

本帖最後由 av8d 於 2012-6-8 13:56 編輯

回復 6# kimbal


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

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)