выделение ячейки с одинаковым содержимым

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » выделение ячейки с одинаковым содержимым (Форматирование/Formattings)

TanyaZorina

Дата: Четверг, 17.03.2016, 20:04 | Сообщение № 1

Группа: Пользователи

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

Сообщений: 86

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

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

Excel 2007

подскажите пожалуйста как сделать так чтобы при нажатие на ячейку с названием к примеру Barcelona (как в моём примере) выделились все ячейки с данным названием, что бы легче было ориентироваться в списке.

К сообщению приложен файл: _Microsoft_Offi.xlsx (11.4 Kb)

Ответить

Nic70y

Дата: Четверг, 17.03.2016, 20:12 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

вариант без макросов УФ и жать F9

Код

=ДВССЫЛ(ЯЧЕЙКА("address"))=D1

К сообщению приложен файл: 3606374.xlsx (11.8 Kb)

ЮMoney 41001841029809

Ответить

TanyaZorina

Дата: Четверг, 17.03.2016, 20:26 | Сообщение № 3

Группа: Пользователи

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

Сообщений: 86

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

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

Excel 2007

Цитата Nic70y, 17.03.2016 в 20:12, в сообщении № 2

УФ и жать F9

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

Ответить

Nic70y

Дата: Четверг, 17.03.2016, 20:28 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

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

ЮMoney 41001841029809

Ответить

TanyaZorina

Дата: Четверг, 17.03.2016, 20:31 | Сообщение № 5

Группа: Пользователи

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

Сообщений: 86

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

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

Excel 2007

ок, спасибочки)

Ответить

МВТ

Дата: Четверг, 17.03.2016, 20:42 | Сообщение № 6

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

Ранг: Обитатель

Сообщений: 476

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

Замечаний: 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 (19.0 Kb)

Ответить

TanyaZorina

Дата: Четверг, 17.03.2016, 22:08 | Сообщение № 7

Группа: Пользователи

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

Сообщений: 86

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

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

Excel 2007

Цитата МВТ, 17.03.2016 в 20:42, в сообщении № 6

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

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

Ответить

Страница 1 из 1
1