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

[µo°Ý] 2003»P2010«¬ºA¤£²Å

[µo°Ý] 2003»P2010«¬ºA¤£²Å

¦U¦ì¥ý¶i
¦p¤Uvba¤ù¬q¡A2003¹B¦æ¥i¥H¡A¦ý2010°õ¦æµo¥Í«¬ºA¤£²Å¡A·q½Ð«ü±Ð¡C

Dim  v As Range

For Each v In .Range(.[Q6], .[Q65536].End(xlUp))
      If Len(Trim(v.Text)) < 6 Then
           .Cells(v.Row, "AN") = IIf(Left(Trim(v.Text), 2) < 6, "¢æ", "¢ç")
        Else
            K = CDate([v]) - Int(CDate([v]))
           .Cells(v.Row, "AN") = IIf(K < 0.25, "¢æ", "¢ç")
      End If
   Next v
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦U¦ì¥ý¶i
¦p¤Uvba¤ù¬q¡A2003¹B¦æ¥i¥H¡A¦ý2010°õ¦æµo¥Í«¬ºA¤£²Å¡A·q½Ð«ü±Ð¡C

Dim  v As Range

For E ...
b9208 µoªí©ó 2013-1-1 09:50

¦¹¬q»yªk¦b Office 2010 ¤W°õ¦æ¬O OK ªº¡A
½Ð§A¦AÀˬd¤@¦¸¡A©ÎªÌ¬O§A§â°õ¦æ¿ù»~°T®§¦^³ø¡I

TOP

À³¸Ó¤£¬O³o­Ó°ÝÃD
§Aªºrange«e­±¦³­Ó''.''¡A´N¥²¶·¦³"with"!

TOP

¦^´_ 1# b9208


    ³oÀ³¸Ó¬O¥u¦³¤ù¬q¥N½X¡A¦pªG¬OWith±Ô­z¿ù»~¡A·|¥X²{¤£¥¿½Tªº¤Þ¥Î¿ù»~¡A¦Ó«D«¬ºA¤£²Å
¥H¦¹¬q¥N½X¤º·|¥X²{«¬ºA¤£²Å¿ù»~¡A¤ñ¸û¥i¯àªº¬OCDate¨ç¼Æ¡A­Y¨ç¼Æ¤ºªº¤Þ¼ÆµLªkÂন¤é´Á´N·|²£¥Í¦¹¿ù»~
½Ð¤W¶ÇÀɮסA¤~¯à±oª¾¥¿½T¿ù»~ÂI
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ¦U¦ì¥ý¶i«ü¾É
¦]¸ê®Æ¦³¤T¸U¦hµ§¡A¦p¦PHsiehª©¥D¨£¸Ñ CDate¨ç¼Æ¡A
°ÝÃD¥X¦bGÄ椤¦³¤@µ§¸ê®Æ¦³¤é´Á¨S®É¶¡¥B¦³¡ª:¡ª¤§®É¶¡ªí¥Ü²Å¸¹¡A
­×¥¿«á¤w¸g¥i¥H°õ¦æ¤F¡C
ÁÂÁ¦U¦ì¥ý¶i
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD