Question

宏最初是在64位excel 2016版本（从Office 365）上创建的，但我一直在32位2016版本（从Office 365）上进行处理。该宏可以在我的32位计算机上完美运行。但是，我为此工作的人正在使用64位版本的Excel 2016，他们说它一直在崩溃，但它并不一致，总是在不同地方崩溃，甚至偶尔运行正常。该代码不包含任何声明语句或long，因此我不确定为什么会发生这种情况或要怎么做。任何有关如何解决此问题或问题是什么的帮助将不胜感激。谢谢。下面包含了已崩溃的代码副本。

Sub Formulas()

Dim rows As String

rows = CStr(Range("Sheet1!C31").Value)

Range("Sheet2!M2:M" & rows).Formula = "=((F2*1000)-(Sheet1!$C$13*(COS(2*PI()*(Sheet1!$C$15/360)))))*-1"
Range("Sheet2!N2:N" & rows).Formula = "=IF(G2<0,0,((G2+Sheet1!$C$19+Sheet1!$C$21)*Sheet1!$C$17))"
Range("Sheet2!O2:O" & rows).Formula = "=M2+N2"
Range("Sheet2!P2:P" & rows).Formula = "=O2/Sheet1!$C$23"
Range("Sheet2!Q2:Q" & rows).Formula = "=IF(OR(P2>(Sheet1!$C$25),P2<(Sheet1!$C$26)),1,0)"
Range("Sheet2!R2:R" & rows).Formula = "=IF(H2>0,1,0)"
Range("Sheet2!S2:S" & rows).Formula = "=IF(AND(Q2=1),(R2=1)*1,0)"
Range("Sheet2!B17").Formula = "=1-(SUM(S:S)/SUM(R:R))"
Range("Sheet1!C28") = Range("Sheet2!B17")

'Do While Not IsEmpty(ActiveCell.Value)
'     Range("Sheet2!M" & CStr(ActiveCell.Row)).EntireRow.Delete
'Loop


End Sub

我对vba和宏还很陌生，所以如果有人可以指出代码的哪些方面与64位不兼容，甚至建议如何解决它，我将不胜感激。谢谢。

Answer 1

代码最终没问题。我们必须按照以下“注册表信息”部分中的说明进行注册表修改：https://support.microsoft.com/en-us/help/3085435/august-8-2017-update-for-excel-2016-kb3085435

如何使在32位Excel 2016上编写的Macro在64位Excel 2016上工作

1 个答案: