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

§ì¨ú¹q¬y¬ðªi¦¸¼Æ¡A¤Î­pºâ¨ä¥­§¡­È°ÝÃD

§ì¨ú¹q¬y¬ðªi¦¸¼Æ¡A¤Î­pºâ¨ä¥­§¡­È°ÝÃD

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/10/7 08:15): ½Ð¸Ô­z­pºâ¤@¦¸ªº±ø¥ó? §A¦³³]©w®æ¦¡¤Æ±ø¥ó>95



³Â·Ð¤j¤j¡AÀ°¦£¬d¬Ý¹q¬y§ì¨ú¼gªk¡A
¦pªþ¥ó¡A¹q¬y§ì¨ú°ÝÃD
ÁÂÁÂ!
:)

test.rar (94.6 KB)

¦^´_ 1# s12t34


¦³³]©w³]©w®æ¦¡¤Æ±ø¥ó>95¡A³o¬O¬°¤F¬ðÅã¨ä¬ðªi¹q¬y
¦]¤§«eµ{¦¡­pºâ¦³ªº·|§â¦¹½d³ò­pºâ¬°«e«á¦U1¦¸¡A
ÁÂÁª©¤j´£¿ô  :)

TOP

¥»©«³Ì«á¥Ñ s12t34 ©ó 2016-10-7 14:53 ½s¿è


§Ú¥ý§ì¬ðªi¹q¬y­È¦A¤p©ó20¤§¤¤­pºâ¤@¦¸

­ì¥»¥H¼g¨ç¼Æ =IF(C3<20,IF(C4>20,IF(C5>100,1,""),""),"")


³Â·Ð¤j¤j«üÂI«üÂI¡AÁÂÁ¡C

    test.rar (228.37 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-10-9 20:27 ½s¿è

¦^´_ 3# s12t34
¸Õ¸Õ¬Ý,¬O§_¦p¦¹
  1. 'Æ[¹îªþÀɬ°­pºâCÄ檺ÅÞ¿è¬O,¤j©ó100ªº³sÄò½d³òªº¦¸¼Æ
  2. Option Explicit
  3. Sub Ex()
  4.     Dim i As Integer, S As Single, Max_Count As Integer, V As Integer
  5.     i = 2
  6.     Range("D:D").Interior.ColorIndex = xlNone
  7.     Do While Cells(i, "c") <> ""
  8.         If Cells(i, "c") > 100 Then
  9.             Max_Count = Max_Count + 1
  10.             Do While Cells(i, "c") > 100
  11.                 V = V + 1        '¤j©ó100ªº ¦¸¼Æ**********
  12.                 S = S + Cells(i, "c")
  13.                 Cells(i, "D") = "AA" & Max_Count  '»²§U§A¬d¬Ý¦¸¼Æ¬O§_¥¿½T
  14.                 Range("D" & i).Interior.Color = vbYellow    '»²§U§A¬d¬Ý¬O§_¥¿½T
  15.                 i = i + 1
  16.             Loop
  17.         Else
  18.             i = i + 1
  19.         End If
  20.     Loop
  21.     [J2] = "¦¸  ¼Æ ="
  22.     [J3] = "¥­§¡­È ="
  23.     [J4] = "³Ì¤j­È ="
  24.     [K1] = " 01¡B08¡B14 "
  25.     [U1] = " 01H "
  26.     [K2] = Max_Count
  27.     [K3] = S / V 'Max_Count
  28.     [K4] = "=MAX(R[-2]C[-8]:R[9996]C[-8])"
  29. ''°õ¦æ«á: DÄæ¦Û°Ê¿z¿ï,±ø¥ó¶}ÀY¥H"AA" ¥i¬d¬Ý¬O§_¥¿½T
  30. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

­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. Private Sub Button1_Click()
  20. Call ¨ú¥Xµ²ªG(1, 100, " 01¡B08¡B14 ", " 01H ")
  21. End Sub

  22. Private Sub CommandButton1_Click()
  23. Call ¨ú¥Xµ²ªG(2, 30, "02¡B09¡B15", "02H")
  24. End Sub

  25. Private Sub CommandButton2_Click()
  26. Call ¨ú¥Xµ²ªG(3, 50, "03¡B10¡B16", "03H")
  27. End Sub

  28. Private Sub CommandButton3_Click()
  29. Call ¨ú¥Xµ²ªG(4, 30, "04¡B11¡B17", "04H")
  30. End Sub

  31. Private Sub CommandButton4_Click()
  32. Call ¨ú¥Xµ²ªG(5, 50, "05¡B12¡B18", "05H")
  33. End Sub

  34. Private Sub CommandButton5_Click()
  35. Call ¨ú¥Xµ²ªG(6, 50, "06¡B13¡B19", "06H")
  36. End Sub

  37. Private Sub CommandButton6_Click()
  38. Call ¨ú¥Xµ²ªG(7, 50, "07¡B14", "07V")
  39. End Sub
½Æ»s¥N½X
TEST20161009-1.rar (181.41 KB)

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/10/9 20:29): 4# 2016-10-9 20:27 §ó·s ¥i¦b¸Õ¸Õ

ÁÂÁÂG¤j¤j©M­ã¤jªº¸Ñµª¡A
G¤j¡A¤£¦n·N«ä¥­§¡¹q¬y­pºâ­È¦³°ÝÃD

¤p§Ì§ÚÁÙ¤£¤ÓÀ´VBA¡A¥u¥Î¿ý»s¾Ç²ß¤¤.....
¦A¦¸ÁÂÁ¨â¦ì¤j¤j¸Ñµª

TOP

¥»©«³Ì«á¥Ñ s12t34 ©ó 2016-10-9 23:35 ½s¿è

¦^´_ 4# GBKEE


ÁÂÁÂG¤j¡A¥­§¡¹q¬y­pºâ­ÈOK¤F
¨¯­W¤F!
:)

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD