Question

我需要一些简单的VBA代码才能工作，但是我不断收到运行时错误424。

我查看了很多其他帖子，但没有找到任何可以帮助我的内容

我想要做的就是Vlookup的id为“individual”，并在ApplySublimits工作表中找到它。

Sub CommandButton1_Click()
    Dim individual As String
    Dim individualCap As Single
    Dim subRange As Range

    Set subRange = ApplySublimits.Range("B:D")
    individual = "D02065"

    Range("C10").Value = individual

    individualCap = Application.WorksheetFunction.VLookup(individual, subRange, 2, False)
End Sub

我一直收到这个错误，但我不明白为什么。我非常擅长excel并希望得到一些帮助或指导。

Answer 1

单个（浮点数）如何保存以D开头的内容。它不是0-9。如果是十六进制，那么＆amp; hD02065就是这样做的。加号不包含在引号中。

Answer 2

声明并设置applysublimits作为工作表

将individualCap更改为字符串

e.g。

Sub CommandButton1_Click()
    Dim individual As String
    Dim individualCap As String
    Dim subRange As Range
    Dim applysublimits As Worksheet

    Set applysublimits = Sheets("Sheet1")
    Set subRange = applysublimits.Range("B:D")
    individual = "D02065"

    Range("C10").Value = individual

    individualCap = Application.WorksheetFunction.VLookup(individual, subRange, 2, False)
End Sub

运行时错误424编译错误，需要对象 - VBA Excel

2 个答案: