- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2026-5-26
|
回復 8# PJChen
如何讓所有"V"
連續做套表動作,直到完成？
>> 請測試看看，謝謝
Sub test()
Dim Arr, Brr, i&, C%
Tm = Timer
Application.DisplayAlerts = False
Brr = Sheets("說明").[j1].CurrentRegion
Arr = Range([預約!o1], [預約!a65536].End(3))
With Sheets("塑板")
.[c17] = "": .[e22] = "": .[c28] = ""
.[c16] = "": .[c26] = "": .[c27] = ""
End With
For i = 2 To UBound(Arr)
If UCase(Arr(i, 15)) = "V" Then
With Sheets("塑板")
.[c17] = Arr(i, 1): .[e22] = Arr(i, 3): .[c28] = Date 'Arr(i, 1)=日期,Arr(i, 3)=數量
For j = 2 To UBound(Brr, 2)
If Arr(i, 2) = Brr(1, j) Then
.[c16] = Brr(2, j): .[c26] = Brr(3, j): .[c27] = Brr(4, j)
End If
Next
End With
Sheets("塑板").Copy
ActiveWorkbook.SaveAs "D:\" & Arr(i, 2) & "-" & Format(Arr(i, 1), "yyyymmdd") & ".xlsx"
ActiveWindow.Close
With Sheets("塑板")
.[c17] = "": .[e22] = "": .[c28] = ""
.[c16] = "": .[c26] = "": .[c27] = ""
End With
End If
Next
MsgBox Timer - Tm
Application.DisplayAlerts = True
End Sub
|
|
發表於 2021-9-29 07:42
| 
