返回列表 上一主題 發帖

[發問] 對應日期貼盤點資料

回復 47# 軒云熊
熊大好,
請問現將期初&盤點合為一個程式,原先是希望分成二個程式的!
因為有時會分開使用....

目前只能先以測試檔測試
發現盤點無數據時,無法貼上期初值

TOP

回復 50# 准提部林

准大好,

1) FT = Split(FN2, "庫存表")(0)
客戶檔名大多以XXX庫存表 命名

但FT = Split(FN2, "庫存表")(0) '截取[客戶]名稱
這裡是用最大多數的"庫存表"來分離字串
但因為同一客戶有不同廠別,
例如:佳佳中壢廠庫存表
在[B8]會輸入"佳佳中壢廠庫存表"
這樣又會抓不到檔案
請問如何修改?
FT = Split(FN2, "庫存表")(0)

2)
將程式改為抓取盤點資料時,
還需要加入一段比對日期的程式
比對規則
客戶庫存表的第7列,對應"多客戶盤點表"的第6列
請問以下程式要怎麼修改?
    Set xF1 = xS2.Cells.Find("盤點", Lookat:=xlWhole) '找客戶[盤點]位置
    Set xF2 = xS2.[b:b].Find(TT, Lookat:=xlWhole) '找B欄[品名]位置
    If xF1 Is Nothing Or xF2 Is Nothing Then GoTo i01
    xS1.Cells(i, 60) = xS2.Cells(xF2.Row, xF1.Column) '多客戶盤點欄=60

TOP

回復 53# 准提部林
准大好,

測試多日,期初&盤點資料,都正確...
感謝!

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題