vba - 按下命令按钮时限定符无效

Question

下面的代码假设验证第 23 列的范围是否只有数值。按下命令按钮时，我在行上收到错误Invalid QualifierIf Not IsNumeric(sh1.Cells(k, 23)).Value Then。必须感谢任何解决问题的帮助。请在下面找到代码。

注意：代码需要在命令按钮下。

Private Sub CommandButton1_Click()


Dim k As Long
Dim sh1 As Worksheet, wb1 As Workbook

Set wb1 = Excel.ActiveWorkbook
Set sh1 = wb1.Worksheets(1)


    Application.EnableEvents = False


For k = 5 To 1000

        If Not IsNumeric(sh1.Cells(k, 23)).Value Then
                sh1.Cells(k, 23).Interior.Color = RGB(255, 0, 0)
        ElseIf sh1.Cells(k, 23).Value = "" Then
                sh1.Cells(k, 23).Interior.Color = RGB(255, 255, 255)

        Else
                sh1.Cells(k, 23).Value = WorksheetFunction.Round(sh1.Cells(k, 23).Value, 0)
                sh1.Cells(k, 23).Interior.Color = RGB(255, 255, 255)
End If


        Next k
        Application.EnableEvents = True



End Sub

标签： vbaexcel

Answer 1

您将支架放在错误的位置 - 它应该是：

If Not IsNumeric(sh1.Cells(k, 23).Value) Then