[µo°Ý] (¤w¸Ñ¨M)¯B°Ê°Ï°ìªº§@·~

freeffly

§Ú·Q­n°Ý¤@¤U¦pªþ¥[Àɨº¼Ë§Úªºsum¨º¦U³¡¥÷­n«ç»ò³]?
¦]¬°¨C¦U¤ë¾ã²z¥X¨Óªº°Ï°ì³£¤£¤@¼Ë
©Ò¥H¨S¿ìªk©T©w°Ï¶¡
­ì¥»·Q¨ì¤U­±ªº¤è¦¡
¥i¬O¤£¥i¦æ
n ÁöµM¬O¹ïªº
¥i¯à§ÚÁٯʭþ¦U³¡¥÷
½Ð¤j¤jÀ°§Ú¬Ý¤@¤U
ÁÂÁÂ


Sub Macro1()
'
' Macro1 Macro
' User ¦b 2011/3/2 ¿ý»sªº¥¨¶°
'
    Dim ½d³ò As Range, n As Integer
    Set ½d³ò = Range("A" & Range("A65536").End(xlUp).Row)
    i = ½d³ò.CurrentRegion.Rows.Count - 1
    n = i * -1
     Range("H" & Range("A65536").End(xlUp).Row + 1) = "=sum(R[-1]C:R[n]C)"   
End Sub

FAlonso

1. Sub revisedprogram()
   
2. 
   
3. Dim myrange As Range, downlimit As Range, uplimit As Range, rightlimit As Range, myregion As Range
   
4. 
   
5. Dim a, H, i
   
6. Set myrange = Range("a65536").End(xlUp)
   
7. 
   
8. Set downlimit = myrange
   
9. Set uplimit = downlimit.End(xlUp)
   
10. Set rightlimit = downlimit.End(xlToRight)
    
11. Set myregion = Range(uplimit, rightlimit)
    
12. 
    
13. H = 0
    
14. i = 0
    
15. 
    
16. For Each a In Range(uplimit, downlimit)
    
17. 'if a.offset(,5) = "??§÷®Æ­Ü" and a.offset(,6) = "?" ? => ¦Û¤v¶ñ¤J©Ò»Ýªº¿z¿ï¶µ
    
18. H = H + a.Offset(, 7).Value
    
19. i = i + a.Offset(, 8).Value
    
20. 'end if
    
21. Next
    
22. 
    
23. downlimit.Offset(1, 6) = "¤p­p"
    
24. downlimit.Offset(1, 7) = H
    
25. downlimit.Offset(1, 8) = i
    
26. downlimit.Offset(1, 9) = H / i
    
27. downlimit.Offset(1, 7).Interior.ColorIndex = 6
    
28. downlimit.Offset(1, 8).Interior.ColorIndex = 6
    
29. downlimit.Offset(1, 9).Interior.ColorIndex = 6
    
30. 
    
31. End Sub

½Æ»s¥N½X

À³¸Ó³o¼Ë§a,¦pªG¨S¦³¨Æ¥ý¿z¿ï,§âºñ¦â¦r¦ê³Ìªìªº¨º­Ó ' ®³±¼,¿é¤J©Ò»Ý´N¦æ

FAlonso

¦^´_ 19# freeffly
§â§Úªºµ{¦¡­×§ï¤@¤U.Åܦ¨

freeffly

¦^´_ 18# FAlonso


    Àɮפº§Ú¦³»¡©ú
     ½Ð¬ÝÀɮקa

FAlonso

¦^´_ 17# freeffly
§Ú²q·Q©Î³\¤u§@ªí¤¤¦³«Ü¦h°Ï¶ô,·í¤¤¤@¨Ç¤S­n¹ïO§@­pºâ,©Ò¥H¼g¦¨¤Floop
¥u¹ï³Ì¤U¼h°Ï°ì§@¤p­p,§â7/33/34¦æªºµ{¦¡§R±¼«K¦æ

freeffly

¦^´_ 16# FAlonso


    §Ú¥u­n¥[Á`³Ì«á¨Ì°Ï¶ô
      §Aªº¤è¦¡¦n¹³¬O°w¹ï"O"¶i¦æ¥[Á`
      §Ú­è¬Ý§Oªº°Ï¶ô¥[Á`¦n¹³¦³°ÝÃD
      §Aªº¤è¦¡¦n¹³¦³ÂIÃþ¦ü¥t¤@¦ì¤j¤j¦ý¬O¤S¦³¨Ç®t²§
      ©ú¤Ñ¦b§i¶D§A®t¦b­þ¸Ì

FAlonso

¦^´_ 1# freeffly
¦pªG¼Ó¥D¦³ªÅªº¸Ü,¥i§_¸Õ¸Õ§Ú³o­Ó§@«~,¦³¿ùªº¸Ü½Ð³qª¾§ÚÅý§Ú§ï¥¿

1. Sub abc()
   
2. Dim myrange As Range, downlimit As Range, uplimit As Range, rightlimit As Range, myregion As Range
   
3. Dim a, h, i
   
4. 
   
5. Set myrange = Range("a65536").End(xlUp)
   
6. 
   
7. Do
   
8. Set downlimit = myrange
   
9. Set uplimit = downlimit.End(xlUp)
   
10. Set rightlimit = downlimit.End(xlToRight)
    
11. Set myregion = Range(uplimit, rightlimit)
    
12. 
    
13. h = 0
    
14. i = 0
    
15. 
    
16. For Each a In Range(uplimit, downlimit)
    
17. If a.Offset(, 6) = "O" Then
    
18.     h = h + a.Offset(, 7).Value
    
19.     i = i + a.Offset(, 8).Value
    
20. End If
    
21. Next
    
22. 
    
23. If h <> 0 Then
    
24. downlimit.Offset(1, 6) = "¤p­p"
    
25. downlimit.Offset(1, 7) = h
    
26. downlimit.Offset(1, 8) = i
    
27. downlimit.Offset(1, 9) = h / i
    
28. downlimit.Offset(1, 7).Interior.ColorIndex = 6
    
29. downlimit.Offset(1, 8).Interior.ColorIndex = 6
    
30. downlimit.Offset(1, 9).Interior.ColorIndex = 6
    
31. End If
    
32. 
    
33. Set myrange = uplimit.End(xlUp)
    
34. Loop While myrange.Address <> "$A$1"
    
35. End Sub

½Æ»s¥N½X

freeffly

¦^´_ 14# GBKEE


    ÁÂÁÂ

GBKEE

¦^´_ 13# freeffly
¹ïªº

freeffly

¦^´_ 12# GBKEE


   ÁÂÁÂ
    ¦³ÂI¬ÝÀ´¤F
   ¥D­n¬ORªº°Ï°ìªº²¾°Ê¥[Á`
    ¥i¥H³o¼Ë»¡¶Ü