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

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

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

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

Leo35.rar (3.89 KB)

³Ì²³æªº¤è¦¡´N¬O±N·s¼Wªº¤u§@ªí³]©w¦b  ³æµ§02  ¤u§@ªí¤§«e

©ÎªÌ³]¤@­Óµêªº¤u§@ªí¦b³Ì«á,¨Ò¦p¦W¬° ³æµ§³Ì«á ªº¤u§@ªí
¤½¦¡§ï¬° O1=SUM(³æµ§:³æµ§³Ì«á!I8)
¦Ó¨C¦¸·s¼Wªº¤u§@ªí³]©w¦b ³æµ§³Ì«á  ¤u§@ªí¤§«e

©ÎªÌ¦bµ{¦¡·s¼W¤u§@ªí®É¦Û°Ê¸Ó·s¤u§@ªí¦WºÙ¾É¤JO1ªº¤½¦¡¤¤
My Blog
http://blog.xuite.net/a8350070

TOP

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

TOP

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

½Ðª`·N! ·s¼W¤u§@ªí³£»Ý­n¦b ³æ»ù»P³æ»ùEND¤§¶¡
¨Ò¦p:  ³æ»ù/³æ»ù01/³æ»ù02/..../³æ»ù50/³æ»ùEND
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 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!!

TOP

¦^´_ 5# myleoyes
  1. Sub ex()
  2. [O2] = "=SUM('³æµ§:" & Sheets(Worksheets.Count).Name & "'!I8)"
  3. End Sub
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

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

TOP

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

TOP

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

TOP

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

Leo35.gif (275.16 KB)

Leo35.gif

Leo35-1.rar (12.48 KB)

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD