Удалить значения в ячейки по цвету текста

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

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

Удалить значения в ячейки по цвету текста (Формулы/Formulas)

Ldhimik

Дата: Вторник, 02.10.2018, 15:09 | Сообщение № 1

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

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

Сообщений: 44

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

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

Excel 2010

Добрый день.
Прошу помощи в следующем.
Как удалить значения в ячейках по цвету текста??

вот пример как прописать так чтобы число 14 и 16 были удалены (но только значения )

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

Сообщение отредактировал Ldhimik - Вторник, 02.10.2018, 15:10

Ответить

Pelena

Дата: Вторник, 02.10.2018, 16:18 | Сообщение № 2

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

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

Сообщений: 19420

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Ctrl+F -- Параметры -- Формат -- задать нужный цвет шрифта -- ОК -- Найти все
В нижней части диалогового окна появятся ссылки на все ячейки с данным форматом, кликните по первой, затем, удерживая Shift, по последней ссылке. Таким образом выделятся все нужные Вам ячейки. Закройте диалоговое окно и нажмите Delete

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

_Boroda_

Дата: Вторник, 02.10.2018, 16:19 | Сообщение № 3

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

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

Сообщений: 16763

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Вручную так - Контрл F - жмете на стрелку "Формат" - выбираете Формат, Шрифт, Красный - Найти все - жмете Контрл А - закрываете окошко поиска - жмете Делит
Макросом такой вариант (долгий для большого количества ячеек)
Удаляет значения (не формулы) в ячейках, где цвет шрифта такой же, как и в левой верхней ячейке выделенного на момент запуска макроса диапазона
[vba]

Код

Sub tt()
    Dim d_ As Range
    fc_ = Selection(1).Font.Color
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    For Each d_ In Cells.SpecialCells(xlCellTypeConstants)
        If d_.Font.Color = fc_ Then
            d_.ClearContents
        End If
    Next d_
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 3380954_1.xlsm (18.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Удалить значения в ячейки по цвету текста (Формулы/Formulas)

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