Adicionado em: | 02/04/2011 |
Modificado em: | 02/04/2011 |
Tamanho: | Vazio |
Downloads: | 1185 |
Saberexcel - Site de quem precisa aprender Macros MS Excel VBA
Essas macros e Função do Aplicativo Microsoft Excel VBA( Visual Basic Application ), retornam o útlimo dia do mês da data atual, aproveitando o exemplo, inserí formatação data para que retorne uma mensagem do mês atual (mes texto (Abril)).
Essas função é muito importante para quem precisa retornar datas, calcular folha de pagamento, calcular pagamentos, vencimentos, taxa de juros, enfim uma infinidade de aplicações úteis onde envolve calculos baseados no último dia do mês. Espero que o exemplo lhe seja útil.
Fique com Deus, Expedito Marcondes
Sub Verifica_ultimo_dia_mes_data_atual()
Dim vDia
Dim vData
Dim sb
vData = Now()
vDia = DatePart("d", DateAdd("m", 1, DateAdd("d", -Day(vData), vData)))
sb = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"
MsgBox "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]", vbInformation, "Saberexcel - site das macros"
MsgBox "Ultimo dia do do mes de " & Format((Now()), "mmmm") & " é " & vDia, vbInformation, "Sem os parênteses"
[G10].Value = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"
[G11].Value = sb 'retornando valor para célula a partir de uma variável(sb)
End Sub
Sub Utimo_dia_do_Mês()
MsgBox "O último dia do mês de [ " & Format((Now()), "mmmm") & " ] é dia..: [ " & vUltimo_dia_mes(Year(Now()), Month(Now())) & " ]", vbInformation, "Saberexcel - site das macros"
MsgBox "Mes Atual.....: " & Format((Now()), "mmmm"), vbInformation, "Saberexcel - site das macros"
End Sub
'esta função verfica o último dia dos meses
Private Function vUltimo_dia_mes(vAno As Integer, vMes As Integer, Optional vDia As Integer = 1) As Integer
Dim vArray_Ultimo_Dia_Meses As Variant
vArray_Ultimo_Dia_Meses = Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
If vMes = 2 Then
If IsDate("29/2/" & vAno) Then
vUltimo_dia_mes = 29
Else
vUltimo_dia_mes = 28
End If
Else
vUltimo_dia_mes = vArray_Ultimo_Dia_Meses(vMes)
End If
End Function
'esta macro limpa as células nomeadas como 'a' - para auxliar o usuário no teste (repetir o teste com facilidade)
Sub limpar_teste()
[a].ClearContents
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA( Visual Basic Application ), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
Adicionado em: | 21/02/2011 |
Modificado em: | 21/02/2011 |
Tamanho: | Vazio |
Downloads: | 506 |
Saberexcel - site das macros
Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), deletará todos os dados após determinada data,
um Loop(laço) identificará a primeira data e deletará os dados anteriores à determinada data.
Essa data será determinada por meio de uma entrada de dados (InputBox)
Sub Deletar_selecao()
For i = [A65000].End(xlUp).Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
End Sub
Essa macro rola a tela até a data de hoje
vamos montar o exemplo copie os dados acima e cole na celula A1 na abertura do wkb
rolará a tela e selecionará a primeira célula com a data de hoje()
Sub auto_open()
p = Application.Match(CDbl(Date), [A1:A100], 1)
Application.Goto [A1].Offset(p - 1 + IIf(Cells(p, 1) = Date, 0, 1)), scroll:=True
End Sub
Sub localizar_data_hoje()
On Error Resume Next
Sb = Application.Match(CDbl(Date) - 1, [A1:A100], 1) 'deletará data hoje -1
Application.Goto [A1].Offset(Sb - 1 + IIf(Cells(Sb, 1) = Date, 0, 1)), scroll:=True
ActiveCell.Select
ActiveCell.Offset(-1, 0).Select
Do While IsEmpty(ActiveCell.Offset(0, 0)) = False 'faça enquanto houver dados na coluna(A)
ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Value = ""
ActiveCell.Offset(0, 2).Value = ""
ActiveCell.Offset(0, 3).Value = ""
ActiveCell.Offset(0, 4).Value = ""
ActiveCell.Offset(-1, 0).Select
Loop
' If Err <> 0 Then MsgBox "Data nao encontrada!"
End Sub
Sub Macro1()
Range("L1:L16").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2").Activate
'SendKeys ("{Esc}")
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 24/01/2011 |
Modificado em: | 24/01/2011 |
Tamanho: | Vazio |
Downloads: | 643 |
Saberexcel - O site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona uma nova planilha e nesta nova planilha insere os dias da semana como também os números correspondentes aos dias da semana ex: 1, segunda...2, terça...
Sub Insere_nova_plan_dias_semana()
Dim vNumero As Integer
Dim vTerminando As String
'On Error Resume Next
'//linhas comentadas para você fazer o teste, sempre inserirá uma nova planilha com o mesmo nome.
'Application.DisplayAlerts = False
'Sheets(1).Select: Sheets("DIAS DA SEMANA").Delete
Sheets.Add
' ActiveSheet.Name = "DIAS DA SEMANA"
ActiveCell.FormulaR1C1 = "Segunda-Feira"
Selection.AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault
For vNumero = 1 To 7
ActiveSheet.Cells(vNumero, 2) = vNumero
Next vNumero
'observe que nesta linha de código neste local, após a seleção da última célula,
'a propriedade offset, desloca duas linhas abaixo na mesma coluna e insere a msg finalizando.
ActiveCell.Offset(vNumero + 2, 1).Value = "FIM -- DIAS DA SEMANA INSERIDOS"
vTerminando = "Processo inserir dias da semana concluido......!"
MsgBox vTerminando
End Sub
Aprenda tudo sobre o pAplicativo Microsoft Excel VBA (Visual Basic Application), sozinho,
com baixo custo, praticando com os produtos didáticos SaberExcel
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: | 20/11/2010 |
Modificado em: | 20/11/2010 |
Tamanho: | Vazio |
Downloads: | 894 |
Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA retorna Funções DATAS, retorna mensagem de datas como , dia, mes, ano, e também retorna na folha de planilha determinadas células . VBA possui diversas funções que auxiliam no desenvolvimento. Vejamos as principais Funções de Datas
Você sabia que as datas e horas datas e horas são armazenadas internamente na memória como números. Isto de certa forma nos permite realizar os calculos com datas e também horas, como por exemplo adicionar dias ao dia de hoje para obtenção de uma data futura.
O Visual Basic realiza esses cálculos como muita facilidade com as funções que retornam datas e horas como também a atual, e gera esses dados baseado em string e ou outra expressão. Temos excelentes exemplos de planilhas nos Módulos [COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA- SABEREXCEL] - com fórmulas e uso das Funções.
Função Descrição
Date.................................: Retorna a data atual
Time.................................: Retorna a hora atual
Now..................................: Retorna a data e hora atual
Hour, Minute, Second .........: Retornam Hora, Minuto e Segundo atual
Day, Month, Year ...............: Retornam Dia, Mês e Ano de uma data qualquer
DataDiff ............................: Retorna a diferença entre duas datas
Public Const sb = vbInformation
Public Const titulo = "Saberexcel - o site das macros"
Sub Funcao_data_retorna_planilha()
[A1].Select
[A1:D10].ClearContents
ActiveCell.Value = Date
ActiveCell.Offset(0, 2).Value = "Data atual"
MsgBox "Data Atual.......: " & Date, sb, titulo: ActiveCell.Value = Date
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Day(Date)
ActiveCell.Offset(0, 2).Value = "dia de hoje"
MsgBox "Dia de Hoje....: " & Day(Date), sb, titulo: ActiveCell.Value = Day(Date)
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Format(Date, "MMMM") & " ( " & Month(Date) & " )"
ActiveCell.Offset(0, 2).Value = "Mês atual"
MsgBox "Mês Atual......: " & Month(Date) & " = " & Format(Date, "Mmmm"), sb, titulo
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Year(Date)
ActiveCell.Offset(0, 2).Value = "Ano atual"
MsgBox "Mês Atual......: " & Year(Date), sb, titulo
ActiveCell.Offset(2, 0).Select
ActiveCell.Value = "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & "."
ActiveCell.Offset(0, 2).Value = "Local e Data"
MsgBox "Data...........: " & "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & ".", sb, titulo
[D1].Select
End Sub
Fiz essa mensagem, com objetivo didático, para que voce veja as declarações públicas de variáveis no ínicio do módulo, isso simplifica quando voce tem que enviar um uma determinada mensagem várias vezes dentro de um módulo, não precisa ficar digitando só inserir as variáveis.
Sub aprender_vba_saberexcel()
MsgBox "Aprenda microsoft Excel VBA com qualidade", sb, titulo
End Sub
'funçao somente com retorno da mensagem
Sub Funcao_datas_msg()
MsgBox "Data Atual : " & Date, sb, titulo
MsgBox "Dia de Hoje : " & Day(Date), sb, titulo
MsgBox "Mês Atual : " & Month(Date), sb, titulo
MsgBox "Mês Atual : " & Year(Date), sb, titulo
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel
Publicidade
Compre com Segurança, garantia e ótimos preços e produtos nas lojas SubMarino
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