Board logo

標題: [發問] 篩選設公式的巨集 [打印本頁]
作者: adam2010    時間: 2013-9-6 22:07     標題: 篩選設公式的巨集

請教各位高手，我需要將TOP系列產品的交期另外Vlookup到原來的資料內，我是用土法錄製的方式

Selection.AutoFilter    '篩選   
    ActiveSheet.Range("$A$1:$I$305").AutoFilter Field:=1, Criteria1:=Array( _
        "TOP*"), Operator:=xlFilterValues              '篩選出所有TOP產品   
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],WIP!C[-3]:C[4],8,0)"
    Range("E6").Select                       '將第一個TOP交期設定Vlookup公式   
    Selection.FillDown        '將公式下拉複製到所有篩選出來的欄位   
    Selection.AutoFilter         '將篩選取消

但是...
1.每次篩選後第一個TOP產品的位置不會固定在E6
2.執行第二次時Selection.FillDown無效
請各位高手指點，謝謝！
[attach]15972[/attach]
作者: adam2010    時間: 2013-9-9 23:13

請問有那位大大可以協助嗎？謝謝！
作者: Hsieh    時間: 2013-9-10 08:57

回復 2# adam2010
  1. Sub 巨集2()
  2.     '篩選出所有TOP產品
  3.     ActiveSheet.Range("$A$1:$I$305").AutoFilter Field:=1, Criteria1:=Array( _
  4.         "TOP*"), Operator:=xlFilterValues
  5.     '將篩選結果交期設定Vlookup公式
  6.     Range([E2], [A65536].End(xlUp).Offset(, 4)).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=VLOOKUP(RC[-3],WIP!C[-3]:C[4],8,0)"
  7.     '將篩選取消
  8.     ActiveSheet.Range("$A$1:$I$305").AutoFilter
  9. End Sub
複製代碼
作者: adam2010    時間: 2013-9-10 21:59

原來是我的問題放錯版了，真是感謝 GBKEE將問題移過來
感謝Hsieh大的解答，剛才小試了一下，OK! 謝謝！



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)