循环WorksheetFunction.Product的Excel VBA 1004错误

问题描述

正在创建VBA命令按钮。目的是循环乘积直到超过阈值。最终的循环迭代将打印在excel电子表格中。但是，“ Do While ....”行会触发附加图像的1004错误。您对修改以下代码有任何建议吗？

谢谢您的时间:) Screenshot

Private Sub CommandButton1_Click()

Dim i As Integer
i = 1

Do While WorksheetFunction.Product([Cells(4,16):Cells((i + 3),16))]) < Cells(4,22)
    WorksheetFunction.Product [Cells(4,16))]

Loop

Cells(4,17) = i

End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）