Dicas de programação, tratamento de imagens, webdesign

PaidVerts

Posts tagged ‘PROGRAMMING’

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

Tag Cloud