Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Условное форматирование сравнение данных двух листов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Условное форматирование сравнение данных двух листов (Формулы/Formulas)
Условное форматирование сравнение данных двух листов
koyaanisqatsi Дата: Понедельник, 08.02.2016, 16:15 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 643
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте. Я сделал условное форматирование сравнивающее две таблицы если в "Заявках" значение больше чем "Лист2" то на "Лист2" помечается подкрасочкой ячейки. Но хотелось бы еще видеть насколько больше значение в ячейке листа "Заявки". Если оба значения не возможно увидеть можно ли так сделать чтобы поверх заливки еще отображалось число из листа "Заявки" ?

Спасибо.
К сообщению приложен файл: 111112222.xlsx(12Kb)
 
Ответить
СообщениеЗдравствуйте. Я сделал условное форматирование сравнивающее две таблицы если в "Заявках" значение больше чем "Лист2" то на "Лист2" помечается подкрасочкой ячейки. Но хотелось бы еще видеть насколько больше значение в ячейке листа "Заявки". Если оба значения не возможно увидеть можно ли так сделать чтобы поверх заливки еще отображалось число из листа "Заявки" ?

Спасибо.

Автор - koyaanisqatsi
Дата добавления - 08.02.2016 в 16:15
Manyasha Дата: Понедельник, 08.02.2016, 17:19 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1997
Репутация: 829 ±
Замечаний: 0% ±

Excel 2010, 2016
koyaanisqatsi, здравствуйте.
Я придумала так (по событию Selection добавляется примечание):
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("d2:x" & lr).ClearComments
    If Not Intersect(Target, Range("d2:x" & lr)) Is Nothing Then
        dif = Sheets("заявки").Range(Target.Address) - Target.Value
        If dif > 0 Then
            With Target
                .AddComment
                .Comment.Visible = True
                .Comment.Text Text:=CStr(dif)
            End With
        End If
    End If
End Sub
[/vba]
К сообщению приложен файл: 111112222-1.xlsm(21Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеkoyaanisqatsi, здравствуйте.
Я придумала так (по событию Selection добавляется примечание):
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("d2:x" & lr).ClearComments
    If Not Intersect(Target, Range("d2:x" & lr)) Is Nothing Then
        dif = Sheets("заявки").Range(Target.Address) - Target.Value
        If dif > 0 Then
            With Target
                .AddComment
                .Comment.Visible = True
                .Comment.Text Text:=CStr(dif)
            End With
        End If
    End If
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 08.02.2016 в 17:19
koyaanisqatsi Дата: Понедельник, 08.02.2016, 17:29 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 643
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
Manyasha, Гениальная Красота !!!

Я столько времени тратил чтобы сравнивать одно с другим )))) Ну и редко делал потому что времяемкая работа. А чем чаще делать тем данные будут достовренее. Вторая таблица это планка максимальная заказа по данному виду товара. Чтобы уменьшать вероятность косяков тех кто заявки в компьютер разносит.

Огромное спасибо.

PS: Залихватски закрутили )))) Я даже разгадать не могу. ... Осенило ! Разгадал ))))


Сообщение отредактировал koyaanisqatsi - Вторник, 09.02.2016, 09:35
 
Ответить
СообщениеManyasha, Гениальная Красота !!!

Я столько времени тратил чтобы сравнивать одно с другим )))) Ну и редко делал потому что времяемкая работа. А чем чаще делать тем данные будут достовренее. Вторая таблица это планка максимальная заказа по данному виду товара. Чтобы уменьшать вероятность косяков тех кто заявки в компьютер разносит.

Огромное спасибо.

PS: Залихватски закрутили )))) Я даже разгадать не могу. ... Осенило ! Разгадал ))))

Автор - koyaanisqatsi
Дата добавления - 08.02.2016 в 17:29
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Условное форматирование сравнение данных двух листов (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!