|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Formatando dados em Excel
|
 |
|
|
|
Postada em 31/3/2004 por FatBoy
Eu ja enviei esta dica a algum tempo e não entrou no ar estou reenviando, tomei como base a dica já existente para criar esta nova dica.
'Seu projeto deve fazer referencia a Biblioteca MicroSoft Excel
Sub CriaPlanilhaFormatada()
Dim fApp As Excel.Application
Dim fBook As Excel.Workbook
Dim fSheet As Excel.Worksheet
Dim mBorda As String
'Carregar o Excel:
Set fApp = CreateObject("Excel.Application")
'Crie um WorkBook:
Set fBook = fApp.WorkBooks.Add
fApp.Visible = True
'Defina a planilha ativa p/ facilitar o trabalho:
Set fSheet = fApp.ActiveWorkBook.ActiveSheet
'Definir o conteúdo de 4 células:
With fSheet
.Range("a1:a1").Select 'Selecionando a Range
Selection.Font.Bold = True 'Deixando Negrito a Range
.Cells(1, 1).Value = "FAT"
.Range("b1:b1").Select 'Selecionando a Range
mBorda = Selection.BorderAround(xlContinuous, xlMedium, xlColorIndexAutomatic) 'Criando Borda
.Cells(1, 2).Value = "FAT-BOY"
.Range("c1:c1").Select 'Selecionando a Range
Selection.NumberFormat = "#,##0.0000" 'Formatando Numero
.Cells(1, 3).Value = "10"
.Range("d1:d1").Select 'Selecionando a Range
Selection.NumberFormat = "dd/mm/yyyy" 'Formatando Data
.Cells(1, 4).Value = "10/02/2004"
.Columns(4).ColumnWidth = 20 'Aumentando o Tamanho da Coluna D
End With
'Limpe as variáveis de Objeto:
Set fSheet = Nothing
Set fBook = Nothing
Set fApp = Nothing
End Sub
Private Sub Command1_Click()
CriaPlanilhaFormatada
End Sub
|
|
|
|
|
