VBA代码报错Runtime Error 1004：无法获取WorksheetFunction的VLookup属性

错误原因 #

1. 查找值错误：你在VLookup中使用了字符串常量"Username"作为查找值，而非用户输入的变量Username，导致程序试图查找文本"Username"，而非实际输入的用户名。
2. WorksheetFunction.VLookup的缺陷：当查找不到匹配项时，这个方法会直接抛出1004运行时错误，无法通过IsError捕获错误——因为错误在赋值阶段就已经触发了。

修复后的代码 #

Private Sub CommandButton1_Click()
    Dim Username As String
    Dim Password As String
    Dim LookupPassword As Variant
    Dim LookupPermission As Variant
    
    Username = user.Value
    Password = pass.Value
    
    ' 改用Application.VLookup，查找值使用变量Username
    LookupPassword = Application.VLookup(Username, Range("UNT"), 3, 0)
    LookupPermission = Application.VLookup(Username, Range("UNT"), 4, 0)
    
    ' 先检查用户名是否存在
    If IsError(LookupPassword) Then
        MsgBox "用户名不存在"
        Exit Sub
    End If
    
    ' 验证密码是否匹配
    If Password <> LookupPassword Then
        MsgBox "密码错误"
        Exit Sub
    End If
    
    ' 合并重复逻辑，用Select Case处理权限判断
    Select Case LookupPermission
        Case "View", "Admin", "DataEntry"
            Application.Visible = True
        Case Else
            MsgBox "权限异常"
    End Select
End Sub

关键修改点 #

• 修正查找值：将"Username"替换为变量Username，确保查找用户输入的实际用户名。
• 替换查找方法：用Application.VLookup替代WorksheetFunction.VLookup，查找失败时会返回错误值，可通过IsError正常捕获。
• 优化逻辑：用Select Case简化重复的权限判断分支，同时细化提示信息，让用户明确错误类型。

内容的提问来源于stack exchange，提问作者Abdulrahman El-Sayed