Adicionar janela ca...
 
Notifications
Clear all

Adicionar janela calendário Office 2010‏

9 Posts
2 Usuários
0 Reactions
1,453 Visualizações
(@roneygr)
Posts: 5
Active Member
Topic starter
 

Olá, tudo bom.

Estou tendo dificuldades com uma planilha no Excel 2010 e estou precisando de ajuda.

Preciso que quando eu clico/seleciono uma célula no excel 2010, ele abra a opção de calendário para eu selecionar uma data e assim essa data aparecer no célula no formato "31/12/2016" por exemplo, para que então eu consiga usar o comando "datadif" posteriormente para eu calcular dias.

Segue em anexo imagens que melhor retrata minha necessidade.

Não levem em consideração de o padrão da data na imagem ser o inglês, é apenas um exemplo, pois o que quero usar é o padrão de data brasileiro, o que preciso é de alguma forma abrir uma janela do calendário para selecionar uma data para aparecer em uma determinada célula quando eu clico nela.

Lembrando que estou usando o office 2010.

Aguardo ajuda companheiros.

Att
Roney G. Ramos

 
Postado : 01/02/2016 12:42 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

roneygr,

Boa tarde!

Até aonde eu sei, o Excel ainda não dispões dessa facilidade. É possível fazer através de VBA. Todavia, para isso, compacte seu arquivo com ZIP e anexe o mesmo aqui, informando qual é a coluna que você quer quer fique com essa facilidade.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 01/02/2016 3:00 pm
(@roneygr)
Posts: 5
Active Member
Topic starter
 

Bom Dia.

Primeiramente agradeço desde já a resposta.

Estou enviando em anexo o arquivo onde preciso dessa facilidade.

As células que preciso que tenha essa função é a: "B23" e "D23".

Qualquer duvida que tiver quanto, é só chamar aqui.

Fico no aguardo.

Grande abraço.

 
Postado : 02/02/2016 5:52 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

roneygr,

Bom Dia!

Segue conforme sua solicitação. Agora, quando você selecionar a célula B23 aparecerá o Calendário para que você escolha uma data qualquer. Após escolhida a data (clique duplo no dia escolhido) a mesma será inserida na célula B23. O mesmo ocorre com a célula D23. Quando você seleciona uma das duas células mencionadas, o calendário aparecerá. Caso não queira escolher nenhuma data, basta selecionar qualquer outra célula da planilha que o calendário desaparecerá.

Veja se é assim.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/02/2016 9:31 am
(@roneygr)
Posts: 5
Active Member
Topic starter
 

Wagner Morel

Boa tarde.

Primeiramente, agradeço sua total atenção ao meu caso.

Baixei o arquivo que você me disponibilizou, ao abrir a planilha e ao tentar utilizar, quando eu clico na célula das datas onde quero que abra o calendário, e também quando clico em qualquer outra célula da planilha, o Excel abre automaticamente o VBA com um aviso de erro que não sei do que se trata, eu tirei print dos erros e vou lhe enviar.

Lembrando que clico em "OK" em todos os erros.

Fico no aguardo com a ajuda.

 
Postado : 02/02/2016 10:29 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

roneygr,

Aqui está funcionando perfeitamente. Veja para executar qualquer objeto como esse, o Excel precisa de um a biblioteca própria que disponibiliza o formato do calendário e de todas as suas propriedades. As bibliotecas são arquivos .DLL ou . OCX que acompanham o pacote do Office e, geralmente, são instaladas junto com o pacote.

Você deve ir no menu Ferramentas do Editor de códigos do VBA e selecionar o item Referências. Na caixa Referências - VBAProject que surge veja se há um item marcado chamado Microsoft Calendar Control 2007 (ou outro qualquer se sua versão do Excel for mais nova), conforme imagem abaixo. Muito provavelmente, na sua máquina este item não estará marcado. Procure por ele na lista e marque o mesmo.

Caso ele não esteja disponível na sua lista de Referências, pode ser que você não tenha instalado em sua máquina o arquivo MSCAL.OCX que fica no caminho C:Program Files (X86)Microsoft OfficeOffice 12. Se não tiver, poderá baixá-lo da internet e colocar nesse caminho.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/02/2016 1:39 pm
(@roneygr)
Posts: 5
Active Member
Topic starter
 

Wagner Morel, boa tarde.

Fiz conforme me orientou, realmente não tinha o arquivo em meu computador, então fiz a busca na internet e achei, fiz o procedimento que me explicou para adicionar o calendário, agora a planilha deu outro erro, vou lhe mandar as 02 imagem, uma do calendário que inclui no VBA referente ao arquivo que achei e outra do erro..

Agradeço desde já seu empenho em me ajudar no meu caso.

Grande abraço.

 
Postado : 03/02/2016 9:39 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Beleza.

Bem... como você não tinha o arquivo biblioteca necessário para implementar o calendário, muito provavelmente, quando você inicou o arquivo que lhe enviei, o Excel deve ter apagado os calendários que estavam ocultos no arquivo.

Na verdade, os dois objetos Calendar1 e Calendar2 já ficam na própria planilha, porém com a sua propriedade Visible = False. Ou seja, somente quando a pessoa seleciona uma das célula de datas é que se modifica a propriedade Visible para True para que o calendário apareça na interface do Excel.

Você pode deletar o arquivo que lhe enviei que está na sua máquina, baixar novamente, inserir a referência de novo no editor do VBA se ela ainda não estiver marcada e verificar se funciona normalmente. caso contrário, terá que fazer o seguinte:

Veja se você tem no seu menu da Interface do Excel o menu Desenvolvedor. Se não tiver, basta clicar no botão do Office (canto superior esquerdo da tela), depois botão Opções do Excel (canto inferior esquerdo da tela), Item Mais Usados e marca a caixa de seleção "Mostrar guia Desenvolvedor na Faixa de Opções".

Já com a Guia Desenvolver exibida nos menus do Excel, vá até ela, procure o Painel Controles e dê um clique na pequena seta embaixo do botão Inserir. Isso mostrará uma pequena caixa chamada Caixa de Controles. No canto inferior direito dessa Caixa de Controles, na parte dos Controles ActiveX, existe um ícone (controle) que é uma martelo e uma chave de anel. Se você para o mouse em cima dele vera que será apresentada uma pequena descrição "Mais Controles". Clique então nesse ícone que será aberta a janela Mais Controles. Nessa janela de controles você seleciona o item referente ao Controle de Calendário 12.0 e clica no botão OK. Agora seu mouse se transformará em uma pequena cruz preta. Clique então na célula onde está a primeira data, segure e arraste para criar um calendário visível do tamanho que preferir. Repita os mesmos passos para inserir o segundo calendário na outra célula de data.

Veja que no Painel Controles da aba Desenvolvedor o botão Modo de Design ficou ativado. Você precisará agora, alterar as propriedades Visible de cada um dos controles Calendários que inseriu para FALSE. Para fazer isso, clique em qualquer parte do calendário com o botão esquerdo e escolha o menu Propriedades do mesmo. Em seguida, na caixa de Propriedades que surge, dê um duplo clique na propriedade Visible que ela mudará para FALSE. Fecha a janela de propriedades desse Calendário e faça a mesma coisa com o segundo calendário. Os dois controles devem estar visíveis na sua tela do Excel. Se você clicar no botão Modo de Design, esse modo será desativado e os controles desaparecerão da interface do Excel. Pronto! Agora devem estar funcionando normalmente.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/02/2016 10:13 am
(@roneygr)
Posts: 5
Active Member
Topic starter
 

Wagner Morel, bom dia.

Agradeço novamente seu retorno.

Fiz tudo conforme me orientou, está tudo bem claro e explicativo, mais por limitação na instalação do meu office, não vou conseguir utilizar o comando que preciso, que no caso é o calendário no Excel, pois a minha biblioteca não tem tudo que deveria ter, por exemplo, não achei o "Controle de Calendário 12.0", no local que me indicou, até tentei com outra opção que tinha lá, como por exemplo o "Microsoft Outlook data control", mais não deu certo, então acredito que o problema está resolvido, com certeza o calendário está funcionando, você já me ajudou muito, vou deixar seu arquivo salvo aqui, quando o meu sistema atualizar ou conseguir reinstalar o office, acredito que ai então conseguirei utilizar a ferramenta como necessito, pois nos computadores onde vou utilizar, sou limitado em algumas funções, e não consigo instalar e/ou reinstalar programas ou adicionar algumas coisas, sou limitado quanto ao computador.

Desde já agradeço sua ajuda.

Qualquer novidade pode chamar.

Grande abraço.

 
Postado : 04/02/2016 6:30 am