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

[µo°Ý] §PÂ_²Å¦X¸ê®ÆÀx¦s®æ¼Æ¤Î½Æ»s¸ê®Æ°ÝÃD

[µo°Ý] §PÂ_²Å¦X¸ê®ÆÀx¦s®æ¼Æ¤Î½Æ»s¸ê®Æ°ÝÃD

¥»©«³Ì«á¥Ñ day741025 ©ó 2011-7-17 20:44 ½s¿è

½Ð°Ý¦pªG§Ú·Q­n¥ý§PÂ_CÄæ¦ì<=0.95ªºÀx¦s®æ¼Æ¡A¬O§_§C©ó25¡A
­Y¤W­z±ø¥ó¦¨¥ß¡A«h±N¡u²Å¦X±ø¥ó¡vªºÀx¦s®æ¤§A¡BB¡BCÄ椺ªº¸ê®Æ¡A½Æ»s¨ìI¡BJ¡BKÄæ¦ì¡A
¡u¤£²Å¦X±ø¥ó¡vªºÀx¦s®æ¤§CÄæ¦ì¥[Á`¡A¦A½Æ»s¨ìI¡BJ¡BKÄæ¦ì(µù¡GIÄæ¦ìÅã¥Ü"¤£²Å¦X"¡BJÄæ¦ì¬°¤£²Å¦X±ø¥ó¤§Àx¦s®æ¥[Á`¡BKÄæ¦ìÅã¥Ü"1")

­Y¤W­z±ø¥ó¤£¦¨¥ß¡A«h±µÄò§PÂ_CÄæ¦ì<=0.90ªºÀx¦s®æ¼Æ¬O§_§C©ó25¡A
­Y¤W­z±ø¥ó¦¨¥ß¡A«h±N¡u²Å¦X±ø¥ó¡vªºÀx¦s®æ¤§A¡BB¡BCÄ椺ªº¸ê®Æ¡A½Æ»s¨ìI¡BJ¡BKÄæ¦ì¡A
¡u¤£²Å¦X±ø¥ó¡vªºÀx¦s®æ¤§CÄæ¦ì¥[Á`¡A¦A½Æ»s¨ìI¡BJ¡BKÄæ¦ì(µù¡GIÄæ¦ìÅã¥Ü"¤£²Å¦X"¡BJÄæ¦ì¬°¤£²Å¦X±ø¥ó¤§Àx¦s®æ¥[Á`¡BKÄæ¦ìÅã¥Ü"1")

µù¡Gsheet¦³§e²{Àò±oªºµ²ªG¡C

VBA­n«ç»ò¹ê²{¡H·PÁ¦U¦ì^^"

TEST.zip (11.29 KB)

¦^´_ 1# day741025
  1. Sub Ex()
  2. Dim Rng  As Range
  3.     Set Rng = Range("C2:C26")  'Rng.Rows.Count ¦³25­ÓÀx¦s®æ¼Æ
  4.    ' Application.CountIf  ¨Ï¥Î¤u§@ªí¨ç¼Æ
  5.     If Application.CountIf(Rng, "<=0.95") < Rng.Rows.Count Then
  6.         Range("A1:C26").Copy Range("I1")
  7.     ElseIf Application.CountIf(Rng, "<=0.90") < Rng.Rows.Count Then
  8.         Range("A1:C26").Copy Range("I1")
  9.     End If
  10. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ day741025 ©ó 2011-7-16 08:24 ½s¿è

¦^´_ 2# GBKEE


   
·PÁªO¥Dªº¦^õX¡A
¤£¹LªO¥D¦^õXªºµ{¦¡¡A¥i¯à¬O¦b¤p§Ì§ó·s¤§«eªº»Ý¨D¡A

¤p§Ì¥Ø«e¹J¨ìªº°ÝÃD¬°¦b§PÂ_±ø¥ó¦¨¥ß«á¡A¥ý§â²Å¦X±ø¥ó¤§©Ò¦³Äæ¦ì½Æ»s¨ìI¡BJ¡BKÄæ¦ì¡A
¥t¥~§â¤£²Å¦X±ø¥ó¤§CÄæ¦ì¥[Á`¡AµM«á¦A½Æ»s¨ìKÄæ¦ì¡A¨Ã©óI¡BJÄæ¦ìÅã¥Ü"¤£²Å¦X"

¥Ø«e¦³·Q¨ìªº¤èªk¬O¡A±ø¥ó¦¨¥ß«á¡A§â²Å¦X±ø¥óªºCÄæ¦ìÀx¦s®æ¿ï¨ú¡AµM«á¦A©¹¥ªÃä¿ï¨ú¦ÜAÄæ¦ì(Ãþ¦üÁä½LSHIFT + ¡ö¿ï¨úÀx¦s®æªº¤èªk)¡A¤§«á¶i¦æ«þ¨©¦Ü¥ØªºÀx¦s®æ¡I
¤£²Å¦X±ø¥óÀx¦s®æCÄæ¦ì¶i¦æ¥[Á`¡A¤§«á¶i¦æ«þ¨©¦Ü¥ØªºÀx¦s®æ¡A¨Ã©óI¡BJÄæ¦ìÅã¥Ü"¤£²Å¦X"

µù¡GÀx¦s®æ½d³ò¸ê®Æ¬OÅܰʪº¡A¬Gµ{¦¡½X¶·§PÂ_¦Ü³Ì«á¤@­Ó¦³¸ê®ÆªºÀx¦s®æ¡C

TOP

¦^´_ 3# day741025

½Ð­«·s¤W¶Ç½d¨ÒªºÀÉ®×

TOP

¦^´_ 4# GBKEE


¤w­«·s¤W¶ÇÀɮסA¥H¤Î·s¼WsheetÅã¥Ü³Ì²×ªºµ²ªG¡I
ÁÂÁÂ^^

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-17 21:35 ½s¿è

¦^´_ 5# day741025
  1. Sub Ex()
  2. Dim Rng  As Range, i As Integer, Msg As Boolean
  3.     i = 25   ' Àx¦s®æ¼Æ¡A¬O§_§C©ó25
  4.     With ActiveSheet
  5.          .AutoFilterMode = False         '¨ú®ø¦Û°Ê¿z¿ï
  6.         Set Rng = .Range("A1", .Range("C" & Rows.Count).End(xlUp))
  7.         If Application.CountIf(Rng.Columns(3), "<=0.95") < i Then
  8.             Rng.AutoFilter 3, "<=0.95"   '¦Û°Ê¿z¿ï  ¿ï¾Ü²Ä3Äæ, ±ø¥ó"<=0.95"
  9.             Msg = True
  10.         ElseIf Application.CountIf(Rng.Columns(3), "<=0.90") < i Then
  11.             Rng.AutoFilter 3, "<=0.90"
  12.             Msg = True
  13.         End If
  14.         Set Rng = Rng.SpecialCells(xlCellTypeVisible)
  15.         If Msg = True Then
  16.             .AutoFilterMode = False
  17.             .Range("I:K").Clear
  18.             Rng.Copy .Range("i1")
  19.             With .Cells(Rows.Count, "I").End(xlUp)
  20.                 .Offset(1) = "¤£²Å¦X"
  21.                 .Offset(1, 1) = Application.Sum(ActiveSheet.Range(.Offset(1, 1), .Cells.End(xlUp).Offset(, 1)))
  22.                 .Offset(1, 2) = 1
  23.             End With
  24.         End If
  25.     End With
  26. End Sub
½Æ»s¥N½X

TOP

µ{¦¡½X½T»{¥i¥H¨Ï¥Î¡A¦ýJÄæ¦ì³Ì«á¤@®æ¡A§Ú­n¥[Á`BÄæ¦ì¤£²Å¦X±ø¥óªºÀx¦s®æ¡A¤£¬O¥[Á`JÄæ¦ìªºÀx¦s®æ¡I
.Offset(1, 1) = Application.Sum(ActiveSheet.Range(.Offset(1, 1), .Cells.End(xlUp).Offset(, 1)))

ÁÂÁÂ~

TOP

¦^´_ 7# day741025
BÄ檺¥[Á`-JÄ檺¥[Á`
  1. Sub Ex()
  2. Dim Rng  As Range, i As Integer, Msg As Boolean, S As Double
  3.     i = 25   ' Àx¦s®æ¼Æ¡A¬O§_§C©ó25
  4.     With ActiveSheet
  5.          .AutoFilterMode = False         '¨ú®ø¦Û°Ê¿z¿ï
  6.         Set Rng = .Range("A1", .Range("C" & Rows.Count).End(xlUp))
  7.         S = Application.Sum(Rng.Columns(2))      'BÄ檺¥[Á`
  8.         If Application.CountIf(Rng.Columns(3), "<=0.95") < i Then
  9.             Rng.AutoFilter 3, "<=0.95"   '¦Û°Ê¿z¿ï  ¿ï¾Ü²Ä3Äæ, ±ø¥ó"<=0.95"
  10.             Msg = True
  11.         ElseIf Application.CountIf(Rng.Columns(3), "<=0.90") < i Then
  12.             Rng.AutoFilter 3, "<=0.90"
  13.             Msg = True
  14.         End If
  15.         Set Rng = Rng.SpecialCells(xlCellTypeVisible)
  16.         If Msg = True Then
  17.             .AutoFilterMode = False
  18.             .Range("I:K").Clear
  19.             Rng.Copy .Range("i1")
  20.             With .Cells(Rows.Count, "I").End(xlUp)
  21.                 .Offset(1) = "¤£²Å¦X"
  22.                 .Offset(1, 1) = S - Application.Sum(Range("j:j"))  'BÄ檺¥[Á`-JÄ檺¥[Á`
  23.                 .Offset(1, 2) = 1
  24.             End With
  25.         End If
  26.     End With
  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# GBKEE


»yªkªºÀ³¥Î¤j­P¤WÀ´¤F
¤S¦h¾Ç¨ì¤F¤@¨ÇªF¦è(¨Ò¡G¿z¿ïªºÀ³¥Î)
ÁÂÁÂ^^

TOP

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