ÂI¿ï¥[Á`

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         Sub ¼úª÷()
             [E2] = Selection
             [G1] = "=SUMIF(INDIRECT(""$E$3:$E$300""),$E$2,INDIRECT(""$G$3:$G$300""))"
             [G1] = [G1]'.Value
         End Sub
         °ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 3# Hsieh
stillfish00 «e½ú!µ{¦¡OK!ÁÂÁ¦A¤T!!
°¸¹³«e½ú!µ{¦¡¤]OK!¦ý©¿²¤¤p§Ìªº­n¨D¡Ð½Ð°Ý¦b¤£¼W¥[E2¸É§U®æ¤§¤UÁÂÁ¦A¤T!!
³o¼Ë¤]¥i¥H
Sub ¼úª÷()
     [G1] = Evaluate("=SUMIF($E$3:$E$300," & Selection.Address & ",$G$3:$G$300)")
End Sub
¦A³Â·Ð¨â¦ì«e½ú³o­Ó°ÝÃD¦p¤U
  µ²ªGL4=K4-K3+5689-12356
Sub Ex()
        [K65536].End(xlUp)(2, 1) = Sheet4.[I1]
        [L3].Copy [L65536].End(xlUp)(2, 1)
        [L65536].End(xlUp)(1, 1) = "=" & [L65536].End(xlUp)(1, 1) & "+" & Sheet2.[AZ19] & "-" & Sheet2.[AZ20]
        Sheet2.[AZ19:AZ20] = ""
        Columns("K:L").EntireColumn.AutoFit
End Sub

myleoyes

¦^´_ 5# stillfish00
«e½ú!¤£¦n·N«ä¤p§Ì§â§A§Ë½k¶î??
     À³¸Ó¬O³o»ò·Q¹³±NL3=K3-K2+Sheet2!$AZ$19-Sheet2!$AZ$20
     «ö¶sµ{¦¡½Æ»sL3¦ÜL4©Ò¥H
     L4=K4-K3+Sheet2!$AZ$19-Sheet2!$AZ$20
     ¦ý¬O»Ý¨D¬O«O¯dK4-K3ªº¤½¦¡
     ±N+Sheet2!$AZ$19-Sheet2!$AZ$20Åܦ¨­È
     ²{¦bSheet2!$AZ$19=5689
     Sheet2!$AZ$20=12356
     ©Ò¥HL4=K4-K3+5689-12356
     ¦]¬°Sheet2!$AZ$19»PSheet2!$AZ$20¬O°ÊºA­È
     ¦]¦¹$AZ$19»P$AZ$20¤£¥H¤½¦¡«¬ºA§e²{¥²¶·¬°­È
     ¦p¦¹¸ÑÄÀ«e½ú!©ú¥Õ§_?½Ð¦A½ç±Ð¨¯­WÅo!ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 7# stillfish00
«e½ú!«z!!¯u¥Ì®¦´£¨Ñ¦p¦¹§¹¾ãµ{¦¡...¨¯­WÅoÁÂÁ¦A¤T!!