向 Excel VB 公式修改寻求帮助

没有文件，没有问题，没有人可以更改它。

你把。 specialcells(xlcelltypeconstants,23).locked = true

已更改为。 specialcells(xlcelltypevisible).locked = true 以查看它是否是您想要的效果。

如果您有任何问题，请继续提出问题并相互讨论和学习！

你的 0 赏金问题真的很麻烦。 告诉你出路，用自定义函数替换你的一堆公式。 然后只需在单元格 A2 及以下输入自定义功能即可。

对于这个，我建议现在对所有其他工作表进行排序，然后使用一个简单的公式导入数据：

编写程序需要很长时间和精力，而且你没有很多数据，你可以将数据复制粘贴到一个系列中，对其进行排序，然后用你的 44 行将其复制到您想要的位置。 这样做更简单。

溢出问题可以通过 ON 错误来解决。

发送键不容易做到，不在同一个界面上！

它没有溢出，而是溢出。 count 属性是 2003 及更早版本中使用的属性，当时工作表中的最大列数为 65536，最大列数为 256，因此计数值的范围设置为长整型：

在2007版本之后，整个工作表中的单元格数超过了长整数，并添加了另一个属性countlarge，您可以将>1更改为>1以解决溢出问题。

专业解决VBA问题，你有很多问题。

private sub workbook_open()

for i = 2 to range("a65535").end(xlup).row

sheets("sheet1").cells(i, 3) = sheets("sheet1").cells(i, 1) *sheets("sheet1").cells(i, 2)

next i

end sub

注意：以上假设您的第一行是标题，并且**从第二行开始。 以上是打开时的**。 把它放在 wrokbook 的开放事件下。

private sub worksheet_change(byval target as range)

if < 3 then

cells(, 3) = cells(, 1) *cells(, 2)

end if

end sub

以上是您的第二个要求，它位于 sheet1（当前工作表）中的 change 事件下。

以上已经过我验证过了，可以通过。 如果您不明白，请自行研究。

实际上，VBA也是通过公式计算的。

您可以将控件添加到“金额”中，添加其单击事件，然后进行计算。

用VBA解决它但是我能想到的方法不如公式有效......