INSERIR CALENDÁRIO AUTOMÁTICO em FORMULÁRIO VBA - CÓDIGOS PRONTOS
HTML-код
- Опубликовано: 6 ноя 2020
- Como inserir calendário pronto em formulário Excel VBA, e como utilizar os códigos na planilha Excel. Calendário vba para capturar a data automaticamente ao clicar no formulário vba. Não precisa fazer alterações nos códigos vba do calendário, apenas chamar no objeto desejado para exibi-lo na planilha Excel. Calendário vba pode ser adequado a qualquer projeto vba, permitindo selecionar a data diretamente no calendário.
Caso não consiga baixar pelo Link1, tente o Link2:
Link1 para baixar os códigos do calendário vba:
mega.nz/file/IzYnHSKI#pDyAAWl...
Link2 para baixar os códigos do calendário vba:
drive.google.com/file/d/1KqRY...
✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
www.planilhascanalsgp.com.br/
========================================== 
Наука
Parabéns! Muito bom, excelente dica. Obrigado.
Bom dia, obrigado.
parabens... suas dicas sempre são fascinantes agradecemos muito mestre.....
Obrigado
Perfeito, ajudou muito no meu projeto, muito obrigado!!
Que bom que ajudou
Ficou muito bom, obrigado pela ajuda!!
Que bom que ajudou
Muito bom
Utilizo nos meus projetos e facilita muito.
Obrigado.
Obrigado pela lição.
Funciona perfeitamente. ❤
Que bom que funcionou.
Boa professor... Muito obrigado
De nada.
Obrigado.
Muito bom estava procurando algo parecido.
Obrigado
Obrigado professor, vc me salvou!
Que bom que ajudou.
Boa tarde, excelente dica
Obrigado 👍
Excelente
Obrigado
Show!!!
Obrigado
Top demais..
Obrigado
Muito bom....não pede pra comprar nada...like like....
Obrigado.
tem como colocar o feriado no calendario? numa planilha colocar os feriados do ano todo, e quando cair na data do calendario ao abrir carregar o feriado de tal data no formulariocalendario. exe 25 novembro, NATAL Numa lbl. tentei colocar mas nao carrega.
Bom dia, até o momento não fiz nada assim.
é possivel inseri em uma combox este calendario?ao utilizar na text box o calendario abre no meio da tela,esteticamente não fica legal
Boa tarde, não fiz nada neste sentido ainda.
Oi Luan, uso esse calendário há alguns anos. Recentemente coloquei False depois do comando Userform.Show False para trabalhar com várias planilhas simultaneas e com formulário aberto. Com esse False, se clico em um dia do calendário em um textbox da Page8 (pode ser qualquer página, exceto 0) do Multipage, há um pulo para Page0. Se volto manualmente para Page8, vejo que a data escolhida está no textbox. Se tiro o False, esse problema desaparece, mas não posso trabalhar com várias planilhas simultaneas. Como resolvo?
Boa noite, teste colocar um ponto de interrupção no código e ir executando linha por linha de código com tecla F8, para ver qual linha de código está ativando a Page0
Oin Sergio o bom professor, ensina nós fazermos uma agenda com hora marcada para os clientes sem horário duplicado
Bom dia, com horas é sempre complexo, não fiz projeto semelhante ainda.
Bom dia... por acaso vc teria uma planilha de controle de contratos? Estou precisando de uma... ou então, poderia produzir um vídeo orientando a criação de uma.
De já agradeço.
Boa tarde, infelizmente não tenho planilha neste segmento.
Tentei fazer todo procedimento mas da um erro de compilacao apenas no meu projecto (o debugg aponta para o código "day(dtdia,"00")")
Mas quando faço num projecto novo, ele aceita.
Bom dia, onde tem day, coloque vba.day para testar.
boa tarde..
No meu caso está dando erro de compilação alguém consegue me ajudar fora do useform o calendário funciona .mas quando monto a linha de comando Textbox1 GETCalendário (textbox)
da erro de compilação atributo alguém sabem me dizer como resolver
Boa noite, dentro da textbox acredito que não funciona, teste colocar em uma label os códigos.
Muito bom. Quando muda o ano, é preciso fazer algo?
Bom dia, obrigado, não precisa fazer nada.
@@CanalSGP Perfeito. Parabéns, suas aulas me ajudaram muito. Abraço.
Boa tarde, que bom.
Amigo, quando eu lanço uma data com dia menor que 12. O excel lança na planilha no formato americano, entende que o que vem primeiro é o mês e não o dia. Tens alguma solução?
Boa noite, precisa definir no seu código que se trata de data. Por exemplo:
Dim Data As Date
Data = Textbox1.Value
célula da planilha = Data
DE ANTEMÃO, PARABÉNS PELA INICIATIVA. A PRÍNCIPIO O MEU FUNCIONOU PERFEITAMENTE, PORÉM QDO A DATA INICIA COM "0", POR EX.: 03/07/2022, QDO PASSA PRA CÉLULA NO EXCEL FICA ASSIM 07/03/2022, OU SEJA, INVERTE. O QUE FAÇO?
Bom dia, obrigado, precisa definir no código que vai salvar que se trata de dados do tipo data. Segue link de vídeo neste sentido. ruclips.net/video/zcErFx9Go9c/видео.html
@@CanalSGP obgd. vou assistir
De nada
Boa noite professor, não estou conseguindo baixar o calendário VBA.rar que mostrou e agradeceria muito se você me ajudar
Bom dia, testei os links e estão funcionando normalmente, talvez seja algo no seu navegador.
O meu not ficou tirando print da tela após a instalação do calendário e não consigo removê-lo do excel
Vou perder meu projeto todo, né?
Bom dia, estranho, acredito que não tenha relação com a planilha, deve ser outro bug do seu computador. Teste fechar o Excel utilizando o gerenciador de tarefas quando acontecer isso.
Adorei essa aula sobre o calendário ... só não consegui fazer o calendário aparecer numa posição desejada ... no meu caso ele aparece no canto inferior e à direita
Boa tarde, estranho, deveria aparecer centralizado na tela, é padrão do vba. Confirme nas propriedades left e top para quanto está.
Resolvido! ... obrigado!... agora ficou como era desejado
Que bom que resolveu.
MUITO BOA A DICA, MAS QUANDO TRANSMITO A DATA DO USERFORM PARA MINHA BASE DE DADOS, O VBA ESTÁ ENVIANDO EM FORMATO DE DATA AMERICANA E A PLANILHA ESTÁ EM FORMATO DE DATA BRASILEIRA. COMO FAÇO PARA O VBA ENVIAR A DATA EM FORMATO BRASILEIRO, SEM INVERTER MÊS E ANO?
Boa tarde, para salvar a data para a planilha precisa converter para o formato correto através de variável. Por exemplo:
Dim Data as Date
Data = Textbox1
Algum código para iniciar o calendário abaixo de uma caixa de texto ou rótulo de um formulário?
Boa noite, não tentei fazer isso ainda, mas pode colocar uma label e deixar invisível, para quando clicar naquele ponto abrir o formulário do calendário.
O meu da erro na aparência do calendário, Está em formato "0" todas as semanas, apenas uma coluna está "00" ou seja só aparece 0 e 1 (primeiro dígito da data. Tipo Só a "quinta feira" aparece os dias com dois dígitos. Onde resolvo isso ?
Boa tarde, em algumas versões Excel ocorre este erro, mas não identifiquei ainda a causa.
@@CanalSGP arrumei, expandindo largura das colunas
Ótimo video, porém vc poderia mostrar como abro o calendario em uma multipage? Muito Obrigado
Boa noite, obrigado, em multipage não tentei ainda, geralmente é utilizado nos objetos da multipage.
Pode explicar como usa esse recurso em uma célula Excel?
Bom dia, segue link de vídeo neste sentido. ruclips.net/video/rkIFh7_4yRQ/видео.html
BOA TARDE, MUITO BOM SEU VIDEO ,POREM TEM UM ERRO NO CALENDARIO , NO COMEÇO DOS MESES ,ELE INVERTE O DIA E O MES ,EXEMPLO ,SE CLICAR EM 05/09, ELE VAI PARA A PLANILHA COMO 09/05. TEM COMO CONSERTAR PELO VBA?
Boa tarde, a inversão da data acredito que não seja devido ao calendário. Para corrigir no código para salvar precisa definir que se trata de data, por exemplo:
Dim Data as Date
Data = Textbox1.value
Célula da planilha = Data
No meu deu o mesmo erro eu fui na planilha e formatei as celulas como (mmddaa) resolvido.
Como fazer pra esse calendário funcionar no Windows 11 ?
Boa noite, não testei em Windows 11 ainda, não sei dizer se tem algum ajuste para ser feito.
MUITO BOM, MAS NO MEU DA ERRO NÚMERO DE ARGUMENTOS INCORRETO OU ATRIBUIÇÕES DE PROPRIEDADE INVÁLIDAS
Bom dia, pela mensagem deve ter erro no nome do objeto onde será inserida a data.
Bom dia. Excelente dica.
Como eu faço para que o calendário abra quando a textbox for selecionada?
Exemplo. estou na textbox2, aperto TAB para ir para a textbox3 (onde deverá abrir o calendário), seleciono a data e já faz o calculo automático na textbox4 e o cursor passará para a textbox5 automático.
textbox1 = data de hoje (automática) 02/02/2021
textbox2 = nome = Rafael
textbox3 = data final = 05/02/2021
textbox4 = textbox3 - textbox1 = 3 dias
textbox5 = responsável = Pedro
Boa tarde, obrigado, até o momento não fiz nada neste sentido. Mas vou estudar essa necessidade.
@@CanalSGP Obrigado, ficarei no aguardo.
Excelente
Obrigado