返回列表 上一主題 發帖

[發問] 篩選設公式的巨集

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2024-10-10 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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無效
請各位高手指點，謝謝！
ESOD_問題0906.zip (202.25 KB)
收藏 分享
Adam

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2024-10-10 

論壇贊助勳章
2#
發表於 2013-9-9 23:13 | 只看該作者
請問有那位大大可以協助嗎？謝謝！
Adam

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2024-10-10 

論壇贊助勳章
4#
發表於 2013-9-10 21:59 | 只看該作者
原來是我的問題放錯版了，真是感謝 GBKEE將問題移過來
感謝Hsieh大的解答，剛才小試了一下，OK! 謝謝！
Adam

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題