Из этого туториала Вы узнаете, как настроить параметры границы ячеек в VBA.
Форматирование границ
Верхняя граница - двойная линия
Сначала давайте рассмотрим пример того, как установить синюю толстую двойную верхнюю границу для ячейки B3 на листе Sheet1:
| 123456789 | Sub ExampleSetBorder ()С листами («Лист1»). Диапазон («B3»). Границы (xlEdgeTop).LineStyle = xlDouble.Weight = xlThick.ColorIndex = 5Конец сКонец подписки |
Обратите внимание, что мы используем оператор With, чтобы упростить кодирование.
Мы получаем доступ к верхней границе с помощью .Borders (xlEdgeTop)..
Другие границы ячеек
Вместо этого вы можете получить доступ к другим границам, включая диагонали:
| 123456 | Листы ("Sheet1"). Диапазон ("B2"). Границы (xlEdgeTop) .Color = RGB (128, 0, 0)Листы ("Sheet1"). Диапазон ("B2"). Границы (xlEdgeRight) .Color = RGB (0, 255, 0)Листы ("Sheet1"). Диапазон ("B2"). Границы (xlEdgeBottom) .Color = RGB (0, 0, 128)Листы ("Sheet1"). Диапазон ("B2"). Границы (xlEdgeLeft) .Color = RGB (255, 0, 0)Листы ("Лист1"). Диапазон ("B2"). Границы (xlDiagonalDown) .Color = RGB (0, 0, 0)Листы ("Лист1"). Диапазон ("B2"). Границы (xlDiagonalUp) .Color = RGB (0, 0, 0) |
Внутри границ
Вы также можете настроить горизонтальные (xlInsideHorizontal) и вертикальные (xlInsideVertical) границы для всех ячеек в диапазоне:
| 12345 | С листами («Лист1»). Диапазон («B2: C6»). Границы (xlInsideHorizontal).LineStyle = xlDashDotDot.Weight = xlMedium.ColorIndex = 3Конец с |
LineStyle
Свойство LineStyle можно изменить на xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot и xlLineStyleNone.
Свойство Weight может быть xlHariline, xlThin, xlMedium и xlThick. У вас будет этот результат с кодом ниже:
| 12345678 | Листы ("Лист1"). Диапазон ("C3"). Границы (xlEdgeTop) .Weight = xlHairlineЛисты ("Лист1"). Диапазон ("C3"). Границы (xlEdgeBottom) .Weight = xlHairlineЛисты ("Лист1"). Диапазон ("D3"). Границы (xlEdgeTop) .Weight = xlThinЛисты ("Лист1"). Диапазон ("D3"). Границы (xlEdgeBottom) .Weight = xlThinЛисты ("Лист1"). Диапазон ("E3"). Границы (xlEdgeTop) .Weight = xlMediumЛисты ("Лист1"). Диапазон ("E3"). Границы (xlEdgeBottom) .Weight = xlMediumЛисты ("Лист1"). Диапазон ("F3"). Границы (xlEdgeTop) .Weight = xlThickЛисты ("Лист1"). Диапазон ("F3"). Границы (xlEdgeBottom) .Weight = xlThick |
Цвета границ можно установить как ColorIndex или Color (RGB, серийный номер или vbColor). См. Дополнительную информацию о настройках цвета здесь.
Вы также можете добавить границы вокруг диапазона с помощью однострочной команды:
| 1 | Диапазон ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlThick, Color: = vbRed |
