Макрос на офомление

[mephist]

Большое спасибо за подробное обьяснение. Очень доступно. Отдельно Ваш макрос работает, а вот в совокупности с тем, что у меня было написано до этого, наотрез отказывается. Я пытался менять их очередность-безрезультатно.

Option Compare Text
Sub FormatSelection()
    Dim ra As Range: Set ra = Selection: Application.ScreenUpdating = False
    If ra.Columns.Count = 1 Or ra.Rows.Count < 3 Then MsgBox "Не выделен диапазон", vbExclamation: Exit Sub
    SetRangeBorders ra, xlContinuous, xlThick
    ra.Columns(1).Interior.ColorIndex = 41: ra.Columns(1).Font.Name = "Calibri"
    With ra.Rows(1)
        .Interior.ColorIndex = 49
        .Font.Name = "Calibri": .Font.Bold = True: .Font.Size = 11: .Font.FontStyle = "курсив"
        .Font.ThemeColor = xlThemeColorDark1:    .Font.ThemeFont = xlThemeFontMinor
        .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    With ra.Rows(ra.Rows.Count)
        .Font.Name = "Calibri": .Font.Bold = True: .Font.Size = 11
        .Interior.ColorIndex = 48:
    End With
    ra.EntireColumn.AutoFit
End Sub
Sub SetRangeBorders(ByRef ra As Range, ByVal BordersLineStyle As XlLineStyle, ByVal BordersWeight As XlBorderWeight)
    ra.Borders.LineStyle = BordersLineStyle: ra.Borders.Weight = BordersWeight
    ra.Borders(xlDiagonalDown).LineStyle = xlNone: ra.Borders(xlDiagonalUp).LineStyle = xlNone
    ra.Borders(xlInsideVertical).LineStyle = xlContinuous:    ra.Borders(xlInsideVertical).Weight = xlThin
    ra.Borders(xlInsideHorizontal).LineStyle = xlContinuous:    ra.Borders(xlInsideHorizontal).Weight = xlThin
    ra.Rows(1).Borders(xlEdgeBottom).LineStyle = xlContinuous:    ra.Rows(1).Borders(xlEdgeBottom).Weight = xlMedium
    ra.Columns(1).Borders(xlEdgeRight).LineStyle = xlContinuous:    ra.Columns(1).Borders(xlEdgeRight).Weight = xlMedium
    ra.Rows(ra.Rows.Count).Borders(xlEdgeTop).LineStyle = xlContinuous:    ra.Rows(ra.Rows.Count).Borders(xlEdgeTop).Weight = xlMedium
End Sub
Sub Indention()
    txt = "total"  
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
    For Each cell In ra.Cells
        If cell Like "*" & txt & "*" Then cell.Interior.Color = vbGreen
    Next cell
End Sub

Ну почему он не работает??? У меня голова взрывается.
А вот можно извлечь номер строки в которой найдена ячейка со словом для того, чтобы закрасить все ячейки этой строки???

[EducatedFool]

Не знаю, у меня всё работает:



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

А вот можно извлечь номер строки в которой найдена ячейка со словом для того, чтобы закрасить все ячейки этой строки???

Да всё можно...
А чем Вас не устраивает условное форматирование?
Оно ведь для таких целей и предназначено...

[mephist]

Я не хочу использовать условное форматирование потому, что тогда каждый раз придется прописывать условия. А здесь у меня все раз и навсегда.
А как можно закрасить те СТРОКИ, в которых нашлась ячейка с текстом?
А можно просто для себя узнать: вот SetRangeBorders и Indention можно рассматривать как процедуры, к которым я обращаюсь из тела программы? Верно я понимаю?

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

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

Я же выделил ячейки перед запуском первого макроса...
Может быть просто я их не передаю в Indention???

[EducatedFool]

А как можно закрасить те СТРОКИ, в которых нашлась ячейка с текстом?

Красить строки надо полностью (с первой ячейки, и до последней), или же только определённую часть строки (например, с 1 до 20 столбца)?

Если полностью, то замените строку

If cell Like "*" & txt & "*" Then cell.Interior.Color = vbGreen

на строку

If cell Like "*" & txt & "*" Then cell.EntireRow.Interior.Color = vbGreen

SetRangeBorders и Indention можно рассматривать как процедуры, к которым я обращаюсь из тела программы?

Смотря что Вы понимаете под процедурой.
SetRangeBorders - процедура, вызываемая из другого макроса.
Indention - самостоятельный макрос.

Если требуется более подробное объяснение - звоните через Скайп.

Я же выделил ячейки перед запуском первого макроса...
Может быть просто я их не передаю в Indention???

Ничего не надо передавать.
Макрос Indention сам получает информацию о выделенных ячейках на момент его запуска:

Set ra = Intersect(Selection.EntireRow, ActiveSheet.UsedRange)

[mephist]

Спасибо. Вот теперь я начинаю что-то доганять. Я ведь думал, что это единый целый макрос. А можно их обьединить?
Мне кажется логичным тогда вставить

txt = "total"
    Dim cell As Range
    For Each cell In ra.Cells
        If cell Like "*" & txt & "*" Then cell.Interior.Color = vbGreen
    Next cell

в макрос FormatSelection сразу после строки

ra.EntireColumn.AutoFit

. Но теперь перестал работать SetRangeBorders.
Проверь, пожалуйста?
Кстати строки нужно закрасить только частично, только в тех ячейках, который входили в выделенный диапазон.
Можешь помочь довести макрос до ума?