­ã´£³¡ªL

°²¦p²Ä1¦W¦³2­Ó, ²Ä2¦W¦³3­Ó, «e5¤j, À³¬O8­Ó???

­ã´£³¡ªL

1. Dim FilArea As Range
   
2. 
   
3. Sub ¹O´Á¼Æ()
   
4. Dim R&, xClmn As Range, i&, LG, GG, N%
   
5. Call ¨ú®ø¿z¿ï
   
6. Set xClmn = FilArea.Columns(103)
   
7. R = Application.CountIf(xClmn, ">0")
   
8. If R = 0 Then Exit Sub
   
9. Sheets("¤u§@§¹¦¨²v²Î­p").AutoFilterMode = False
   
10. For i = 1 To R
    
11.     LG = Application.Large(xClmn, i)
    
12.     If GG <> LG Then N = N + 1: GG = LG
    
13.     If N = 5 Then Exit For
    
14. Next
    
15. FilArea.AutoFilter Field:=103, Criteria1:=">=" & GG
    
16. End Sub
    
17. 
    
18. Sub §C©ó90()
    
19. Call ¨ú®ø¿z¿ï
    
20. Sheets("¤u§@§¹¦¨²v²Î­p").AutoFilterMode = False
    
21. FilArea.AutoFilter Field:=104, Criteria1:="<90%"
    
22. End Sub
    
23. 
    
24. Sub §@·~¤Ñ¼Æ()
    
25. Dim R&, xClmn As Range, i&, LG, GG, N%
    
26. Call ¨ú®ø¿z¿ï
    
27. Set xClmn = FilArea.Columns(105)
    
28. R = Application.Count(xClmn)
    
29. If R = 0 Then Exit Sub
    
30. Sheets("¤u§@§¹¦¨²v²Î­p").AutoFilterMode = False
    
31. For i = 1 To R
    
32.     LG = Application.Large(xClmn, i)
    
33.     If GG <> LG Then N = N + 1: GG = LG
    
34.     If N = 5 Then Exit For
    
35. Next
    
36. FilArea.AutoFilter Field:=105, Criteria1:=">=" & GG
    
37. End Sub
    
38. 
    
39. Sub ¨ú®ø¿z¿ï()
    
40. Dim R&
    
41. With Sheets("¤u§@§¹¦¨²v²Î­p")
    
42.      .AutoFilterMode = False
    
43.      R = .UsedRange.Rows.Count - 1
    
44.      If R <= 4 Then Exit Sub
    
45.      Set FilArea = .Range("B3:DB" & R)
    
46.      FilArea.AutoFilter
    
47. End With
    
48. End Sub

½Æ»s¥N½X

[attach]26115[/attach]