VLookUp и форматирование - PullRequest
Новая
       13

VLookUp и форматирование

0 голосов
/ 15 января 2020

Мне нужно вернуть значения из листа «Вчера» вместе с форматированием в лист «Сегодня». Я использовал код, который создал специальную функцию «Vlookup», но он не может перенести исходное форматирование на лист «Сегодня».

Этот код находится в объекте Sheet3 (Today) 

    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Range(xDic.Items(I)).Copy
                Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
End Sub

Это в Модуле 1. 

Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepFormat = " "
        xDic.Add Application.Caller.Address, " "
    Else
        LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
    End If
    Application.ScreenUpdating = True
End Function

Затем я использовал формулу = LookupKeepformat (N2, Вчера! $ A $ 1: $ O $ 1000,14) в листе «Сегодня» , Просто мне нужно перенести значение и формат на лист «Сегодня».

...