Удаление значений по признакам УФ

@Забил · Регистрация: 25.11.2014

Author24 — интернет-сервис помощи студентам

Всем здрасьте. В инете из официальных источников совершенно ничего путевого не нашлось, может кто-нибудь уже колхозил по этому вопросу: есть диапазон а1:м100, в котором содержатся одни данные, окрашенные "шрифт полужирный, подчеркнутый" при помощи УФ, и другие данные, просто стокового белого цвета (без УФ). Как макросом удалить из такого диапазона все данные белого цвета, кроме окрашенных УФ?

toiai · 28.02.2017, 09:31

Пример приложи (первоначальный и результат).

@Забил · 28.02.2017, 09:49 **[ТС]**

Вот пример, первоначальный. Результат предоставить не могу, я и тему создал, собственно, ради получения результата

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

@Забил · 28.02.2017, 09:56 **[ТС]**

Даже лучше, если вместо значений белого цвета будут нули (для надежности и во избежание ошибок при дальнейших вычислениях)

toiai · 28.02.2017, 10:14

Сообщение от Забил

если вместо значений белого цвета будут нули

Но тогда эти ячейки будут с повторяющими значениями и будет "0" полужирный с подчеркиванием!

@Забил · 28.02.2017, 10:22 **[ТС]**

Сообщение от toiai

Но тогда эти ячейки будут с повторяющими значениями

да, действительно, так делать нельзя

@Hugo121 · 28.02.2017, 10:32

Макросом можно анализироватьзначение displayformat, но кажется начиная с 2010. Так что пока на Ваш вопрос ответить нельзя - мало информации

Добавлено через 7 минут
У кого DisplayFormat.Font.Color не 0 - тех под нож...

toiai · 28.02.2017, 10:51

Если MSOffice 2010 и выше, то по предложению Hugo121:

Visual Basic

Sub Pr()
    Dim x As Range
    For Each x In Cells(1, 1).CurrentRegion
        If x.DisplayFormat.Font.Color = vbWhite Then x.ClearContents
    Next
End Sub

@Забил · 28.02.2017, 11:24 **[ТС]**

Сообщение от Hugo121

тех под нож...

Сообщение от toiai

Если MSOffice 2010 и выше

Огромное спасибо, господа. Всё работает.

@Забил 0 / 0 / 0 Регистрация: 25.11.2014 Сообщений: 47
		1
	Удаление значений по признакам УФ 28.02.2017, 09:19. Показов 651. Ответов 8 Метки нет (Все метки) Всем здрасьте. В инете из официальных источников совершенно ничего путевого не нашлось, может кто-нибудь уже колхозил по этому вопросу: есть диапазон а1:м100, в котором содержатся одни данные, окрашенные "шрифт полужирный, подчеркнутый" при помощи УФ, и другие данные, просто стокового белого цвета (без УФ). Как макросом удалить из такого диапазона все данные белого цвета, кроме окрашенных УФ? 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	28.02.2017, 09:31	2
	Пример приложи (первоначальный и результат). 0

@Забил 0 / 0 / 0 Регистрация: 25.11.2014 Сообщений: 47
	28.02.2017, 09:56 [ТС]	4
	Даже лучше, если вместо значений белого цвета будут нули (для надежности и во избежание ошибок при дальнейших вычислениях) 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	28.02.2017, 10:14	5
	Сообщение от Забил если вместо значений белого цвета будут нули Но тогда эти ячейки будут с повторяющими значениями и будет "0" полужирный с подчеркиванием! 0

@Забил 0 / 0 / 0 Регистрация: 25.11.2014 Сообщений: 47
	28.02.2017, 10:22 [ТС]	6
	Сообщение от toiai Но тогда эти ячейки будут с повторяющими значениями да, действительно, так делать нельзя 0

@Hugo121 6945 / 2849 / 549 Регистрация: 19.10.2012 Сообщений: 8,724
	28.02.2017, 10:32	7
	Макросом можно анализироватьзначение displayformat, но кажется начиная с 2010. Так что пока на Ваш вопрос ответить нельзя - мало информации Добавлено через 7 минут У кого DisplayFormat.Font.Color не 0 - тех под нож... 1

@Забил 0 / 0 / 0 Регистрация: 25.11.2014 Сообщений: 47
	28.02.2017, 11:24 [ТС]	9
	Сообщение от Hugo121 тех под нож... Сообщение от toiai Если MSOffice 2010 и выше Огромное спасибо, господа. Всё работает. 0