свой VLOOKUP (ВПР) как раскрасить найденные значения

Страница 1 из 1 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK

Мир MS Excel » Вопросы и решения » Вопросы по VBA » свой VLOOKUP (ВПР) как раскрасить найденные значения (Макросы/Sub)

Flatcher

Дата: Суббота, 21.05.2016, 08:49 | Сообщение № 1

Группа: Проверенные

Ранг: Участник

Сообщений: 77

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте. Имеется собственная функция VLOOKUP (ВПР) с доработкой по поиску n найденного значения. Подскажите пожалуйста как можно сделать автоматическую раскраску тех значений которые нашел VLOOKUP (ВПР). Все данные в примере.

К сообщению приложен файл: Forum.xlsm(16.1 Kb)

Ответить

Karataev

Дата: Суббота, 21.05.2016, 09:45 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1208

Репутация: 456 ±

Замечаний: 0% ±

Excel

Применение заливки (возможно и другие действия) прерывают работу собственной функции и функция возвращает ошибку "#ЗНАЧ!". Поэтому нужно отказаться от собственной функции, а запускать макрос другим способом. Например, можно использовать событие "Worksheet_Change".

Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288

Ответить

SLAVICK

Дата: Суббота, 21.05.2016, 10:00 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2183

Репутация: 735 ±

Замечаний: 0% ±

2007,2010,2013,2016

просто так изменять заливки нельзя - это приведет к ошибке, (Karataev уже написал об этом) а вот цвет шрифта скопировать можно.

:
[vba]

Код

Function VLOOKUP2(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
                    N As Integer, ResultColumnNum As Integer)
    Dim i As Integer
    Dim iCount As Integer

        For i = 1 To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                VLOOKUP2 = Table.Cells(i, ResultColumnNum)
                Application.Caller.Cells(1, 1).Font.Color = Table.Cells(i, ResultColumnNum).Font.Color
                Exit For
            End If
        Next i
End Function

[/vba]
Или заменить функцию на макрос, но тогда не будет работать отмена действий.
можно попробовать почитать эту тему там Gustav, умудрился изменять и цвет ячейки - но там есть свои нюансы.

К сообщению приложен файл: 3891973.xlsm(17.2 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Flatcher

Дата: Суббота, 21.05.2016, 10:19 | Сообщение № 4

Группа: Проверенные

Ранг: Участник

Сообщений: 77

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

SLAVICK, можно и изменить цвет шрифта. Только мне наоборот надо - чтобы цвет менялся на листе данные . Цель понять какие данные впр "втащил" в отчет а какие нет