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

PaidVerts

Posts tagged ‘VISUAL BASIC FOR APPLICATIONS’

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