返回列表 上一主題 發帖

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

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

本帖最後由 PJChen 於 2021-7-4 13:36 編輯

大大們好,
    With Sh
    Sh.Activate
        For j = 6 To xrow Step 2
            .Range("X" & j + 1 + 1).Resize(1, 16).Copy
            xW.Sheets("盤點").Range("BO" & 1 + j).Resize(1, 16).PasteSpecial xlPasteValues
        Next
    End With

盤點工作表從A欄的各客戶檔案把相應的盤點資料,copy過來
E4是指定日期
A欄是客戶名
當DI欄= D+0則從客戶檔案的數字工作表找E4-1的工作表
ex:E4=7/3,則找"2"工作表
將x:am的盤點資料,有庫存的數字,對應日期相符,貼到盤點工作表的BH:CF的欄位中

來源各客戶的檔案格式不會完全相同,但都是類似的,只以一定作範本,
盤點工作表中有很多的公式,所以貼上的資料不能干擾其他儲存格,
請問(紅字)對應日期貼上盤點數值的這段程式該怎麼寫?   貼盤點資料.rar (328.03 KB)
  1. Sub copy_蜜蜂盤點()
  2. Dim PH$, FN$, W As Workbook, xW As Workbook, xD As Worksheet, xS As Worksheet, Sh As Worksheet, i As String, rng As Range
  3. Set xD = ThisWorkbook.Sheets("VBA")  '程式來源
  4. k = xD.[V1] - 1 '取前一日
  5. i = Format(k, "D")
  6. y = Format(k, "yyyy")
  7. m = Format(k, "m")
  8. '---------------------
  9. Set xW = Workbooks("多客戶盤點表")
  10. PH = xD.[BB1]
  11. '---------------------
  12. FN = Dir(PH & "*蜜蜂*" & y & "*" & m & ".xlsx")
  13. Do While FN <> ""
  14. On Error Resume Next: Set W = Workbooks(FN): On Error GoTo 0
  15. If W Is Nothing Then Set W = Workbooks.Open(PH & FN)
  16. Set Sh = W.Sheets(i)
  17. With Sh
  18.     xrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row + 5
  19. End With
  20.      xW.Sheets("盤點").Range("M6:M" & xrow) = Sh.Range("T7:T" & xrow).Value '來源 前日結餘   
  21. With Sh
  22.     Sh.Activate
  23.         For j = 6 To xrow Step 2
  24.             .Range("X" & j + 1 + 1).Resize(1, 16).Copy
  25.             xW.Sheets("盤點").Range("BO" & 1 + j).Resize(1, 16).PasteSpecial xlPasteValues
  26.         Next
  27.     End With
  28.    
  29. FN = Dir
  30. Loop
  31. End Sub
複製代碼

回復 1# PJChen

多客戶盤點表.xlsx BH:GF欄日期的比對要以到期日(雙號列)為準,列5是生產日,不要作比對...

TOP

本帖最後由 軒云熊 於 2021-7-9 23:21 編輯

回復 2# PJChen

請問 PJChen大大  多客戶盤點表 的 DI欄 的 0 跟 1 是怎麼來的? 可以說明一下嗎? 感謝 我是說 0 跟 1 是甚麼用意?
是依據甚麼 為甚麼要日期減1 是因為 4號沒有資料的關西嗎? 我不太明白 >"<

TOP

回復 2# PJChen

有空幫我試試看是不是類似這樣的結果 我只是猜測
0710.rar (340.56 KB)

TOP

本帖最後由 PJChen 於 2021-7-12 20:41 編輯

回復 4# 軒云熊

多客戶盤點表 是目的資料檔,接收各客戶的盤點資料
DI欄 的 0 跟 1 是自訂的,
例如今天是7/12,DI欄 出現的是0,則來自客戶的盤點資料則要貼12-1=11工作表的盤點資料,
DI欄 出現的是1,則來自客戶的盤點資料則要貼12-0=12工作表的盤點資料,
這個是固定的規則模式,完全無變化的,是公司作業的規則而已!
所有的表格都是測試用,可以任意填入資料,用來做程式測試,
今天是7/12,我在來源檔的11工作表,任意填入些資料,測試程式,發現完全無貼上的動作

來源的客戶盤點格式分2種類型,一種是2格合併(目的工作表是貼在"盤點"),一種是3格合併(目的工作表是貼在"stock"),
來源的客戶盤點資料有很多個,所以做成的程式,希望能自行指定來源的盤點區(盤點區不一定在哪個儲存格),就能貼上資料
現將來源的客戶盤點檔,各附上一個測試檔
貼盤點資料0710.rar (494.03 KB)

TOP

本帖最後由 軒云熊 於 2021-7-13 16:33 編輯

回復 5# PJChen

stock 跟 萬達庫存表 2021.07 日期對不到  好像怪怪的 妳再確認一下

stock 直有 7/7  而 萬達庫存表 是7/6~7/11 還是 只要 7/7 號?  不太明白 可以說清楚一點嗎 感謝 ^^"

TOP

回復 6# 軒云熊
stock 跟 萬達庫存表的測試檔,日期都是測試的,所以改一下可以測試就好了 貼盤點資料0710.rar (470.04 KB)
----------萬達庫存表 盤點資料
(低脂)U8:AF8,對應stock BH7:CF7
(原味)U11:AF11,對應stock BH10:CF10
有相同日期的盤點數,就貼到stock同相日期的盤點格內

----------蜜蜂倉 盤點資料
V7:AK7,V9:AK9,V11:AK11同品名&同日期對應
多客戶盤點表.sh(盤點)BH6:CF6,BH8:CF8,BH10:CF10

TOP

回復 7# PJChen
有空幫我試試看 感謝

貼盤點資料0710.rar (493.98 KB)

TOP

回復 8# 軒云熊
熊大好,

測試結果,Stock的日期沒有連續時,貼上的盤點資料會不正確,測試結果留在工作表中,
我有很多檔案要用到這個2個程式,可否幫忙註解程式?
貼盤點資料0710.rar (476.52 KB)

TOP

回復 9# PJChen

有空再幫我試試看  可以再多幾個要比對的檔案嗎? 感謝
因為品名 我沒有判斷

貼盤點資料0715.rar (504.78 KB)

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題