A
allex
Имеется код
Set oRange = xlWbk.getCellRangeByName("A1:G5")
oRange.merge(True)
Call oRange.setPropertyValue("CellBackColor", 16764057)
Call oRange.SetPropertyValue("LeftBorder",border)
Call oRange.SetPropertyValue("RightBorder",border)
Call oRange.SetPropertyValue("TopBorder",border)
Call oRange.SetPropertyValue("BottomBorder",border)
Set oRange = xlWbk.getCellRangeByName("A1:G5")
oRange.merge(True)
Call oRange.setPropertyValue("CellBackColor", 16764057)
Call oRange.SetPropertyValue("LeftBorder",border)
Call oRange.SetPropertyValue("RightBorder",border)
Call oRange.SetPropertyValue("TopBorder",border)
Call oRange.SetPropertyValue("BottomBorder",border)