重新安装Windows后运行宏

Question

一周前，我删除了Windows 10专业版，然后将其重新安装到我的电脑上。然后，我也再次安装了MS Office 2013（64位）。不幸的是，我无法在PC中使用宏。它给出了运行时错误9。

Private Sub CommandButton2_Click()

For i = 17 To 512
For j = 1 To 9
Worksheets("İstekFişi").Cells(i, j).Value = ""
Next j
Next i

Sheets("İstekFişi").Range("P14").Value = Sheets("İstekFişi").Range("P14").Value + 1

MsgBox "The SpreadSheet is clean now!"

Unload Me

End Sub

通过此宏在另一台PC上正常工作的方式。附言在我重新安装Windows之前，我的宏在我的PC中工作正常。

有人跟我住同样的问题吗？有没有办法解决这个问题？

祝你有美好的一天。

Answer 1

代替

For i = 17 To 512
For j = 1 To 9
Worksheets("İstekFişi").Cells(i, j).Value = ""
Next j
Next i

使用

Worksheets("İstekFişi").Range("A17:I512").Value = vbNullString

如果您要引用的工作表名称不存在，即，请确保您没有重命名工作表或在Windows 10计算机上意外删除了工作表，也会出现

Run-time error 9。 （当然，如果您可以将文件保存并复制回旧计算机，并且可以在旧计算机上运行，​​但不能在新计算机上使用，则此方法不适用。