- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 4# av8d
§Úèè´ú¸Õ¤F¤@¤U¨Ã¤£·|µo¥Í§A©Ò»¡ªº°ÝÃD©O?
§Ú¬O¥ý·s¼W¤@Ó UserForm ¦b©ó¨ä¤W·s¼W¤@Ó TextBox1 »P ¥\¯à«ö¶s(cbOk)
¦A³z¹L Sheet1 ªº SelectionChange IJµo¨Æ¥ó¨Ó°õ¦æ¿é¤J§@·~.- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- UserForm1.Show
- End Sub
½Æ»s¥N½X- Private Sub cbOk_Click()
- Dim B, C, D
- B = (Year(TextBox1))
- C = (Month(TextBox1))
- D = (Day(TextBox1))
-
- MsgBox ("§A¿é¤Jªº¤é´Á¬O : " & B & " ¦~ " & C & " ¤ë " & D & " ¤é")
- UserForm1.Hide
- End Sub
½Æ»s¥N½X ¦Ó§Aªºµ{¦¡¤§©Ò¥H·|µo¥Í¿ù»~§Ú²q´ú¦³¨âÓ¥i¯à:
1. ¦~¡B¤ë¨âªÌ»P ¤é ªºÅܼƨä«Å§i®æ¦¡¤£¦P©Î¬O¤£¦b¦P¤@°Ï°ì.
2. ¤Þ¥Î¤Wz¤TªÌªºµ{¦¡¤£¦b¦P¤@°Ï°ì. |
|