宏记录

panhua0624

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))）怎么写，各位大侠帮忙看下

半百

看看是不是这样？

panhua0624

半百 发表于 2023-12-30 14:16
看看是不是这样？

空白解决了，但是J列公式套进去是这样的=IF(RC11="",TODAY()-RC1,IF(RC11>0,RC11-RC1))

半百

panhua0624 发表于 2023-12-30 14:31
空白解决了，但是J列公式套进去是这样的=IF(RC11="",TODAY()-RC1,IF(RC11>0,RC11-RC1))

这样看看

panhua0624

半百 发表于 2023-12-30 16:41
这样看看

谢谢大侠 可以了

ykcbf1100

半百 发表于 2023-12-30 14:16
看看是不是这样？

你真有耐心，点赞。
看别人代码比新写一个还累。