¸ó¶V¤u§@ªí¥[Á`

myleoyes

¦U¦ì«e½ú§A­Ì¦n!!   
         O1=SUM(³æµ§:³æµ§02!I8)
         °ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 7# ML089
«e½ú!¤£¦n·N«ä...¤p§Ì·Q¨ìÅo!
        Àɮ׬O¥Î¤â°Ê¤è¦¡¥ý³]©w¦n¤u§@ªí©Ò¥H¤~·|Åý§A¨º§¹¬üªºµ{¦¡
        ¦Y´eÁ«...«¢«¢!¯u¤ï¶Õ!!¤p§Ì²¨©¿¤u§@ªí¬O¥Îµ{¦¡¤@­Ó¤@­Ó¼g¤J
       ´N¨S¦³¦¹±¡ªp,¤ï¶Õ!!¤ï¶Õ!!

myleoyes

¦^´_ 7# ML089
«e½ú!ÁÂÁ«ü¾É!!
        «e½úµ{¦¡Â²¼ä¬Ý¦üµL»~,¦ý¬°¦ó°õ¦æ«o¿ù»~©O?
       ¦pªþµe­±©Ò¥Ü!¦AªþÀÉ®×Åý§AÁ@Á@,¤£§[¦b½ç±ÐÁÂÁ¦A¤T!!

tpwhdavid

¨Ó¬Ý¬Ý  ¦h¾Ç²ßÂI  ÁÂÁÂ

tpwhdavid

¨Ó¬Ý¬Ý  ¦h¾Ç²ßÂI  ÁÂÁÂ

tpwhdavid

¨Ó¬Ý¬Ý  ¦h¾Ç²ßÂI  ÁÂÁÂ

ML089

¦^´_ 5# myleoyes

1. Sub ex()
   
2. [O2] = "=SUM('³æµ§:" & Sheets(Worksheets.Count).Name & "'!I8)"
   
3. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 4# ML089
«e½ú!ÁÂÁ«ü¾É¤p§Ì©ú¥Õµ{¦¡¦p¤U
Sub ¥[Á`()
    [O3] = "=COUNTA(INDIRECT(""O5:O100""))"
    [O3].NumberFormatLocal = """½s""""¸¹"""
    If [O3] = 0 Then
       [o1] = "=³æµ§!I8"
    ElseIf [O3] >= 1 And [O3] < 10 Then
       [o1] = "=SUM(³æµ§" & ":" & "³æµ§" & "0" & [O3] & "!I8)"
    ElseIf [O3] >= 10 Then
       [o1] = "=SUM(³æµ§" & ":" & "³æµ§" & [O3] & "!I8)"
    End If
End Sub
ÁÂÁ¦A¤T!!

ML089

O1=SUM(³æµ§:³æµ§END!I8)

½Ðª`·N! ·s¼W¤u§@ªí³£»Ý­n¦b ³æ»ù»P³æ»ùEND¤§¶¡
¨Ò¦p:  ³æ»ù/³æ»ù01/³æ»ù02/..../³æ»ù50/³æ»ùEND

myleoyes

¦^´_ 2# a8350070
«e½ú!¥»·Q¬O§_¥i¥H¾Ç¨ì§ó¦nªº¤½¦¡
        ¬Ý¨Ó¦p§A©Ò»¡Â²³æªº¤è¦¡´N¬O¥Îµ{¦¡Åo!
       ÁÂÁ¦A¤T!!