- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
回復 25# 准提部林
請問准大,
我有另一格式的表格,同樣做法,本想套用同一程式,小小修改欄位即可,但卻無法使用,
請幫忙看下,是否還有需修改的地方?- Sub EX()
- Dim R&, Arr, Brr, i&, S&(1 To 2), V1, V2
- R = Cells(Rows.Count, "J").End(xlUp).Row
- If R <= 2 Then Exit Sub
- Arr = Range("J2:P" & R)
- Brr = Range("L2:M" & R)
- For i = 1 To UBound(Arr)
- If Arr(i, 1) = "品名" Then Erase S: GoTo 101
- If Arr(i, 1) = "合計" Then
- Brr(i, 1) = S(1) '箱數合計
- Brr(i, 2) = S(2) '瓶數合計
- Erase S: GoTo 101
- End If
- Brr(i, 1) = "": Brr(i, 2) = ""
- V1 = Val(Arr(i, 6)) '包裝數
- V2 = Val(Arr(i, 7)) '訂購數
- If Arr(i, 2) = "" Or V1 = 0 Then GoTo 101
- Brr(i, 1) = Int(V2 / V1) '箱數
- S(1) = S(1) + Brr(i, 1) '箱數累計
- Brr(i, 2) = V2 Mod V1 '瓶數
- S(2) = S(2) + Brr(i, 2) '瓶數累計
- 101: Next i
- Range("L2:M" & R) = Brr
- End Sub
 理貨單_另一格式.rar (91.42 KB)
|
|
發表於 2020-2-13 22:15
| 
