✅ VBA клетъчни граници

Съдържание

Форматиране на граници

Този урок ще покаже как да коригирате настройките на границата на клетката във VBA.

Форматиране на граници

Горна граница - Двойна линия

Първо нека разгледаме пример за това как да зададем синя, дебела, удвоена горна граница към клетката B3 на Sheet1:

123456789

Под -пример SetBorder ()С работни листове ("Sheet1"). Диапазон ("B3"). Граници (xlEdgeTop).LineStyle = xlDouble.Тегло = xlДебел.ColorIndex = 5Край сEnd Sub

Забележете, че използваме State Statement за опростяване на кодирането.

Достъпваме до горната граница с .Граници (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

С работни листове ("Sheet1"). Диапазон ("B2: C6"). Граници (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). Тегло = xlHairlineРаботни листове ("Sheet1"). Диапазон ("C3"). Граници (xlEdgeBottom). Тегло = xlHairlineРаботни листове ("Sheet1"). Диапазон ("D3"). Граници (xlEdgeTop). Тегло = xlThinРаботни листове ("Sheet1"). Диапазон ("D3"). Граници (xlEdgeBottom). Тегло = xlThinРаботни листове ("Sheet1"). Диапазон ("E3"). Граници (xlEdgeTop). Тегло = xlMediumРаботни листове ("Sheet1"). Диапазон ("E3"). Граници (xlEdgeBottom). Тегло = xlMediumРаботни листове ("Sheet1"). Диапазон ("F3"). Граници (xlEdgeTop). Тегло = xlThickРаботни листове ("Sheet1"). Диапазон ("F3"). Граници (xlEdgeBottom). Тегло = xlThick

Цветовете на рамката могат да бъдат зададени като ColorIndex или Color (RGB, сериен номер или vbColor). Вижте повече информация за настройките на цветовете тук.

Можете също да добавите граници около диапазон с команда на един ред: