Excel VBA中的Vlookup日期

Question

我正在使用 3 张 Excel 表格。在 工作表起始页 我有 从 A4 列开始的日期 向下。宏 V 在工作表 Fund Trend 中查找位于列 A11 到 lastrow 中的相同日期并偏移 3 列，并将值复制到工作表 "Accrued从 Range("C7") 开始的费用"。宏循环直到 sheet("Start page") Range("A4") 中的最后一行。

问题是宏在某些情况下没有将值填充到应计费用表中。 或它没有找到日期。我的代码如下：

Sub NetAsset_Value()
Dim result As Double
Dim Nav_Date As Worksheet
Dim fund_Trend As Worksheet
Dim lRow As Long
Dim i As Long

Set Nav_Date = Sheets("Start page")
Set fund_Trend = Sheets("Fund Trend")
lRow = Sheets("Start page").Cells(Rows.Count, 1).End(xlUp).row

 For i = 4 To lRow



result = Application.WorksheetFunction.VLookup(Nav_Date.Range("A" & i), fund_Trend.Range("A11:C1544"), 3, False)

            Sheets("Accrued Expenses").Range("C" & i + 3).Value = result
             Sheets("Accrued Expenses").Range("C" & i + 3).NumberFormat = "0.00"
         Sheets("Accrued Expenses").Range("C" & i + 3).Style = "Comma"




    Next i

End Sub

错误陷阱：

On Error Resume Next

result = Application.WorksheetFunction.VLookup(Nav_Date.Range("A" & i), fund_Trend.Range("A11:C1544"), 3, False)

        If Err.Number = 0 Then

            Sheets("Accrued Expenses").Range("C" & i + 3).Value = result
             Sheets("Accrued Expenses").Range("C" & i + 3).NumberFormat = "0.00"
         Sheets("Accrued Expenses").Range("C" & i + 3).Style = "Comma"
        End If


        On Error GoTo 0

为了解决日期问题，我有这个子不知道这是否有效？

Sub dates()
Sheets("Start page").Range("A4", "A50000").NumberFormat = "dd-mm-yyyy"
Sheets("Fund Trend").Range("A11", "A50000").NumberFormat = "dd-mm-yyyy"
End Sub

我现在遇到的问题是，当输入像 2015 年 11 月 2 日这样的日期时，它会切换到 2015 年 2 月 11 日。但它并非发生在所有日期

克服问题。我放置了一个工作表函数来强制日期列为文本。目前正在工作。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Start page").Range("A4", "A50000").NumberFormat = "@"
Sheets("Fund Trend").Range("A11", "A50000").NumberFormat = "@"
End Sub

Answer 1

要避免 1004 错误，您可以使用 Application.VLookup 函数，该函数允许错误类型作为返回值。使用此方法测试是否有错误，如果没有错误，则返回结果。

为此，您必须Dim result as Variant，因为（在此示例中）我在result 中放置了一个文本/字符串值以帮助识别错误发生。

If IsError(Application.Vlookup(Nav_Date.Range("A" & i), fund_Trend.Range("A11:C1544"), 3, False)) Then
    result = "date not found!"
Else
    result = Application.WorksheetFunction.VLookup(Nav_Date.Range("A" & i), fund_Trend.Range("A11:C1544"), 3, False)
End If

“工作表中没有打印结果”需要您进一步调试。对于任何给定的查找值，您是否已单步执行代码以确保 result 是您所期望的？如果没有错误，那么几乎肯定发生的是您输入的公式返回一个空字符串并且该值被放入单元格中。