­ã´£³¡ªL

­pºâ³W«hÁÙ¤£¸Ô²Ó, ¤j¬ù¼g¤@¤U:

1. Sub ¨ú¥Xµ²ªG(C%, M, ST1$, ST2$)
   
2. Dim Arr, i&, V&, U&, S, uMax
   
3. Arr = Range(Cells(1, C + 2), Cells(65536, C + 2).End(xlUp)(2))
   
4. For i = 2 To UBound(Arr) - 1
   
5.     If Val(Arr(i, 1)) > Val(M) Then
   
6.        V = V + 1
   
7.        S = S + Arr(i, 1)
   
8.        If Arr(i, 1) > uMax Then uMax = Arr(i, 1)
   
9.        If Val(Arr(i + 1, 1)) <= Val(M) Then U = U + 1
   
10.     End If
    
11. Next
    
12. [J2] = "¦¸  ¼Æ =":   [J3] = "¥­§¡­È =":   [J4] = "³Ì¤j­È ="
    
13. [K1].Cells(1, C) = " " & ST1 & " "
    
14. [K1].Cells(2, C) = U
    
15. [K1].Cells(3, C) = S / V
    
16. [K1].Cells(4, C) = uMax
    
17. [U1].Cells(1, C) = " " & ST2 & " "
    
18. End Sub
    
19. 
    
20. Private Sub Button1_Click()
    
21. Call ¨ú¥Xµ²ªG(1, 100, " 01¡B08¡B14 ", " 01H ")
    
22. End Sub
    
23. 
    
24. Private Sub CommandButton1_Click()
    
25. Call ¨ú¥Xµ²ªG(2, 30, "02¡B09¡B15", "02H")
    
26. End Sub
    
27. 
    
28. Private Sub CommandButton2_Click()
    
29. Call ¨ú¥Xµ²ªG(3, 50, "03¡B10¡B16", "03H")
    
30. End Sub
    
31. 
    
32. Private Sub CommandButton3_Click()
    
33. Call ¨ú¥Xµ²ªG(4, 30, "04¡B11¡B17", "04H")
    
34. End Sub
    
35. 
    
36. Private Sub CommandButton4_Click()
    
37. Call ¨ú¥Xµ²ªG(5, 50, "05¡B12¡B18", "05H")
    
38. End Sub
    
39. 
    
40. Private Sub CommandButton5_Click()
    
41. Call ¨ú¥Xµ²ªG(6, 50, "06¡B13¡B19", "06H")
    
42. End Sub
    
43. 
    
44. Private Sub CommandButton6_Click()
    
45. Call ¨ú¥Xµ²ªG(7, 50, "07¡B14", "07V")
    
46. End Sub

½Æ»s¥N½X

TEST20161009-1.rar (181.41 KB)

¤U¸ü¦¸¼Æ: 5

2016-10-9 13:28