Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти и удалить в ячейке зачеркнутый текст
 
#1
23.07.2016 10:39:56
Здравствуйте.
Прошу о подсказке. Перебираю в таблице ячейки, в которых может быть, а может и не быть зачеркнутый текст (причем в конкретной ячейке не обязательно будет зачеркнутно все содержимое). Задача в каждой конкретной ячейке найти зачеркнутый текст и удалить его, а остальной текст должен остаться.
 
 
 
#2
23.07.2016 10:53:48
Код
Sub qq()
    Dim i&, s$
    For i = 1 To Len(Selection)
        If Not Selection.Characters(i, 1).Font.Strikethrough = True Then _
         s = s & Mid$(Selection.Value, i, 1)
    Next
    Selection.Value = s
End Sub
 
 
 
#3
23.07.2016 12:33:01
Огромное спасибо!
 
 
 
#4
16.03.2017 03:39:51
Решаю подобную задачу. Скопировал код, запускаю макрос, появляется ошибка подсвечивающая желтым цветом строку
Код
For i = 1 To Len(Selection)
Почему так происходит?
Изменено: Gnom7 - 16.03.2017 03:40:10
 
 
 
#5
16.03.2017 03:45:53
Gnom7,Возможны вы выделяете не 1 ячейку а диапазон ?
 
 
 
#6
16.03.2017 04:58:30
Александр, Действительно, по одной удаляет. А как сделать чтобы удаляло в выделенном диапазоне?
 
 
 
#7
16.03.2017 05:31:01
Gnom7,Как то так
Код
Sub qq()
    Dim i&, s$
For Each cl In Selection
    For i = 1 To Len(cl)
        If Not cl.Characters(i, 1).Font.Strikethrough = True Then _
         s = s & Mid$(cl.Value, i, 1)
    Next
    cl.Value = s
    s = ""
Next
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх