USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página