- 帖子
- 42
- 主題
- 4
- 精華
- 0
- 積分
- 56
- 點名
- 0
- 作業系統
- Window
- 軟體版本
- 7
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-1-10
- 最後登錄
- 2019-5-9
|
5#
發表於 2014-1-13 16:43
| 只看該作者
Sub Macro4()
'
' Macro4 Macro
'
'
Sheets("統計資料").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-3],'Key In 資料'!C:C[1],2,0)"
Range("H3").Select
Selection.AutoFill Destination:=Range("H3:H" & [H3].CurrentRegion.Rows.Count)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$20").AutoFilter Field:=8, Criteria1:="已出"
Range("I1").Select
ActiveCell.Offset(1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillLeft
End Sub
首先 個人預設為
1.Key In 資料 分頁中
"H2"輸入編號 "I2"已預設公式 會自行 轉換 已出or取消
2.統計資料分頁中
巨集 會自動幫我 Vlookup 更新H欄
更新後 值化 篩選 已出or取消 (此部分 可能也需要請教先進 是否可選擇 篩選 "非N/A")
3.篩選出 已出 or 取消後
將H欄 平移覆蓋 I欄(進度) (小弟目前最大的困難點為 無法讓他平移覆蓋...)
|
-
-
統計.jpg
(175.6 KB)
-
-
Key In.png
(105.78 KB)
-
-
疑問.jpg
(127.03 KB)
|
發表於 2014-1-13 14:56
| 
