Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проведение обычной границы между строками, где нужные слова - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проведение обычной границы между строками, где нужные слова (Макросы/Sub)
Проведение обычной границы между строками, где нужные слова
КрасноглазыйПиркаф Дата: Суббота, 22.02.2020, 02:22 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 20% ±

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

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

То есть макрос видит - либо только отметку Понедельник, либо только отметку Воскресенье, либо и то и другое вместе - то ему нужно как-то провести линию границы между строками.
К сообщению приложен файл: 4987074.rar (18.1 Kb)
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане.
Помогите решить проблему.

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

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

Автор - КрасноглазыйПиркаф
Дата добавления - 22.02.2020 в 02:22
Pelena Дата: Суббота, 22.02.2020, 08:01 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Обязательно макросом? Условным форматированием не подойдёт?
К сообщению приложен файл: 6057706.xlsx (51.9 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Обязательно макросом? Условным форматированием не подойдёт?

Автор - Pelena
Дата добавления - 22.02.2020 в 08:01
КрасноглазыйПиркаф Дата: Суббота, 22.02.2020, 17:20 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - КрасноглазыйПиркаф
Дата добавления - 22.02.2020 в 17:20
Kuzmich Дата: Суббота, 22.02.2020, 18:15 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 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]
 
Ответить
Сообщение[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]

Автор - Kuzmich
Дата добавления - 22.02.2020 в 18:15
КрасноглазыйПиркаф Дата: Суббота, 22.02.2020, 19:32 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - КрасноглазыйПиркаф
Дата добавления - 22.02.2020 в 19:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проведение обычной границы между строками, где нужные слова (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!