vba输入错误请重新输入

VBA（Visual Basic for Applications）是一种强大的脚本语言，可以用来创建宏和自动化办公应用程序。如果输入错误，可以通过检查程序代码，并尝试重新输入正确的代码，来解决问题。

软件版本：Office2007 方法如下： 在VBA中如果使用了系统不认可的对象表示方法等，例如下面的Range表示方法，系统就不认可： 这样，在运行程序时，就会提示错误： 将代码中的错误更正，用正确的表示方法来使用对象或应用程序，就不会出错了：

Private Sub CommandButton1_Click()

Dim p(1 To 6) As Integer

Dim S(1 To 6, 1 To 6) As Integer

For i = 1 To 6

p(i) = Sheet1.Cells(1070, i)

Next i

For i = 1 To 6

For j = 1 To 6

S(i, j) = 0

For k = 1 To 1070

S(i, j) = S(i, j) + (Sheet1.Cells(k, i) - p(i)) * (Sheet1.Cells(k, j) - p(j))

Next k

S(i, j) = S(i, j) / 1069

Sheet2.Cells(i, j) = S(i, j)

If i <>j Then Sheet2.Cells(j, i) = S(i, j)

Next j

Next i

End Sub

---