- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-25
|
26#
發表於 2020-6-13 16:51
| 只看該作者
回復 25# BV7BW
Sub 送貨單_載入()
Dim CN&
Call 送貨單_清除單身
With Sheets("送貨單")
If .[A6] = 0 Then MsgBox "**[單號]錯誤或未輸入! ": Exit Sub
.[A7] = "=IF(ROW(A1)>B$6,"""",ROW(A1))"
.[B7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!C:C,A$6+A7-1))"
.[C7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!D:D,A$6+A7-1))"
.[E7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!E:E,A$6+A7-1))"
.[F7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!F:F,A$6+A7-1))"
.[G7] = "=IF(N(A7)=0,"""",N(E7)*N(F7))"
'-----------------------------------------
CN = Application.Ceiling(.[B6].Value, 15) '以15為倍數, 計算所需行數
If CN > 1 Then .[A7:K7].Copy .[A8:K8].Resize(CN - 1) '用第一行格式複製所需行數
.[H7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!M:M,A$6+A7-1)&"""")" '採購單號
'-----------------------------------------
.Range("A1:K" & CN + 6).Name = "'" & .Name & "'!Print_Area" '列印範圍
.Range("1:6").Name = "'" & .Name & "'!Print_Titles" '列印表頭
End With
End Sub
那個 N 改成 CN ..應是不小心刪掉了...小事...認真點去看..自己也可去修正的
'=========================================== |
|
發表於 2020-5-28 21:36
| 
