Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выделение ячеек по формату текста (полужирный), Как выделить ячейки имеющие одинаковый формат (полужирный)
 
#1
04.03.2016 14:56:34
Здравствуйте.
Помогите выделить через VBA все ячейки в диапазоне (H14:H35), имеющие формат "полужирный".
Файл прилагаю. Спасибо.
 
 
 
#2
04.03.2016 15:07:54
Цитата
Андрій Козій написал: в диапазоне (H14:H35)
Код
Sub BoldFont()
Dim cl As Range
    For Each cl In Worksheets("Sheet1").Range("H14:H35").Cells
        If cl.Font.Bold = True Then
            With cl.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
            End With
        End If
    Next
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
04.03.2016 15:15:27
Цитата
Sanja написал:
Sub BoldFont()Dim cl As Range    For Each cl In Worksheets("Sheet1").Range("H14:H35").Cells        If cl.Font.Bold = True Then            With cl.Interior                .Pattern = xlSolid                .PatternColorIndex = xlAutomatic                .Color = 65535            End With        End If    NextEnd Sub
Спасибо. Ячейки заливаются желтым.
А можно их просто сделать выделенными ?
По сути - мне надо их просто удалить (строку целиком).
 
 
 
#4
04.03.2016 15:18:08
Так может сразу удалять, нафига эти танцы с выделениями?
Я сам - дурнее всякого примера! ...
 
 
 
#5
04.03.2016 15:23:33
Вообщето да. Надо простой код для удаления текста с форматом "полужирный"
 
 
 
#6
04.03.2016 15:31:07
Почему сразу не задать НУЖНЫЙ вопрос?
Как удалять? Всю строку?, значение в ячейке?, ячейку со сдвигом вверх/вправо/влево/вниз?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#7
04.03.2016 15:31:24
Код
Sub delrows()
    Dim c As Range, r As Range
    For Each c In Worksheets("Sheet1").Range("H14:H35").Cells
        If c.Font.Bold = True Then
            If r Is Nothing Then Set r = c Else Set r = Union(r, c)
        End If
    Next
    r.EntireRow.Delete
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#8
04.03.2016 15:37:13
Спасибо, KuklP.
Все просто и четко !
Супер.
 
 
 
#9
04.03.2016 15:43:37
Виправте будь ласка на аркуші "Список заказів" на "Список замовлень". А краще на перелік.
Изменено: KuklP - 04.03.2016 15:47:58
Я сам - дурнее всякого примера! ...
 
 
 
#10
04.03.2016 15:47:28
Цитата
KuklP написал:
Виправте будь ласка на аркуші "Список заказів" на "Список замовлень"
Програма сама робить такий "правильний" експорт ))
Моїх змін - 0 :)
 
 
 
#11
04.03.2016 15:58:25
http://www.planetaexcel.ru Далеко не все здесь мовой владеют
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх