Adicionado em: | 20/11/2010 |
Modificado em: | 20/11/2010 |
Tamanho: | Vazio |
Downloads: | 502 |
Macros do Aplicativo Microsoft Excel VBA, adicionam 12(doze) folhas de planilhas no livro(workbook) com os nomes dos doze meses do ano, e outra macro que deleta todas as folhas de planilha, preservando uma, a desejada.
Sub adiciona_Meses()
Dim Meses As Variant
Meses = Array("minha", "Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
ActiveWorkbook.Sheets.Add , , 12
For i = 1 To 12
Sheets(i).Name = Meses(i)
Next i
Sheets("Plan1").Select ' quando encerrar a macro, seleciona a folha de planilha (Plan1)
End Sub
Esta macro é uma macro auxíliar, para ajudar no teste do aluno-desenvolvedor, que deleta todas as folhas de planilhas preservando apenas uma determinada pela macro.
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
Núbia voce poderá conseguir selecionar todas as planilhas gravando uma macro, veja o resultado.
Sub seleciona_todas_planilhas()
Sheets(Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", _
"Agosto", "Setembro", "Outubro", "Novembro", "Plan1")).Select
Sheets("Janeiro").Activate
Range("J27").Select
Sheets("Plan1").Select
Range("G18").Select
End Sub
Essas informações que voce quer inserir na folha de planilha poderá ser algo mais ou menos parecido com a macro abaixo, veja:
Sub Recado_p_Núbia()
Range("D17").Value = "Esta vendo o ""porque"" da coleção de Macros"
Range("D18").Value = "é somente o código sem ter necessidade da planilha modelo"
Range("D20").Value = "já a planilha toda com o código fica mais pesado"
Range("D21").Value = "ficaria inviável"
Range("D23").Value = "Fique com Deus, Esforce-se!"
Range("D24").Value = "Se precisar de alguma coisa, Comunique comigo"
Range("D25").Value = "Expedito Marcondes... Excel VBA."
Range("D26").Select
End Sub
Macro auxiliar também para ajudar nos testes de planilha com o aluno-desenvolvedor
Sub Limpar_Recados()
Range("D17") = "" ' duas aspas sem nada significa (que não tem nada) em branco
Range("D18") = ""
Range("D20") = ""
Range("D21") = ""
Range("D23") = ""
Range("D24") = ""
Range("D25") = ""
Range("D26") = ""
End Sub
'Com este código acessa o módulo modulo vai para
Sub ver_código()
SendKeys ("%{F11}")
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA
Adicionado em: | 19/01/2013 |
Modificado em: | 19/01/2013 |
Tamanho: | Vazio |
Downloads: | 389 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Este macro está ligado ao evento change da folha de planilhas, ao selecionar a data na lista suspensa,
retorna automaticamente Msgbox, mensagem data, mês, total de dias no mes, data e hora.
observe que usei a propriedade Offset(Linha, Coluna) para deslocar os dados dentro da tabela.
em nossas vídeos_Aulas "Aprendendo a programar com Simplicidade e Facilidade, Escrevendo menos e Fazendo Mais"
abordamos bem o assunto sobre o tema: Celulas(cells()) e Range(), que achamos primordial no aprendizado com programação MS Excel VBA.
Fique com Deus,
Expedito Marcondes
'- - - - - - - - - - - - - - - - - - - - -'
Sub sbx_dias_total_mes()
Data_inicio = CDate(Plan1.[c2])
Data_Teste = Data_inicio
vNum_Dias = Day(DateSerial(Year(Data_Teste), Month(Data_Teste) + 1, 1) - 1)
MsgBox "Esta data....:[ " & Plan1.Cells(2, "c") & " ]" & vbCrLf & Format(Plan1.Cells(2, "c"), "dddd") & vbCrLf & _
"Este mês ...: [ " & Month(Range("c2")) & " ] contém [ " & (vNum_Dias) & " ] dias", vbInformation, _
"Escola SaberExcel VBA Estudos®"
Range("F65000").End(xlUp).Offset(1, 0) = Plan1.[c2]
Range("F65000").End(xlUp).Offset(0, 2) = Month(Range("c2"))
Range("F65000").End(xlUp).Offset(0, 4) = (vNum_Dias)
Range("F65000").End(xlUp).Offset(0, 6) = Now()
End Sub
'Observe que inserí esse macro no Evento Change (ao escrever na folha de código da folha de Planilha)
então, ao selecionar na lista suspensa uma determinada data, retornará a mensagem e inserirá nas colunas
(Colunas(F,H,J,L) - os mesmos Data, mês da data, total de dias mês, data e hora consulta.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" And Target.Count = 1 Then
sbx_dias_total_mes
End If
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
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