ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] (¤w§¹¦¨.¸U¤À·PÁ¤j¤j­Ì) ¦p¦óÅý¦bUserForm2.OptionButton6 = True¤UIF§PÂ_¦¡

[µo°Ý] (¤w§¹¦¨.¸U¤À·PÁ¤j¤j­Ì) ¦p¦óÅý¦bUserForm2.OptionButton6 = True¤UIF§PÂ_¦¡

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-8 15:13 ½s¿è

UserForm2.OptionButton6 = True

§Ú·Q¼g¤@­Ó§PÂ_¦¡
OptionButton6=2012¦~ (¤µ¦~)
OptionButton7=2013¦~ (©ú¦~)

UserForm2.OptionButton6 = True

³o¬qªº·N«ä¬O¥Nªí¿ï¾Ü¤µ¦~ªº

¥i¬O¨ì¤F©ú¦~~¥L´NµLªk¦Û°ÊÅܦ¨©ú¦~
¥²¶·¤â°Ê½Õ¾ã¦¨
UserForm2.OptionButton7 = True

§Ú¸Ó¦p¦ó¤UIF§PÂ_¦¡?

---------------------------------------------------------------
ÃD¥Ø©ó6/6±ß¤W11ÂI30¤À§ó§ï~ÁÂÁÂ2F¤j¤jªºÀ°¦£!

½Ð±N±ý°õ¦æªºCode
¸m©ñ©ó
Private Sub UserForm_Initialize()
    §Aªºµ{¦¡½X
End Sub
¸Ì­±
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦pªG§AªºOPTIONBUTTON¬O©ñ¦b¦P¤@­Ó²Õ, ¥u­n³]¤@­Ó¬°TRUE,¨ä¥L¦Û°Ê¦¨FALSE
Private Sub UserForm_Initialize()
UserForm2.controls("OptionButton"& str(YEAR(NOW)-2006))).value = TRUE
End Sub

¤]°²³]OPTIONBUTTON6=2012¦~
'2012-2006 =6
'2013-2006 =7
'...
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-8 11:43 ½s¿è

¦^´_ 3# kimbal

§Ú¬O©ñ¦b¦P¸s²Õ!
¥i¬O°õ¦æ«á¥X²{
    "§ä¤£¨ì«ü©wª«¥ó"

¤j¤j±z¦n~¦]¬°§Ú¬O¨Ï¥Î¦Û­qªí³æ~
¬O§_¤]¬O¬Û¦P§@ªk?

TOP

¦^´_  kimbal

§Ú¬O©ñ¦b¦P¸s²Õ!
¥i¬O°õ¦æ«á¥X²{
    "§ä¤£¨ì«ü©wª«¥ó"

¤j¤j±z¦n~¦]¬°§Ú¬O¨Ï¥Î¦Û­qªí ...
av8d µoªí©ó 2012-6-8 11:41


©ÎªÌ¸Õ¸Õ³o¥y?
Private Sub UserForm_Initialize()
    UserForm1.Controls("OptionButton" & Trim(Str(Year(Now) - 2006))).Value = True
End Sub

twbts20120608controls.zip (9.93 KB)
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-8 13:56 ½s¿è

¦^´_ 6# kimbal


    §¹¦¨~¥i¥H¥Î¤F~¨S°ÝÃD¤F~

§Ú¶¶«K¥h¬Ý¬ÝTrim©MStrªº¥Îªk~«D±`·PÁ±zªº¤j¤OÀ°¦£!

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD