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

[µo°Ý] ½Ð¨t²Î¿é¥X¤é´Áªº¤é~«o¥X²{¸ê®Æ«¬ºA¿ù»~?

[µo°Ý] ½Ð¨t²Î¿é¥X¤é´Áªº¤é~«o¥X²{¸ê®Æ«¬ºA¿ù»~?

¥»©«³Ì«á¥Ñ av8d ©ó 2011-9-28 09:28 ½s¿è

D = Day(TextBox1)
MsgBox D

¥X²{¸ê®Æ«¬ºA¿ù»~
¦~¤ë³£¨S°ÝÃD~¤é¤£ª¾¹D¬°¤°»ò«o¥X²{°ÝÃD?

ªþ¤W­ìÀÉ®× icash.rar (25.35 KB)

¦^´_ 1# av8d
­n¶Ç¤Wµ{¦¡½X¬Ý¬Ý

TOP

TextBox¬°¤å¦r«¬ºA
§AµLªkDay(TextBox1)
³\¦hªB¤ÍÁ`¬O¤£Ä@»¡²M·¡°ÝÃD
TextBox1¬O¦b¤u§@ªí¤WªºOLEObjectsÁÙ¬O¦buserform¤¤
­n¾Þ§@¥¦ªº¥N½X¬O¦³¤À§Oªº¡C

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2011-9-25 00:27 ½s¿è

¦^´_ 3# oobird


    O¤jÁÂÁ§A~¥L¬O¦buserform¤¤ªº~±z¯u²Ó¤ß~§Ú­ì¥»ÁÙ¦b·Q¨S­ìÀÉ«ç»òPO~³Q±z¤@²´´N¬Ý¥X¨Ó¤F!

¥i¬Oªü  §Ú¥Î  Year(TextBox1) ©M  Month(TextBox1)  ³£¥i¥H¨Ï¥Î~¤£ª¾¹D¬°¤°»ò¥u¦³Day©O?

TOP

¦^´_ 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§@·~.
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.   UserForm1.Show
  3. End Sub
½Æ»s¥N½X
  1. Private Sub cbOk_Click()
  2.   Dim B, C, D
  3.   B = (Year(TextBox1))
  4.   C = (Month(TextBox1))
  5.   D = (Day(TextBox1))
  6.   
  7.   MsgBox ("§A¿é¤Jªº¤é´Á¬O : " & B & " ¦~ " & C & " ¤ë " & D & " ¤é")
  8.   UserForm1.Hide
  9. End Sub
½Æ»s¥N½X
¦Ó§Aªºµ{¦¡¤§©Ò¥H·|µo¥Í¿ù»~§Ú²q´ú¦³¨â­Ó¥i¯à:
1.  ¦~¡B¤ë¨âªÌ»P ¤é ªºÅܼƨä«Å§i®æ¦¡¤£¦P©Î¬O¤£¦b¦P¤@°Ï°ì.
2.  ¤Þ¥Î¤W­z¤TªÌªºµ{¦¡¤£¦b¦P¤@°Ï°ì.

TOP

D = Day(TextBox1)
­ì¨Ó¬O
D = (Day(TextBox1))
«e«á¨S+¬A¸¹ªºÃö«Y~ÁÂÁ±z!

TOP

°ÝÃDªÖ©w¤£¬O¥X¦b¬A¸¹
»yªk¤WD=(Day(TextBox1))
³o³Ì¥~³ò¬A¸¹¬O¦h¾lªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# av8d
¥¼¦ó¤£ªþ¤W µ{¦¡½X Åý¤j®a¦bºN¶H.

TOP

¦^´_ 8# GBKEE


¥L¦n¹³¤w¸g¸Ñ¨M°ÝÃD¤F...

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2011-9-28 09:17 ½s¿è

¦^´_ 5# luhpro


    ¹ï¤F§Ú¸Ó¦p¦ó§â²Õ¦X¥X¨Óªº¦rÅܦ¨¤é´Á®æ¦¡
2011/9/27
Y &"/" & M & "/" & D
¤é´Á®æ¦¡

ªþ¤W­ìÀÉ
icash.rar (25.35 KB)

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD