- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-17 21:35 ½s¿è
¦^´_ 5# day741025 - Sub Ex()
- Dim Rng As Range, i As Integer, Msg As Boolean
- i = 25 ' Àx¦s®æ¼Æ¡A¬O§_§C©ó25
- With ActiveSheet
- .AutoFilterMode = False '¨ú®ø¦Û°Ê¿z¿ï
- Set Rng = .Range("A1", .Range("C" & Rows.Count).End(xlUp))
- If Application.CountIf(Rng.Columns(3), "<=0.95") < i Then
- Rng.AutoFilter 3, "<=0.95" '¦Û°Ê¿z¿ï ¿ï¾Ü²Ä3Äæ, ±ø¥ó"<=0.95"
- Msg = True
- ElseIf Application.CountIf(Rng.Columns(3), "<=0.90") < i Then
- Rng.AutoFilter 3, "<=0.90"
- Msg = True
- End If
- Set Rng = Rng.SpecialCells(xlCellTypeVisible)
- If Msg = True Then
- .AutoFilterMode = False
- .Range("I:K").Clear
- Rng.Copy .Range("i1")
- With .Cells(Rows.Count, "I").End(xlUp)
- .Offset(1) = "¤£²Å¦X"
- .Offset(1, 1) = Application.Sum(ActiveSheet.Range(.Offset(1, 1), .Cells.End(xlUp).Offset(, 1)))
- .Offset(1, 2) = 1
- End With
- End If
- End With
- End Sub
½Æ»s¥N½X |
|