|
本帖最后由 panhua0624 于 2023-12-30 13:00 编辑
Private Sub CommandButton1_Click()
' 保存订单 Macro
With Sheets("插头线计划表")
x = .Range("a65536").End(xlUp).Row + 1 '取得“插头线计划表”表中最后一个空行的行号(即写入位置)
For i = 0 To Application.WorksheetFunction.CountA([B5:B300]) - 1 '商品信息分五行,为了简化代码,使用循环语句
.Cells(x + i, 1) = [O2] '日期
.Cells(x + i, 2) = Cells(i + 5, 1) '商品编码
.Cells(x + i, 3) = Cells(i + 5, 2) '客户
.Cells(x + i, 4) = Cells(i + 5, 3) '型号规格
.Cells(x + i, 5) = Cells(i + 5, 26) '米数
.Cells(x + i, 6) = Cells(i + 5, 18) '插头
.Cells(x + i, 7) = Cells(i + 5, 19) '尾巴
.Cells(x + i, 8) = Cells(i + 5, 21) '铜铁套
.Cells(x + i, 9) = Cells(i + 5, 14) '数量
Next
End With
End Sub
保存的时候把下面空白的表格也给记录过来了,因为下面空白表格里有公式,要怎么弄才能把下面空白的不要保存过来,如果想在J列填公式(=IF(K2="",TODAY()-A2,IF(K2>0,K2-A2)))怎么写,各位大侠帮忙看下
|
|