Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

удалить или выделить строку с зачеркнутым текстом в ячейке

Автор Jim, 13.10.2014, 12:00

« назад - далее »

Jim

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

Есть таблица, в которой в столбце А различный текст. в некоторых ячейках текст зачеркнут (текст).
необходимо такую ячейку удалить.
Давным давно это у меня работало через формулу. В соседней ячейке с помощью формулы прописывались значение 1 или 0. и по ним просто делался фильтр.
Помогите это повторить.

Заранее спасибо.

cheshiki1

#1
Sub Макрос1()
Dim i&
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1).Font.Strikethrough = True Then Rows(i).EntireRow.Delete 'удаляем строку
'If Cells(i, 1).Font.Strikethrough = True Then Rows(i).EntireRow.Hidden = True 'если нужно скрыть
Next
End Sub

про описанный вами вариант могу сказать следующее:
1. скорей всего зачеркивание у вас было сделано с помощью УФ, соответственно данное условие можно было перенести в ячейку.
2. использовалась макрофункция в имени
=ПОЛУЧИТЬ.ЯЧЕЙКУ(23;A1)

zs

Здравствуйте, Jim. Если зачеркивать текст по образцу, то может и получиться ;)

vikttur

#3
zs, можно без ЕСЛИ:
=--(ЯЧЕЙКА("формат";A2)="C2")
Но при чем здесь финансовый формат?

zs

Здравствуйте, vikttur. Вопрос состоит в том, не как присваивать формат, а по формату определять значение (последнее и определяет почему финансовый или иной отличный от общего).
P.S. Если аргумент «тип_информации» функции ЯЧЕЙКА имеет значение «формат», а формат ячейки был изменен, необходимо пересчитать лист для обновления значения функции ЯЧЕЙКА. (поэтому необходимый фомат "по образцу"-копируется из другой ячейки).
С уважением, ZS5 (5, потому что в школе учился на "отлично")))