GBKEE

¦^´_ 4# register313

1. Sub ProductsQ1FP()
   
2. Dim Rng As Range
   
3. ' 12Q1Fcst Vs. Q1Plan
   
4. ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("Group").ClearAllFilters
   
5. ActiveWindow.FreezePanes = False ' ¨ú®ø­áµ²µøµ¡
   
6. Dim fcsty, put_rownum, hid_colnum, put_maxnum, put_minnum As Integer
   
7. ActiveSheet.Rows.Hidden = False '¨ú®ø©Ò¦³ªºÁôÂÃ
   
8. ActiveSheet.Range("c4").Select  '´å¼Ð©ñ¦bc4
   
9. ActiveWindow.FreezePanes = True '­áµ²µøµ¡
   
10. ActiveWindow.ScrollColumn = 3   '­áµ²¦C»PÄ檺µøµ¡
    
11. ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("Group").AutoSort xlDescending, _
    
12.     "¥[Á` ªºQ1F-P"
    
13. ' ¼Ï¯Ã¤ÀªR¥H¥[Á`ªºQ1F-P°µ±Æ§Ç
    
14. put_rownum = ActiveSheet.Range("a1").Value  '³Ì«á¤@¦C
    
15. put_maxnum = ActiveSheet.Range("b1").Value  '¤j©ó
    
16. put_minnum = ActiveSheet.Range("b2").Value  '¤p©ó
    
17. hid_colnum = ActiveSheet.Range("f1").Value  '±Æ§ÇÄæ
    
18. With ActiveSheet
    
19.   For fcsty = 4 To put_rownum
    
20.     If .Cells(fcsty, "B") <> "" And Not .Cells(fcsty, "A") Like "*¦X­p" Then
    
21.        If .Cells(fcsty, hid_colnum) < put_maxnum And .Cells(fcsty, hid_colnum) > put_minnum Then
    
22.          If Rng Is Nothing Then
    
23.             Set Rng = .Range("A" & fcsty)
    
24.         Else
    
25.             Set Rng = Union(Rng, .Range("A" & fcsty))
    
26.         End If
    
27.        End If
    
28.     End If
    
29.   Next
    
30.   .Rows("4:" & put_rownum).Hidden = False
    
31. End With
    
32. Rng.EntireRow.Hidden = True
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# register313
½d³ò¦p¥i¹wª¾    Rng = IIf(Rng = "", "A" & fcsty, Rng & "," & "A" & fcsty) ¬O²³æ¨Ç