- 帖子
- 121
- 主題
- 8
- 精華
- 0
- 積分
- 170
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2021-1-21
- 最後登錄
- 2024-8-20
|
回復 22# 准提部林
准大好！
不好意思...好像有點怪怪的
For i = 1 To R
V = vD(K).keys()(i - 1)
Brr(i + 1, 5) = "小計：": Brr(i + 1, 8) = Brr(i, 8) + Arr(V, 12)
For j = 1 To 8: Brr(i, j) = Arr(V, Cr(j - 1)): Next
'好像沒有上述這一段...
----------------------------------------------------------------------------------------------------------------
Set xA = [盤點表單!A1]
For i = 1 To N
If i > 1 Then [盤點表單!A1:K3].Copy xA
T1 = xD(i): R = xD(T1): Crr = xD(T1 & "/c")
xA(2, 2) = T1: xA(2, 11) = "項次：" & i & "/" & N
With xA(4).Resize(R, 11)
[盤點表單!A4:K4].Copy .Cells
.Value = Crr
End With
xA(R + 4, 2) = "會盤人：": xA(R + 4, 4) = "盤點人：": xA(R + 4, 5) = "小計": xA(R + 4, 9) = xD(T1 & "/s")
Set xA = xA(R + 5)
xA.PageBreak = xlPageBreakManual '設定分頁線
'是上面這段
----------------------------------------------------------------------------------------------------------------
還是我放的位置有錯...麻煩在指正一下
勞煩你了，謝謝。 |
|
發表於 2021-12-9 21:43
| 
