Saberexcel - o site das macros

Esse 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

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

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