Перечёркнутый шрифт в Excel: все способы от формата ячеек до VBA

Зачёркнутый текст в Microsoft Excel — это не просто декоративный элемент, а мощный инструмент визуальной организации данных. С его помощью можно отмечать выполненные задачи в чек-листах, помечать устаревшие записи в отчётах или выделять исключённые варианты в аналитических таблицах. Однако многие пользователи сталкиваются с проблемой: в отличие от Word, где зачёркивание доступно в один клик, в Excel эта функция спрятана глубже.

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

1. Базовый способ: формат ячеек через ленту инструментов

Самый очевидный метод — использовать встроенные опции форматирования на главной панели. Он работает во всех версиях Excel от 2007 до 2023, а также в Excel for Microsoft 365. Вот как это сделать:

1. Выделите ячейку или диапазон, который нужно зачеркнуть.
2. Перейдите на вкладку Главная в верхнем меню.
3. В группе Шрифт нажмите на маленькую стрелку в правом нижнем углу (кнопка Дополнительные параметры шрифта).
4. В открывшемся окне Формат ячеек перейдите на вкладку Шрифт.
5. Поставьте галочку напротив опции Зачёркнутый и нажмите ОК.

⚠️ Внимание: Если вы используете Excel Online, этот метод может не сработать — в веб-версии опция зачёркивания часто отсутствует. В таком случае примените условное форматирование или VBA.

Выделили нужные ячейки (не всю строку!)

Убедились, что текст не объединён с другими ячейками

Проверлили версию Excel (в Online может не работать)

Сохранили файл перед изменениями-->

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

2. Горячие клавиши для быстрого зачёркивания

Для ускорения работы можно назначить сочетание клавиш на операцию зачёркивания. По умолчанию в Excel нет стандартной комбинации для этой функции, но её легко создать:

1. Нажмите Alt + F8, чтобы открыть окно Макрос.
2. В поле Имя макроса введите Strikethrough (или любое другое).
3. Нажмите Создать — откроется редактор VBA.
4. Вставьте этот код между строками Sub Strikethrough() и End Sub:

   With Selection.Font
   .Strikethrough = Not .Strikethrough
   End With

5. Закройте редактор и вернитесь в Excel.
6. Теперь назначьте макросу клавиши: Alt + F8 → выберите макрос → Параметры → укажите комбинацию (например, Ctrl + Shift + S).

Теперь при выделении ячейки и нажатии Ctrl + Shift + S текст будет зачёркиваться (или убирать зачёркивание, если оно уже было). Этот метод экономит время при работе с большими таблицами.

Каждый день

1-2 раза в неделю

Реже 1 раза в месяц

Никогда не использовал-->

3. Условное форматирование для динамического зачёркивания

Если вам нужно автоматически зачёркивать текст при выполнении определённого условия (например, при значении "Выполнено" или дате раньше сегодняшней), используйте условное форматирование:

1. Выделите диапазон ячеек (например, A1:A100).
2. Перейдите на вкладку Главная → Условное форматирование → Создать правило.
3. Выберите тип правила: Форматировать только ячейки, которые содержат.
4. В первом выпадающем списке укажите Текст, во втором — содержащий, в поле введите слово (например, "готово").
5. Нажмите Формат → вкладка Шрифт → поставьте галочку Зачёркнутый → ОК.

Теперь все ячейки с текстом "готово" будут автоматически зачёркнуты. Этот метод идеален для трекеров задач, где статус выполняется динамически.

4. Создание пользовательского стиля с зачёркиванием

Если вы часто используете зачёркнутый текст, рационально создать пользовательский стиль:

1. Выделите любую ячейку.
2. Отформатируйте её шрифт как зачёркнутый (см. метод 1).
3. На вкладке Главная в группе Стили нажмите Условное форматирование → Создать стиль.
4. В окне Стиль введите название (например, "Зачёркнутый текст") и нажмите ОК.

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

5. Автоматизация через VBA (для продвинутых пользователей)

Для массового зачёркивания или интеграции с другими действиями (например, при изменении значения в другой ячейке) подойдёт VBA. Пример кода для зачёркивания всех ячеек в выделенном диапазоне, содержащих слово "устарело":

Sub StrikethroughOld()
Dim cell As Range
For Each cell In Selection
If InStr(1, cell.Value, "устарело", vbTextCompare) > 0 Then
cell.Font.Strikethrough = True
End If
Next cell
End Sub

Чтобы использовать этот код:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. Вставьте код в новый модуль (Insert → Module).
3. Вернитесь в Excel, выделите диапазон и запустите макрос (Alt + F8).

⚠️ Внимание: Макросы не работают в Excel Online и могут быть заблокированы в корпоративных сетях из-за политики безопасности. Перед использованием VBA убедитесь, что файл сохранён в формате .xlsm (с поддержкой макросов).

6. Альтернативные методы для специфических случаев

Иногда стандартные способы не подходят. Рассмотрим неочевидные варианты:

• 📱 Мобильная версия Excel: В приложениях для Android/iOS опция зачёркивания доступна через Формат → Текст → Зачёркнутый. Интерфейс может отличаться в зависимости от версии ОС.
• 🖼️ Графические объекты: Если нужно зачеркнуть текст в Надписи или Фигуре, выделите объект → Формат фигуры → вкладка Текстовые эффекты → Зачёркнутый.
• 🔄 Импорт из Word: Если текст уже зачёркнут в Word, при копировании в Excel форматирование сохранится (при вставке через Специальная вставка → Сохранить исходное форматирование).

Важно: В Excel 2016 и новее зачёркнутый текст корректно экспортируется в PDF, но может теряться при сохранении в формате .csv или .txt.

FAQ: Частые вопросы о зачёркнутом тексте в Excel

Sub RemoveStrikethrough()
Cells.Font.Strikethrough = False
End Sub

Selection.Font.Strikethrough = True
Selection.Font.ThemeColor = xlThemeColorLight1  ' Светло-серый цвет