请各位大神把我看看怎样清除单元格内容而不清除公式

三十一画生

怎样实现  点击“开单”，只清除单元个的内容，而不清除公式

我在 E5单元格里写有公式，当我点击开单后E5单元格的公式就没有了，但我想保留E5单元格的公式，用哪个代码来完成

3190496160

Sub 开单()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = es.Address
[h3] = "NO:BX-PGR2502" & Format(Right(Range("h3"), 3) + 1, "000")
[a5].Resize(8, 4) = Empty
[f5].Resize(8, 3) = Empty
[b3] = ""
[h13] = Date
[b13] = "本单据仅供公司内部物控使用"
[a13] = "制单：000"
End Sub

3190496160

3190496160

入库开单.rar (59.3 KB, 下载次数: 1)

2025-3-24 21:34 上传

点击文件名下载附件

朝露孤烟

你开单前，要打印的票据内容是手工录入的吗？为什么还要在E3写个公式。直接由代码算好，结果直接写到E3更好？

朝露孤烟

Sub 开单()
    Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
    a = es.Address
    [h3] = "NO:BX-PGR2502" & Format(Right(Range("h3"), 3) + 1, "000")
    'Range([a5], es.Offset(4)) = ""
    '[b3] = ""
    [a5:d12] = ""
    [f5:H12] = ""
    [h13] = Date
    [b13] = "本单据仅供公司内部物控使用"
    [a13] = "制单：000"
End Sub

三十一画生

3190496160 发表于 2025-3-24 21:33
Sub 开单()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = es.Address

这个代码的话，点击“开单”E5单元格的数据清除不了

三十一画生

朝露孤烟 发表于 2025-3-24 21:40
你开单前，要打印的票据内容是手工录入的吗？为什么还要在E3写个公式。直接由代码算好，结果直接写到E3更好 ...

也可以    不过这个代码有点难度：E5单元格的数量    是由H5一个单元个计算出来的（例如H5单元个是：50件*40），那么E5单元个的数量是2000

朝露孤烟

三十一画生 发表于 2025-3-25 14:36
也可以    不过这个代码有点难度：E5单元格的数量    是由H5一个单元个计算出来的（例如H5单元个是：50件 ...

不难，就是设定要清空数据的两个区域。你再看一下就明白了。

朝露孤烟

三十一画生 发表于 2025-3-25 14:16
这个代码的话，点击“开单”E5单元格的数据清除不了

你不是要保留公式吗？如果连E5也要清除，公式就没有了。当然，你把E5的公式改一下就好了。比如这样改：=IFERROR(EVALUATE(SUBSTITUTE(H5,"K","")),"")。