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

[µo°Ý] ¸ê®Æ¤ÀÃþ

[µo°Ý] ¸ê®Æ¤ÀÃþ

ÀɮפºSheet1¸ê®Æ®æ¦¡,­n¤ÀÃþ¬°Sheet2¤ºªºÅã¥Ü¤è¦¡,¨Ã­pºâ¥X³Ñ¾lªº®É¶¡
½Ð°ÝVBµ{¦¡­n¦pªG¼¶¼g,ÁÂÁÂ

¸ê®Æ¤ÀÃþ.zip (2.78 KB)

¦³¤@ÂI§Ñ¤F´£¨ì
Sheet2¤º¬OªÅ¥Õªº,¨C­Ó¶µ¥Ø¬O­n±qSheet1 Copy¶i¨Ó

TOP

¦^´_ 3# Hsieh


    ·PÁª©¤j«ü¾É
       ½Ð°Ý¦pªG¦WºÙ¤¤µL"-"¬O§_¬O¦bar = Split(C, "-")¸Ì¦h¥[¤@­Ó§P§O
       ¨º¦pªG«O¾i¤é´Á¤º¬°"---",¥B¤£±N¸ê®Æ§ì¥X,¬O§_¬O¦b¤U¦Cµ{¦¡¤º¦h¥[¤@­ÓElse§P§O¸ê®Æ
    If IsDate(.Cells(C.Row, A.Column)) Then
         Ay(3) = .Cells(C.Row, A.Column): Ay(4) = .Cells(C.Row, A.Column + 1)
         Ay(5) = Ay(4) - Date
         Else
         Ay(3) = Evaluate(Replace(.Cells(C.Row, A.Column), "~", "+")) / 2
         Ay(4) = .Cells(C.Row, A.Column + 1): Ay(5) = Ay(3) - Ay(4)
      End If
¸ê®Æ¤ÀÃþ.zip (5.52 KB)

TOP

¦^´_ 5# Hsieh


    ·PÁª©¤jªº«ü¾É,´ú¸Õ«áµo²{³¡¥÷¸ê®Æ·|³y¦¨µ{¦¡§P§O²§±`,°µ³¡¥÷ªº­×§ï«á,°ÝÃD¤w±o¸Ñ¨M,ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD