Formatar celula de planilha Excel em tempo de excução VBA
Uma forma bem interessante de criar um relatório é através do excel via programação VBA (visual basic for aplication).
Abaixa segue um exemplo de como formatar celulas de um relatório.
‘ cria instancia com excel
Set Objl = CreateObject(“Excel.application”)
‘ será uma planilha dentro do arquivo
Set e = Objl.Workbooks.Open(CurrentProject.Path & “\modelo.xlt”)
Objl.Application.SheetsInNewWorkbook = 1
‘ cria a instancia da planilha
Set plan = e.Worksheets(1)
‘ formata as celulas
plan.Range(“a1:c1″).Font.Bold = True
plan.Range(“a1:c1″).Interior.ColorIndex = 19 ‘ cor de fundo
plan.cells(1, 1).Borders(10).LineStyle = xlContinuous ‘xlContinuous é uma constante
plan.cells(1, 1).Borders(10).Weight = -4138 ‘ Neste caso tem que digitar o valor e não a constante xlThick = 4 – xlHairline = 1 -xlMediun = -4138
plan.cells(1, 1).Borders(7).Color = RGB(0, 0, 0) ‘xlEdgeLeft
plan.cells(1, 1).Borders(10).Color = RGB(0, 0, 0) ‘xlEdgeRight
| Constantes para LineStyle | Constantes para Weight | Constantes para Borders | |||
|
Constant |
Value |
Constant |
Value |
Constant |
Value |
|
xlContinuous |
1 |
xlHairline |
1 |
xlDiagonalDown |
5 |
|
xlDash |
-4115 |
xlMedium |
-4138 |
xlDiagonalUp |
6 |
|
xlDashDot |
4 |
xlThick |
4 |
xlEdgeBottom |
9 |
|
xlDashDotDot |
5 |
xlThin |
2 |
xlEdgeLeft |
7 |
|
xlDot |
-4118 |
xlEdgeRight |
10 |
||
|
xlDouble |
-4119 |
xlEdgeTop |
8 |
||
|
xlLineStyleNone |
-4142 |
xlInsideHorizontal |
12 |
||
|
xlSlantDashDot |
13 |
xlInsideVertical |
11 |
||
Comentários