Проведение обычной границы между строками, где нужные слова

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проведение обычной границы между строками, где нужные слова (Макросы/Sub)

КрасноглазыйПиркаф

Дата: Суббота, 22.02.2020, 02:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Здравствуйте, уважаемые форумчане.
Помогите решить проблему.

На листе экселя - есть столбец G, и в нем записаны дни недели - от понедельника, до воскресенья.
Как провести границу, между теми строками, где находится либо начало недели, либо конец - но в пределах столбцов СС:DL ?

То есть макрос видит - либо только отметку Понедельник, либо только отметку Воскресенье, либо и то и другое вместе - то ему нужно как-то провести линию границы между строками.

К сообщению приложен файл: 4987074.rar (18.1 Kb)

Ответить

Pelena

Дата: Суббота, 22.02.2020, 08:01 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Обязательно макросом? Условным форматированием не подойдёт?

К сообщению приложен файл: 6057706.xlsx (51.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

КрасноглазыйПиркаф

Дата: Суббота, 22.02.2020, 17:20 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Pelena, нет условное форматирование здесь не подойдет.
Нужен именно макрос.

Ответить

Kuzmich

Дата: Суббота, 22.02.2020, 18:15 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

[vba]

Код

Sub iBorders()
Dim FoundCell As Range
Dim FAdr As String
    Set FoundCell = Columns(7).Find("воскресенье", , xlValues, xlWhole)
     If Not FoundCell Is Nothing Then
        FAdr = FoundCell.Address
      Do
       Range(Cells(FoundCell.Row + 2, "CC"), Cells(FoundCell.Row + 2, "DL")).Borders(xlEdgeBottom).Weight = xlThin
       Set FoundCell = Columns(7).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
End Sub

[/vba]

Ответить

КрасноглазыйПиркаф

Дата: Суббота, 22.02.2020, 19:32 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Спасибо вам Kuzmich, теперь все нормально.

Ответить

Проведение обычной границы между строками, где нужные слова (Макросы/Sub)

Страница 1 из 1
1