Excel vba imagens icones para botões
Planilha Excel VBA datas arrumar chamando macro e função
Estes macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), arrumam data(valor/texto) inseridos em células
linhas e colunas. Um macro chamando a função fDataArrumar(), e outro macro usando a linha de código usada na função, para arrumar as datas em todas as colunas, isto é vai inserir barras “/” separando dia, mês, ano.
Para um melhor entendimento da Instrução For Next, fiz um exemplo com colunas alternadas e usei a instrução for next com as variáveis
‘escola saberexcel vba estudos®
‘http://www.saberexcel.com.br
Sub sbx_arruma_data_chama_funcao()
Dim vLin, vCol As Long
For vCol = 3 To 19 Step 2
For vLin = 2 To Cells(Rows.Count, “b”).End(xlUp).Row
Cells(vLin, vCol).Select
Cells(vLin, vCol).Value = fDataArrumar(Cells(vLin, vCol – 1))
Next vLin
Next vCol
MsgBox (“Datas foram arrumadas, chamando a Função ‘fDataArruma()'”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//========’ usando o função fDataArrumar() como Fórmula =fDataArruma(b2), ou chamando atraves de macros
Function fDataArrumar(vCelula As String)
fDataArrumar = _
Left(vCelula, 2) & “/” & Right(Left(vCelula, 4), 2) & “/” & Right(vCelula, 4)
End Function
‘//========’
Sub sbx_limpar_teste()
Dim vLin, vCol As Long
For vCol = 3 To 19 Step 2
For vLin = 2 To Cells(Rows.Count, “b”).End(xlUp).Row
‘Cells(vLin, vCol).Select
Cells(vLin, vCol).Value = “” ‘fDataArrumar(Cells(vLin, vCol – 1))
Next vLin
Next vCol
MsgBox (“Os dados na folha de planilha foram limpos com sucesso” & vbCrLf & _
“Observe que usei a instrução For…Next, com stpe 2 para Limpar as colunas alternadas”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//========’
Sub sbx_arruma_data_macro()
Dim vLin, vCol As Long
For vCol = 3 To 19 Step 2
For vLin = 2 To Cells(Rows.Count, “b”).End(xlUp).Row
Cells(vLin, vCol).Select
‘Cells(vLin, vCol).Value = fDataArrumar(Cells(vLin, vCol – 1))
‘usando a linha de código da função diretamente no macro
Cells(vLin, vCol).Value = Left(Cells(vLin, vCol – 1), 2) & “/” & _
Right(Left(Cells(vLin, vCol – 1), 4), 2) & “/” & _
Right(Cells(vLin, vCol – 1), 4)
Next vLin
Next vCol
MsgBox (“Datas foram arrumadas, usando a linha de código” & vbCrLf & _
“usada na função fDataArrumar() diretamente no macro”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//========’
Sub sbx_teste_arruma_data()
‘observe que substitui no macro sbx_arruma_data_macro, por (vLin,vCol) linhas e colunas correspondentes.
Cells(2, “c”) = Left(Cells(2, “b”), 2) & “/” & Right(Left(Cells(2, “b”), 4), 2) & “/” & Right(Cells(2, “b”), 4)
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 o Curso Excel VBA Expert – Escola SaberExcel VBA Estudos | |||||||||
|
 Baixe o exemplo de planilha contendo os macros acima: |
 Planilha Excel VBA datas arrumar chamando macro e função |
| << Link Download: Email Valido > Verifique a Caixa de Itens Excluídos >> |
