Home Excel - Downloads / Areas Restritas Excel VBA - Cabeçalhos e Rodapés

Excel VBA - Cabeçalhos e Rodapés

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba cabecalho ajuste linha coluna Excel planilha vba cabecalho ajuste linha coluna

    popular!
    Adicionado em: 29/09/2011
    Modificado em: 29/09/2011
    Tamanho: 17.67 KB
    Downloads: 876

    Saberexcel - o site das macros

    E
    sse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um cabeçalho formatado linhas e colunascom altura e largura de linhas, em seguida insere anos nas colunas por meio de um arrays, formata a fonte (estilo e tamanho) na linha(2). Espero que o exemplo lhes sejam útil.
    Fiquem com Deus, Expedito Marcondes.

    Sub Inserindo_cabecalho_ajustando_linhas_colunas()
    Set vPlan = Saber1

    With vPlan.Range("B1:E1")
    .Value = Array(2010, 2011, 2012, 2013)
    .HorizontalAlignment = xlCenter
    '.Style = "Title"
    .ColumnWidth = 39 'largura das colunas
    .Offset(1, 0).RowHeight = 100 ''altura das linhas
    End With

    With vPlan.Range("B2:E2")
    .Value = Array("Saberexcel", "Saberexcel", "Saberexcel", "Saberexcel")
    .Font.Name = "Old English Text MT"
    .Font.Size = 28
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    End With

    [A3].Select
    End Sub

    Sub Limpar_para_teste()
    Set vPlan = Saber1
    Cells.Clear

    With vPlan.Range("B1:E3")
    .ColumnWidth = 8.57
    .RowHeight = 15.75
    End With

    [A3].Select
    End Sub



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

    vba cabecalho adiciona cabecalho todas as planilhas vba cabecalho adiciona cabecalho todas as planilhas

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 18/11/2010
    Tamanho: 24.65 KB
    Downloads: 712

    Macro simples do Aplicativo Microsoft Excel VBA, que adiciona um cabeçalho na folha de planilha, contém também uma macro auxíliar para ajudar no teste, deletanto o cabeçalho inserido. Observe que a macro está usando a instrução For Each, isso afeta todas as planilhas do livro, então, a macro inserirá cabeçalho em todas as planilhas do livro.


    Sub Inserir_cabecalho_todas_planilhas()
    'Adiciona uma espécie de cabeçalho em todas planilhas.
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    ws.Range("A1").Value = "DATA"
    ws.Range("B1").Value = "NOME"
    ws.Range("C1").Value = "ENDEREÇO"
    ws.Range("D1").Value = "CIDADE"
    ws.Range("E1").Value = "C E P"
    Next ws
    End Sub

    Sub Limpar_cabecalho_todas_planilhas()
    'Adiciona uma espécie de cabeçalho em todas planilhas.
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    ws.Range("A1").Value = ""
    ws.Range("B1").Value = ""
    ws.Range("C1").Value = ""
    ws.Range("D1").Value = ""
    ws.Range("E1").Value = ""
    Next ws
    End Sub


    Aprenda sobre o Aplicativo Microsoft Excel VBA com SaberExcel




    vba cabecalho macro insere cabecalho de tabela e deleta vba cabecalho macro insere cabecalho de tabela e deleta

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 18/11/2010
    Tamanho: 24.57 KB
    Downloads: 756

    Saberexcel - o site das macros
    Essas macros do Aplicativo Microsoft Excel VBA, insere um cabeçalho de coluna para formação de uma tabela simples.

    Sub Inserindo_cabecalho_em_colunas()
    Dim vArray As Variant 'variável insere dados vArray
    Dim vContador As Integer

    ' variavel vArrays variant com array de dados
    vArray = Array("", "Nome", "Endereço", "Bairro", "Cidade", "Estado", "Observaçoes")

    'Inserindo o cabeçalho na folha de planilha(Plan2)
    With Worksheets("Plan2")
    For vContador = 1 To UBound(vArray)
    .Cells(1, vContador).Value = vArray(vContador)
    Next vContador
    End With

    End Sub

    Observe que aqui usei uma linha de código para localizar todas as células usadas no cabeçalho, veja que End(xlToRight), localiza todas as células
    à direita da célula (A1), clearcontents deleta os dados sem deletar os formatos.

    Sub limpar_cabecalho()
    Worksheets("Plan2").Select
    Range("A1", [A1].End(xlToRight)).ClearContents
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel




    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA