- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
本帖最後由 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)
- Sub copy_蜜蜂盤點()
- Dim PH$, FN$, W As Workbook, xW As Workbook, xD As Worksheet, xS As Worksheet, Sh As Worksheet, i As String, rng As Range
- Set xD = ThisWorkbook.Sheets("VBA") '程式來源
- k = xD.[V1] - 1 '取前一日
- i = Format(k, "D")
- y = Format(k, "yyyy")
- m = Format(k, "m")
- '---------------------
- Set xW = Workbooks("多客戶盤點表")
- PH = xD.[BB1]
- '---------------------
- FN = Dir(PH & "*蜜蜂*" & y & "*" & m & ".xlsx")
- Do While FN <> ""
- On Error Resume Next: Set W = Workbooks(FN): On Error GoTo 0
- If W Is Nothing Then Set W = Workbooks.Open(PH & FN)
- Set Sh = W.Sheets(i)
- With Sh
- xrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row + 5
- End With
- xW.Sheets("盤點").Range("M6:M" & xrow) = Sh.Range("T7:T" & xrow).Value '來源 前日結餘
- 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
-
- FN = Dir
- Loop
- End Sub
|
|
發表於 2021-7-4 13:32
| 
