返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
2#
發表於 2012-6-6 19:08 | 只看該作者
請將欲執行的Code
置放於
Private Sub UserForm_Initialize()
    你的程式碼
End Sub
裡面
80 字節以內
不支持自定義 Discuz! 代碼

TOP

kimbal

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

論壇貢獻勳章
3#
發表於 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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
4#
發表於 2012-6-8 11:41 | 只看該作者
本帖最後由 av8d 於 2012-6-8 11:43 編輯

回復 3# kimbal

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

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

TOP

kimbal

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

論壇貢獻勳章
5#
發表於 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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
6#
發表於 2012-6-8 13:46 | 只看該作者
本帖最後由 av8d 於 2012-6-8 13:56 編輯

回復 6# kimbal


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

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

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題