Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 706 |
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
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 699 |
Saberexcel - o site das macros
Esse exemplo de macro do Aplicativo Microsoft Excel VBA, faz uma copia de uma determinada folha de planilha e adiciona no Workbook, mas não copia os caracteres númericos.
Sub Copiar_Planilha()
Dim WsPlan As Worksheet
Dim i As Integer
If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha!", vbCritical
Exit Sub
End If
Application.ScreenUpdating = False
i = Worksheets.Count
ActiveSheet.Copy After:=Sheets(Sheets.Count)
i = i + 1
Set WsPlan = Worksheets(i)
On Error Resume Next
'usando esta linha de códigos copiará somente as fórmulas para nova planilha
WsPlan.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub
Aprenda Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 690 |
Adicionado em: | 21/12/2010 |
Modificado em: | 21/12/2010 |
Tamanho: | Vazio |
Downloads: | 673 |
Saberexcel - site das macros
Essa macro cria uma planilha chamada [Saberexcel_Contas]
se caso a planilha já existir, emite uma mensagem se voce deseja preservar ou deletar
a antiga planilha, se sim, deletará a planilha antiga e inserirá nova planilha, se não,
preservará a planilha antiga, selecionando-a.
Sub Criando_nova_planilha_verifica_existencia()
Dim vPlanilha As Worksheet, vResposta As Variant
On Error GoTo Erro_Plans
'criando uma nova planilha chamada Saberexcel_contas
Set vPlanilha = Worksheets.Add
With vPlanilha
.Name = "Saberexcel_Contas"
.Cells(1.1).Select
.Activate
End With
Exit Sub
Erro_Plans:
'Esse erro ocorrerá se planilha a ser criada for duplicada, isto é se existir
If Err.Number = 1004 Then
'emite uma mensagem se a planilha a ser criada já existir no livro
vResposta = MsgBox("Já existe no livro uma planiha chamada 'Saberexcel_Contas' , " & _
"clique em 'Ok' para continuar a criação de uma nova planilha e deletar a planilha existente, " & _
"ou clique 'Cancelar' para ir para a planilha antiga.", _
vbOKCancel, "Planilha Duplicada - Saberexcel - Excel VBA Estudos®")
If vResposta = vbOK Then
'deletando a planilha antiga
Application.DisplayAlerts = False 'para nao emitir aquela mensagem do windows "Deseja....."
Worksheets("Saberexcel_Contas").Delete
Application.DisplayAlerts = True
'renomeando e ativando a nova planilha
With vPlanilha
.Name = "Saberexcel_Contas"
.Cells(1.1).Select
.Activate
End With
Else
'cancela a operação, deletando a nova planilha
Application.DisplayAlerts = Fal
vPlanilha.Delete
Application.DisplayAlerts = True
'ativando a planilha existente(antiga)
Worksheets("Saberexcel_Contas").Activate
End If
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Baixe o exemplo de planilha contendo a macro acima
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 662 |
Esta macro do Aplicativo Microsoft Excel VBA, copia a planilha (Plan1) trinta vezes e adiciona as cópias ao livro. A macro abaixo é mais para o teste, pois deleta todas as folhas de planilha preservando a folha de planilha desejada.
Sub Copia_Planilha()
For x = 1 To 30
ActiveWorkbook.Sheets.Add
Sheets("Plan1").Cells.Copy
ActiveSheet.Paste
ActiveWorkbook.Sheets("Plan1").Select
Next x
End Sub
Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
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