利用VBA依据条件自动输入指定函数公式

SCWYZJ

求助:为了美观好看，避免输入过多无用的函数公式。如何利用VBA代码实现，依据条件自动输入指定函数公式，单条件不具备时，自动清空输入的函数公式。（详见附件举例）。烦请老师帮忙看看，如何写代码，

ykcbf1100

你都用VBA了，还有必要再用公式吗？
直接用VBA计算出结果不就完了。

ykcbf1100

完全不需要公式。

ykcbf1100

代码也很简单。

1. Sub ykcbf()  '//2024.7.7
   
2.     r = Cells(Rows.Count, 3).End(3).Row
   
3.     Columns(2).NumberFormatLocal = "@"
   
4.     For i = 5 To r
   
5.         m = m + 1
   
6.         Cells(i, 2) = Format(m, "000")
   
7.         Cells(i, "i") = Cells(i, "g") * Cells(i, "h")
   
8.     Next
   
9.     MsgBox "OK！"
   
10. End Sub
    

复制代码

ynzsvt

只对G列的改变响应。

SCWYZJ

老师，您们的代码都没效果。我想要的是如图示：我就想学习如何用代码来代替写不同的嵌套函数。或利用代码直接从别的地方调用指定的函数填充到单元格里的方法。麻烦老师们再帮忙看看，谢谢