автосортировка текста по цвету

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

автосортировка текста по цвету (Формулы/Formulas)

giokara1

Дата: Воскресенье, 28.06.2015, 15:54 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Добрый день! Помогите пожалуйта! Например по вертикали в каждой ячейке записаны фамилии пациентов, создано правило условного форматирования, что если например в ячейе J2 вписать слово "выписан", то фамилия зачеркивается и заливается определенным цветом. При ручной сортировке по цвету, зачеркнутая фамилия с заливкой перемещается либо вверх либо вниз, всё это понятно! Но как мне это все автоматизировать? то есть при каждом вводе слова "выписан", фамилия перемещается автоматически вверх или вниз? Шаблон прилагаю!

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

Ответить

Serge_007

Дата: Воскресенье, 28.06.2015, 16:28 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата giokara1, 28.06.2015 в 15:54, в сообщении № 1

при каждом вводе слова "выписан", фамилия перемещается автоматически вверх или вниз?

Это только макросом можно

ЮMoney:41001419691823 | WMR:126292472390

Ответить

vikttur

Дата: Воскресенье, 28.06.2015, 16:39 | Сообщение № 3

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

Ранг: Участник клуба

Сообщений: 2941

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

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

Макрорекодер и немного корректировки (код в модуле листа):
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Cells.Count > 1 Then Exit Sub
      If Not Application.Intersect(Range("E:E"), Target) Is Nothing Then
          Application.EnableEvents = False

          With Sort
              .SortFields.Add Key:=Range("E2:E" & UsedRange.Rows.Count), _
                      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
              .SetRange Range("A2:E" & UsedRange.Rows.Count)
              .Header = xlGuess
              .MatchCase = False
              .Orientation = xlTopToBottom
              .SortMethod = xlPinYin
              .Apply
          End With

          Application.EnableEvents = True
      End If
End Sub

[/vba]
Сортируем по значению столбца Е