Excel VBA - Datas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba datas textbox datas mascara de datas em textbox vba datas textbox datas mascara de datas em textbox

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 745


    Procedimentos do Aplicativo MS Excel VBA, usando objetos textbox, no final da digitação dia, mes e ano, formata automaticamente o texto em uma outra textbox e também retorna o valor data para folha de planilha, no formato data(dd/mmm/aaaa).
    1 - Userform
    4 - Textbox
    1 - CommandButton


    Dim Dia As Integer
    Dim Mês As Integer
    Dim Ano As Integer

    Private Sub CommandButton1_Click()
    Unload Me
    End Sub


    Private Sub TextBox1_Change()
    On Error Resume Next
    If Len(TextBox1) = 2 Then
    Dia = TextBox1
    TextBox2.SetFocus
    End If
    End Sub

    Private Sub TextBox2_Change()
    On Error Resume Next
    If Len(TextBox2) = 2 Then
    Mês = TextBox2
    TextBox3.SetFocus
    End If
    End Sub

    Private Sub TextBox3_Change()
    On Error Resume Next
    If Len(TextBox3) = 4 Then
    Ano = TextBox3
    Call Validando_data
    End If
    End Sub

    Private Sub Validando_data()
    If Dia < 1 Or Dia > 31 Then
    MsgBox "Dia Inválido"
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox1.SetFocus
    Exit Sub
    End If

    If Mês < 1 Or Mês > 12 Then
    MsgBox "Mês Inválido"
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox2.SetFocus
    Exit Sub
    End If

    If Ano < 1990 Or Ano > 2011 Then
    MsgBox "Mês Inválido"
    TextBox3 = ""
    TextBox4 = ""
    TextBox3.SetFocus
    Exit Sub
    End If

    TextBox4 = Format(Dia, "00") & "/" & Format(Mês, "00") _
    & "/" & Format(Ano, "0000")
    Sheets(1).Range("b5") = TextBox4

    If IsError(Sheets(1).Range("B8")) Then
    MsgBox "Data Inválida"
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""

    Sheets(1).Range("B5").Value = Format(Now, "DD/MM/YYYY")
    TextBox1.SetFocus
    End If
    'Frame1.Caption = "Data: " & TextBox1.Value & "/" & TextBox2.Value & "/" & TextBox3.Value 'ou
    Frame1.Caption = "Data Digitada: " & Format(Dia, "00") & "/" & Format(Mês, "00") _
    & "/" & Format(Ano, "0000")
    End Sub

    Aprenda tudo sobre o Aplicativo MS Excel VBA com SaberExcel



    Baixe o exemplo de planilha contendo os procedimentos acima




    Publicidade:
    Compre com Segurança, garantia e ótimos preços nas lojas submarino

    Informática - Submarino.com.br

    vba datas insere nova planilha e dias da semana vba datas insere nova planilha e dias da semana

    popular!
    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

    vba datas funcao converte data ao digita insere barras vba datas funcao converte data ao digita insere barras

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 614

    Saberexcel - site das macros
    Funçao do Aplicativo Microsoft Excel VBA, converte datas digitadas em células, inserindo as barras de separação de datas dia, mes, ano,
    por exemplo voce diigita : (*) Baixe o exemplo de planilha no final da página.
    Observe que fizemos uma formatação personalizada na coluna (Data Digitada) @
    para aceitar o zero.

    Espero tê-lo ajudado! - Fique com Deus, Boa sorte.

    DATA DIGITADA - RETORNO - FUNÇAO USADA
    01072012 01/07/2010 =SE(C6="";"";ConverteData(C6))
    01052010 01/05/2010 =SE(C7="";"";ConverteData(C7
    ))

    Funçao converte datas digitas inserindo as barras de separação:

    Function ConverteData
    (vdate) As Date
    Application.Volatile
    ConverteData = CDate(Left(vdate, 2) & "/" & Mid(vdate, 3, 2) & "/" & Right(vdate, 2))
    End Function

    Function RetornaFormula(vCelula As Range) As String
    'Application.Volatile = True
    RetornaFormula = vCelula.FormulaLocal
    End Function


    Aprenda tudo sobre o plicativo Microsoft Excel VBA com Saberexcel



    ESSE EXEMPLO DE PLANILHA FAZ PARTE DOS MÓDULOS COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL

     

    Publicidade:
    compre com garantia, segurança e ótimos preços, Lojas Submarino
    Esporte & Lazer - Submarino.com.br

    vba datas exemplo retorna dia mes ano vba datas exemplo retorna dia mes ano

    popular!
    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
    Informática - Submarino.com.br

    vba datas adicionando doze planilhas referentes meses vba datas adicionando doze planilhas referentes meses

    popular!
    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


    Página 1 de 4

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    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


    Pesquisa Google SaberExcel

    Publicidade Google

    <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>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    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