1 Тема от Irina18

  • Irina18
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2017
  • Сообщений: 11
  • Поблагодарили: 2

Тема: Оформление границ ячеек макросом.

Всем привет. С BVA не дружу, поэтому прошу помощи.
Алгоритм действий следующий:
- Активируем ячейку В7 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А7:J7
- Активируем ячейку В8 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А8:J8
Подобные манипуляции происходят в строках с 7 по 300.
Файл таблицы тут внешняя ссылка, макросы там уже имеются, к ним надо добавить, описанное выше.

2 Ответ от Fck_This

  • Оформление границ ячеек макросом.
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Оформление границ ячеек макросом.

Irina18 пишет:

Всем привет. С BVA не дружу, поэтому прошу помощи.
Алгоритм действий следующий:
- Активируем ячейку В7 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А7:J7
- Активируем ячейку В8 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А8:J8
Подобные манипуляции происходят в строках с 7 по 300.
Файл таблицы тут внешняя ссылка, макросы там уже имеются, к ним надо добавить, описанное выше.

Не могу скачать вашу таблицу - антивирус блокирует сайт. 

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sAddress As String
sAddress = Target.Address
If InStr(sAddress, "B") <> 0 Then
    sNumber = Right(sAddress, Len(sAddress) - InStrRev(sAddress, "$"))
    If sNumber >= 7 And sNumber <= 300 Then
        Range("A" & sNumber & ":" & "J" & sNumber).Borders.LineStyle = True
        Range("A" & sNumber & ":" & "J" & sNumber).Borders.ColorIndex = 0
    End If
End If
End Sub

Этот код нужно вставить в редактор кода VBA, в проект "VBAProject("Имя"), где Имя - название вашего файла эксель, в лист, на котором находятся ваши данные. У меня это выглядело так:

Post's attachments

VBA.jpg 105.6 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871