Question

我有一个小的用户表单，其中包含一个组合框和2个文本框以及提交按钮。

在按下提交按钮的同时，我得到的对象变量没有设置错误。

这是我的代码：

Private Sub CommandButton1_Click()

Dim ws As Worksheet, tbl As ListObject, row As ListRow

Set ws = Sheets("Create Account Heads")
Set tbl = ws.ListObjects(Me.TextBox2.Value)

Dim intValueToFind As String, rng As Range

Set rng = tbl.ListColumns(1).DataBodyRange    
intValueToFind = LCase(Me.TextBox3.Value)

If rng <> 0 Then
    For Each rng In rng
        If LCase(rng.Value) = intValueToFind Then
            MsgBox ("Account Head with this Name Already Exists.")
            Exit Sub
        End If
    Next rng
Else
    'Unprotect the Worksheet
    ws.Unprotect Password:="google"
End if

End Sub

我在＆＃34中收到错误;如果rng＆lt;＆gt; 0然后＆＃34;线。

请审核并建议克服此问题。

由于萨勒曼

Answer 1

替换以下行代码：

If rng <> 0 Then

使用：

If Not rng Is Nothing Then

代码给出对象块变量错误

1 个答案: