У цьому підручнику буде показано, як налаштувати межі клітинок у VBA.
Форматування кордонів
Верхня межа - подвійна лінія
Спочатку розглянемо приклад того, як встановити синю, товсту подвійну верхню межу до комірки B3 на аркуші 1:
123456789 | ПідприкладSetBorder ()З аркушами ("Sheet1"). Діапазон ("B3"). Межі (xlEdgeTop).LineStyle = xlDouble.Вага = xlТовстий.ColorIndex = 5Закінчити зEnd Sub |
Зверніть увагу, що ми використовуємо оператор With для спрощення кодування.
Ми отримуємо доступ до верхньої межі з . Кордони (xlEdgeTop).
Інші кордони клітин
Замість цього ви можете отримати доступ до інших кордонів, включаючи діагоналі:
123456 | Робочі аркуші ("Sheet1"). Діапазон ("B2"). Межі (xlEdgeTop). Колір = RGB (128, 0, 0)Робочі аркуші ("Sheet1"). Діапазон ("B2"). Межі (xlEdgeRight). Колір = RGB (0, 255, 0)Робочі аркуші ("Sheet1"). Діапазон ("B2"). Межі (xlEdgeBottom). Колір = RGB (0, 0, 128)Робочі аркуші ("Sheet1"). Діапазон ("B2"). Межі (xlEdgeLeft). Колір = RGB (255, 0, 0)Робочі аркуші ("Sheet1"). Діапазон ("B2"). Межі (xlDiagonalDown). Колір = RGB (0, 0, 0)Робочі аркуші ("Sheet1"). Діапазон ("B2"). Межі (xlDiagonalUp). Колір = RGB (0, 0, 0) |
Внутрішні кордони
Ви також можете налаштувати горизонтальні (xlInsideHorizontal) та вертикальні (xlInsideVertical) межі для всіх комірок у діапазоні:
12345 | З аркушами ("Аркуш1"). Діапазон ("В2: С6"). Межі (xlInsideHorizontal).LineStyle = xlDashDotDot.Вага = xl Середній.ColorIndex = 3Закінчити з |
LineStyle
Властивість LineStyle можна змінити на xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot та xlLineStyleNone.
Властивість Weight може бути xlHariline, xlThin, xlMedium та xlThick. У вас буде такий результат з кодом нижче:
12345678 | Робочі аркуші ("Sheet1"). Діапазон ("C3"). Межі (xlEdgeTop). Вага = xlВолоссяРобочі аркуші ("Sheet1"). Діапазон ("C3"). Межі (xlEdgeBottom). Вага = xlРобочі аркуші ("Sheet1"). Діапазон ("D3"). Межі (xlEdgeTop) .Weight = xlThinРобочі аркуші ("Sheet1"). Діапазон ("D3"). Межі (xlEdgeBottom). Вага = xlThinРобочі аркуші ("Аркуш1"). Діапазон ("E3"). Межі (xlEdgeTop). Вага = xl СереднійРобочі аркуші ("Аркуш 1"). Діапазон ("E3"). Межі (xlEdgeBottom). Вага = xl СереднійРобочі аркуші ("Sheet1"). Діапазон ("F3"). Межі (xlEdgeTop) .Weight = xlThickРобочі аркуші ("Sheet1"). Діапазон ("F3"). Межі (xlEdgeBottom) .Weight = xlThick |
Кольори кордонів можна встановити як ColorIndex або Color (RGB, серійний номер або vbColor). Докладніше про налаштування кольору дивіться тут.
Ви також можете додати межі навколо діапазону за допомогою однорядкової команди:
1 | Діапазон ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlThick, Color: = vbRed |