Как перечеркнуть ячейки в Excel крестом: от ручного метода до автоматизации

Перечеркивание ячеек крестом в Microsoft Excel — задача, с которой сталкиваются пользователи при работе с чек-листами, отчетными формами или инвентаризационными ведомостями. Нередко требуется визуально отметить выполненные пункты, аннулированные записи или просто выделить определенные данные. К сожалению, в стандартном наборе инструментов Excel нет кнопки "Перечеркнуть крестом", но есть как минимум 5 рабочих способов добиться этого эффекта — от простейших до автоматизированных.

Многие пользователи ошибочно пытаются найти решение через меню Шрифт → Зачеркнутый, но это зачеркивает только текст, а не саму ячейку. Другие пробуют вставлять символ "✖" вручную, что занимает массу времени при работе с большими таблицами. На практике же существуют методы, которые позволяют перечеркнуть ячейки крестом за несколько кликов — с сохранением возможности редактирования данных и без нарушения структуры таблицы.

В этой статье мы разберем все актуальные способы — от использования условного форматирования с формулами до написания макросов на VBA. Вы узнаете, как сделать крест статичным или динамическим (автоматически появляющимся при выполнении условий), а также как избежать типичных ошибок при работе с перечеркнутыми ячейками.

1. Способ: Ручное перечеркивание через символы

Самый простой, но и самый трудоемкий метод — вставка символа креста непосредственно в ячейку. Он подходит для разовых задач, когда нужно перечеркнуть 5-10 ячеек. Для этого не требуется никаких специальных навыков, только знание того, где в Windows или Excel найти нужный символ.

В операционных системах Windows 10/11 крест можно вставить через таблицу символов:

1. Нажмите Win + . (точка) для открытия панели эмодзи.
2. Перейдите на вкладку Символы (значок Ω).
3. Найдите символы ✖ (жирный крест) или ✕ (тонкий крест) и кликните на них.

В самом Excel можно использовать комбинацию клавиш для вставки:

• 🔹 Жирный крест (✖): удерживайте Alt и наберите на цифровой клавиатуре 0158, затем отпустите Alt.
• 🔹 Тонкий крест (✕): Alt + 0215.
• 🔹 Математический крест (×): Alt + 0215 (аналогично предыдущему).

⚠️ Внимание: Если после вставки символа крест отображается как вопросительный знак или квадрат, проверьте кодировку шрифта в ячейке. Используйте шрифты Arial, Calibri или Times New Roman — они поддерживают юникодные символы.

Главный недостаток этого метода — при изменении содержимого ячейки крест исчезнет, так как он является частью текста. Если вам нужно, чтобы крест оставался на месте независимо от данных, используйте способы из следующих разделов.

2. Способ: Условное форматирование с формулами

Для тех, кто хочет автоматизировать процесс, подойдет условное форматирование с использованием формул. Этот метод позволяет перечеркивать ячейки крестом при выполнении определенных условий (например, если значение равно "Выполнено" или ячейка пустая).

Инструкция по настройке:

1. Выделите диапазон ячеек, которые нужно перечеркнуть (например, A1:D10).
2. Перейдите на вкладку Главная → Условное форматирование → Создать правило.
3. Выберите тип правила Использовать формулу для определения форматируемых ячеек.
4. В поле формулы введите:

   =ИЛИ($A1="Выполнено"; $A1="Отменено"; $A1="")

   (замените условия на свои).

5. Нажмите Формат и выберите вкладку Шрифт. В разделе Видоизменение установите галочку напротив зачеркнутый.
6. В поле Цвет текста выберите красный или серый, чтобы крест был заметнее.

Теперь при вводе в ячейку слов "Выполнено" или "Отменено" текст будет автоматически зачеркиваться. Чтобы вместо зачеркивания текста отображался крест, комбинируйте это правило с пользовательским форматом ячеек:

• 🔹 Выделите ячейки и нажмите Ctrl + 1 (открыть формат ячеек).
• 🔹 Перейдите на вкладку Число → Все форматы.
• 🔹 В поле Тип введите: ✖;✖;; (крест будет отображаться вместо любого значения).

3. Способ: Использование границ ячеек для имитации креста

Если вам не нужно именно перечеркивать содержимое ячейки, а достаточно визуально отметить ее крестом (например, для пометки неактуальных данных), можно использовать настройку границ. Этот метод не затрагивает текст внутри ячейки, но создает эффект перечеркивания за счет диагональных линий.

Пошаговая инструкция:

1. Выделите ячейку или диапазон ячеек, которые нужно перечеркнуть.
2. Нажмите правой кнопкой мыши и выберите Формат ячеек (или Ctrl + 1).
3. Перейдите на вкладку Граница.
4. В разделе Линия выберите стиль (рекомендуется сплошная линия толщиной 1–1.5 пт).
5. В разделе Направление кликните на обе диагонали (⤡ и ⤢), чтобы активировать их.
6. Выберите цвет линии (например, красный или серый) и нажмите ОК.

Преимущества этого метода:

• 🔹 Не влияет на содержимое ячейки — текст остается читаемым.
• 🔹 Крест сохраняется при изменении данных в ячейке.
• 🔹 Можно применять к целым диапазонам за один клик.

⚠️ Внимание: Если в ячейке уже есть текст, диагональные линии могут сливаться с ним. Чтобы улучшить видимость, используйте контрастные цвета (например, красный крест на белом фоне или черный на светло-сером).

Для удобства можно создать стиль ячейки с заранее настроенными границами:

1. Выделите ячейку с настроенными диагоналями.
2. На вкладке Главная в группе Стили нажмите Стили ячеек → Создать стиль ячейки.
3. Дайте стилю имя (например, "Перечеркнуто крестом") и сохраните.

Теперь вы сможете применять этот стиль к любым ячейкам в один клик.

4. Способ: VBA-макрос для автоматического перечеркивания

Для пользователей, работающих с большими таблицами, ручные методы могут быть слишком медленными. В этом случае поможет макрос на VBA, который перечеркнет выделенные ячейки крестом за секунды. Этот способ требует включенной поддержки макросов (файл должен быть сохранен как .xlsm).

Инструкция по созданию макроса:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. В меню выберите Insert → Module.
3. Вставьте следующий код:

   Sub CrossOutCells()
   Dim rng As Range
   Dim cell As Range
   Set rng = Selection
   
   For Each cell In rng
   With cell
   .Borders(xlDiagonalDown).LineStyle = xlContinuous
   .Borders(xlDiagonalUp).LineStyle = xlContinuous
   .Borders(xlDiagonalDown).Weight = xlThin
   .Borders(xlDiagonalUp).Weight = xlThin
   .Borders(xlDiagonalDown).Color = RGB(255, 0, 0) ' Красный цвет
   .Borders(xlDiagonalUp).Color = RGB(255, 0, 0)
   End With
   Next cell
   End Sub

4. Закройте редактор VBA.
5. Выделите ячейки, которые нужно перечеркнуть, и запустите макрос через Вид → Макросы → CrossOutCells → Выполнить.

Sub RemoveCrossFromCells()
Dim rng As Range
Dim cell As Range
Set rng = Selection

For Each cell In rng
With cell
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
Next cell
End Sub