vlookup中的值公式

时间:2017-02-13 18:10:52

标签: vlookup

我有一个包含多个标签的excel文件,其中一个标签仅用于报告。在该选项卡上,我想使用vba代码从不同的选项卡中获取信息,我可以在页面上执行vlookup并且它可以工作,但我想在vba代码上使用它。

问题在于,如果我执行vlookup,我没有得到任何结果,但如果我在项目中添加一个VALUE()公式,我会搜索,我会得到结果。

Private Sub Worksheet_Change(ByVal Target As Range)


Application.ScreenUpdating = False

'Daily
If Not Intersect(Target, Range("B8:D8")) Is Nothing Then

    Range("F8:F12").Select
    Selection.Copy
    Range("XEZ1048317").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Target.Select
    Range("G8").Value = Application.WorksheetFunction.VLookup(Range("XEZ1048317"), Sheets("IPCM Call Center Stats").Range("Table3"), 4, False)

End If

Application.ScreenUpdating = True

End Sub

我试图在vba上做同样的事情,但是无法让它工作,要搜索的数据是一个日期,所以我认为这可能是日期存储时间和我读过的几件事的问题但是如果我将单元格转换为数字都是相同的,所以它应该找到信息。我甚至尝试在不同的单元格上粘贴信息以确保公式不会出现问题,Code看起来有点像这样,任何帮助都会非常感激:

<a href="">

0 个答案:

没有答案