Как в Excel сделать зачеркнутую надпись: все способы от форматирования до VBA

Способ 4: Зачеркивание через стили ячеек (для единообразия)

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

Алгоритм создания стиля:

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

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

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

Если вам нужно зачеркнуть текст в сотнях ячеек по сложному алгоритму (например, зачеркнуть каждую вторую строку в фильтрованном диапазоне), ручные методы будут неэффективны. Здесь на помощь приходит VBA (Visual Basic for Applications). Ниже приведен скрипт, который зачеркивает текст в выбранных ячейках:

Sub ApplyStrikethrough()
Dim rng As Range
Dim cell As Range

' Проверяем, выбраны ли ячейки
On Error Resume Next
Set rng = Selection
On Error GoTo 0

If rng Is Nothing Then
MsgBox "Выделите ячейки для зачеркивания!", vbExclamation
Exit Sub
End If

' Применяем зачеркивание
For Each cell In rng
cell.Font.Strikethrough = True
Next cell

MsgBox "Зачеркивание применено к " & rng.Cells.Count & " ячейкам.", vbInformation
End Sub

Как использовать этот код:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. В меню выберите Insert → Module.
3. Скопируйте код выше в открывшееся окно.
4. Закройте редактор и вернитесь в Excel.
5. Выделите нужные ячейки и запустите макрос через Вид → Макросы → ApplyStrikethrough → Выполнить.

🔹 Расширенные возможности: Этот скрипт можно модифицировать для зачеркивания текста по условию. Например, чтобы зачеркнуть все ячейки со значением "Устарело", замените строку cell.Font.Strikethrough = True на:

If cell.Value = "Устарело" Then
cell.Font.Strikethrough = True
End If

Зачеркнутый текст в мобильном Excel (Android/iOS)

Мобильные версии Excel (для Android и iOS) имеют урезанный функционал, но зачеркнуть текст в них все же можно. Инструкция для смартфонов:

1. Откройте файл в мобильном приложении Excel.
2. Выделите ячейку с текстом (коснитесь её дважды).
3. Нажмите на иконку Формат (буква "A" с кисточкой) в нижней панели.
4. Перейдите на вкладку Текст (или Шрифт в зависимости от версии).
5. Прокрутите вниз и включите опцию Зачеркнутый.

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

Также учтите, что на маленьких экранах зачеркнутый текст может быть плохо читаем. В таких случаях комбинируйте зачеркивание с серым цветом шрифта или уменьшением его размера на 1-2 пункта.

Частые ошибки и как их избежать

Даже в такой простой операции, как зачеркивание текста, пользователи сталкиваются с проблемами. Вот самые распространенные из них и способы их решения:

• ❌ Зачеркивание не применяется: Убедитесь, что ячейка не защищена от изменений (проверьте Формат ячеек → Защита). Также проверьте, не установлен ли в книге режим Защита листа.
• ❌ Текст становится нечитаемым: Зачеркнутый текст может сливаться с фоном. Решение — изменить цвет шрифта на контрастный (например, темно-серый на белом фоне).
• ❌ Зачеркивание сбрасывается при копировании: Если вы копируете ячейки с зачеркнутым текстом в другой файл, форматирование может потеряться. Используйте Специальная вставка → Форматы, чтобы сохранить стиль.
• ❌ Макрос не работает: Включите поддержку макросов в Файл → Параметры → Центр управления безопасностью → Параметры центра управления безопасностью → Настройки макросов (выберите Включить все макросы).

Если вы работаете с связанными данными (например, текст в ячейке подтягивается через формулу =СЦЕПИТЬ() или =ТЕКСТСОЕДИНИТЬ()), зачеркивание применяется только к результату отображения, а не к исходным данным. Это нормальное поведение Excel.

FAQ: Ответы на популярные вопросы

Можно ли зачеркнуть только часть текста в ячейке?

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

Почему при печати зачеркнутый текст не виден?
Это типичная проблема при печати в черно-белом режиме или с низким разрешением. Решения:
• 🖨️ В настройках печати (Файл → Печать) выберите Цветная печать (даже если принтер черно-белый).
• 📄 Увеличьте масштаб печати или используйте параметр Печатать с высоким качеством.
• 🔍 Перед печатью проверьте предварительный просмотр (Ctrl + F2).