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

Вход

Регистрация

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

 

= Мир MS Excel/выделение ячейки с одинаковым содержимым - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » выделение ячейки с одинаковым содержимым (Форматирование/Formattings)
выделение ячейки с одинаковым содержимым
TanyaZorina Дата: Четверг, 17.03.2016, 20:04 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
подскажите пожалуйста как сделать так чтобы при нажатие на ячейку с названием к примеру Barcelona (как в моём примере) выделились все ячейки с данным названием, что бы легче было ориентироваться в списке.
К сообщению приложен файл: _Microsoft_Offi.xlsx(11Kb)
 
Ответить
Сообщениеподскажите пожалуйста как сделать так чтобы при нажатие на ячейку с названием к примеру Barcelona (как в моём примере) выделились все ячейки с данным названием, что бы легче было ориентироваться в списке.

Автор - TanyaZorina
Дата добавления - 17.03.2016 в 20:04
Nic70y Дата: Четверг, 17.03.2016, 20:12 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3493
Репутация: 724 ±
Замечаний: 0% ±

Excel 2013
вариант без макросов УФ и жать F9
Код
=ДВССЫЛ(ЯЧЕЙКА("address"))=D1
К сообщению приложен файл: 3606374.xlsx(12Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениевариант без макросов УФ и жать F9
Код
=ДВССЫЛ(ЯЧЕЙКА("address"))=D1

Автор - Nic70y
Дата добавления - 17.03.2016 в 20:12
TanyaZorina Дата: Четверг, 17.03.2016, 20:26 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
УФ и жать F9

извините за моё невежество но что это "УФ"
 
Ответить
Сообщение
УФ и жать F9

извините за моё невежество но что это "УФ"

Автор - TanyaZorina
Дата добавления - 17.03.2016 в 20:26
Nic70y Дата: Четверг, 17.03.2016, 20:28 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3493
Репутация: 724 ±
Замечаний: 0% ±

Excel 2013
Условное форматирование


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
СообщениеУсловное форматирование

Автор - Nic70y
Дата добавления - 17.03.2016 в 20:28
TanyaZorina Дата: Четверг, 17.03.2016, 20:31 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
ок, спасибочки)
 
Ответить
Сообщениеок, спасибочки)

Автор - TanyaZorina
Дата добавления - 17.03.2016 в 20:31
МВТ Дата: Четверг, 17.03.2016, 20:42 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 136 ±
Замечаний: 0% ±

Excel 2007
Или макросом на событие выделения ячейки
[vba]
Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    Dim Rng As Range: Set Rng = Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    If Intersect(Rng, Target) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim i As Long, addr As String, arr: arr = Rng.Value
    Rng.Interior.Color = vbWhite
    For i = 1 To UBound(arr)
        If arr(i, 1) = Target Then If addr = "" Then addr = "D" & i Else addr = addr & ", D" & i
    Next
    Range(addr).Interior.Color = vbRed
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 6180589.xlsm(19Kb)
 
Ответить
СообщениеИли макросом на событие выделения ячейки
[vba]
Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    Dim Rng As Range: Set Rng = Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    If Intersect(Rng, Target) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim i As Long, addr As String, arr: arr = Rng.Value
    Rng.Interior.Color = vbWhite
    For i = 1 To UBound(arr)
        If arr(i, 1) = Target Then If addr = "" Then addr = "D" & i Else addr = addr & ", D" & i
    Next
    Range(addr).Interior.Color = vbRed
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - МВТ
Дата добавления - 17.03.2016 в 20:42
TanyaZorina Дата: Четверг, 17.03.2016, 22:08 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
Или макросом на событие выделения ячейки

то что надо!!!! Благодарю respect
 
Ответить
Сообщение
Или макросом на событие выделения ячейки

то что надо!!!! Благодарю respect

Автор - TanyaZorina
Дата добавления - 17.03.2016 в 22:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » выделение ячейки с одинаковым содержимым (Форматирование/Formattings)
Страница 1 из 11
Поиск:

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