返回列表下一主題上一主題發帖

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

adam2010

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2013-9-10 08:57 | 只看該作者

回復 2# adam2010

Sub 巨集2()
'篩選出所有TOP產品
ActiveSheet.Range("$A$1:$I$305").AutoFilter Field:=1, Criteria1:=Array( _
"TOP*"), Operator:=xlFilterValues
'將篩選結果交期設定Vlookup公式
Range([E2], [A65536].End(xlUp).Offset(, 4)).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=VLOOKUP(RC[-3],WIP!C[-3]:C[4],8,0)"
'將篩選取消
ActiveSheet.Range("$A$1:$I$305").AutoFilter
End Sub

複製代碼

學海無涯_不恥下問

TOP

adam2010

中學生 Rank: 2

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

論壇贊助勳章

2^#

發表於 2013-9-9 23:13 | 只看該作者

請問有那位大大可以協助嗎？謝謝！

Adam

TOP

靜思自在 : 我們最大的敵人不是別人．可能是自己。

返回列表下一主題上一主題