Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Calendário em ComboBox
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
Calendário em ComboBox
Boa tarde, estou procurando um arquivo no VBA que contém um calendário no Combobox
Podem me ajudar?
Abraço
Podem me ajudar?
Abraço
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
Re: Calendário em ComboBox
Não é fácil adaptar o calendário no meu arquivo, pelo menos pra mim que tenho pouca experiência, segui os passos que adquiri no arquivo anterior e nada.
Preciso fazer funcionar dentro da Frame.
Quem pode me ajuda?
Anexo arquivo para alteração.
[REMOVIDO]
Abraço
Ronaldo
Preciso fazer funcionar dentro da Frame.
Quem pode me ajuda?
Anexo arquivo para alteração.
[REMOVIDO]
Abraço
Ronaldo
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Calendário em ComboBox
Já tentei também no Frame e simplesmente não funciona, só fora dele.SilvaRonaldo escreveu:...Preciso fazer funcionar dentro da Frame.
Quem pode me ajuda?
Anexo arquivo para alteração...
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Calendário em ComboBox
Mais uma vez não consigo abrir esse arquivo.
Mas voltando ao assunto em questão, em que Frame você dizem que não funciona Calendario ?
Tenho esse exemplo de uma calendário em um Frame, vejam se ajuda, se não me engano baixei ele do site ozgrid já faz um tempinho. (http://www.ozgrid.com/forum/showthread.php?t=142603)
[REMOVIDO]
abraços
Mas voltando ao assunto em questão, em que Frame você dizem que não funciona Calendario ?
Tenho esse exemplo de uma calendário em um Frame, vejam se ajuda, se não me engano baixei ele do site ozgrid já faz um tempinho. (http://www.ozgrid.com/forum/showthread.php?t=142603)
[REMOVIDO]
abraços
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
Re: Calendário em ComboBox
Mauro vc esta em todas, que bom a sua gentileza.
Obrigado pela dica outro exemplo para meu conhecimento
Estou tentando adaptar esse exemplo:
http://www.tomasvasquez.com.br/download ... ontrol.zip
Private Sub UserForm_Initialize()
Set wsCadastro = ThisWorkbook.Worksheets("Entrada")
Call HabilitaBotoesAlteracao
Call CarregaDadosInicial
Call DesabilitaControles
Set DTP4 = New DateTimePicker
With DTP4
.Add cboData
.Create Me, "dd/mmm/yyyy", _
BackColor:=&H125FFFF, _
TitleBack:=&H808000, _
Trailing:=&H99FFFF
.Value = Date
End With
End Sub
Esta sendo Add acima da Frame,
só que dentro da Frame já tenho ComboBox = cboData
Ficando assim dois combobox no meu formulário, só que nenhum dois aparece o calendário o que fica fora não aceita o evento click esta travado!
O que esta dentro da Frame é habilitado quando clico no botão "Novo" e não aparece o calendário
é isso...
Abraço
Obrigado pela dica outro exemplo para meu conhecimento
Estou tentando adaptar esse exemplo:
http://www.tomasvasquez.com.br/download ... ontrol.zip
Private Sub UserForm_Initialize()
Set wsCadastro = ThisWorkbook.Worksheets("Entrada")
Call HabilitaBotoesAlteracao
Call CarregaDadosInicial
Call DesabilitaControles
Set DTP4 = New DateTimePicker
With DTP4
.Add cboData
.Create Me, "dd/mmm/yyyy", _
BackColor:=&H125FFFF, _
TitleBack:=&H808000, _
Trailing:=&H99FFFF
.Value = Date
End With
End Sub
Esta sendo Add acima da Frame,
só que dentro da Frame já tenho ComboBox = cboData
Ficando assim dois combobox no meu formulário, só que nenhum dois aparece o calendário o que fica fora não aceita o evento click esta travado!
O que esta dentro da Frame é habilitado quando clico no botão "Novo" e não aparece o calendário
é isso...
Abraço
Re: Calendário em ComboBox
Silva,
A alternativa do OzGrid é excelente, já que ela não utiliza referências externas. É possível usar o DateTimePicker diretamente fazendo referência ao controle indo ao VBA, Ferramentas->Controles adicionais. Selecionando o item Microsoft Date and Time Picker Control 6.0. Ele depende do arquivo C:\WINDOWS\system32\MSCOMCT2.OCX. Ele funcionará sem problemas, porém, dependerá da instalação deste arquivo na máquina cliente.
O download que disponibilizei é uma alternativa simples, não completa porém, já que no histórico de sua utilização, o pessoal do fórum enfrentou algumas dificuldades que até então não conseguimos resolver.
Fica a seu critério qual utilizar, considerando o riscos de cada um.
Abraços
A alternativa do OzGrid é excelente, já que ela não utiliza referências externas. É possível usar o DateTimePicker diretamente fazendo referência ao controle indo ao VBA, Ferramentas->Controles adicionais. Selecionando o item Microsoft Date and Time Picker Control 6.0. Ele depende do arquivo C:\WINDOWS\system32\MSCOMCT2.OCX. Ele funcionará sem problemas, porém, dependerá da instalação deste arquivo na máquina cliente.
O download que disponibilizei é uma alternativa simples, não completa porém, já que no histórico de sua utilização, o pessoal do fórum enfrentou algumas dificuldades que até então não conseguimos resolver.
Fica a seu critério qual utilizar, considerando o riscos de cada um.
Abraços
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
Re: Calendário em ComboBox
Tomas
Já Adicionei, deu certo, tenho instalado na minha máquina.
Qual é a propriedade que eu uso para salvar o dia DTPicker1, para a planilha?
Usei este código no procedimento abaixo: DTPicker1.Value
Deu estouro
Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
With wsCadastro
.Cells(indice, colRegistro).Value = id
.Cells(indice, colData).Value = CDate(Me.DTPicker1.Value
.Cells(indice, colUsinagem).Value = Me.cboUsina.Text
End With
Abraços
Call AtualizaRegistroCorrente
End Sub
Já Adicionei, deu certo, tenho instalado na minha máquina.
Qual é a propriedade que eu uso para salvar o dia DTPicker1, para a planilha?
Usei este código no procedimento abaixo: DTPicker1.Value
Deu estouro
Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
With wsCadastro
.Cells(indice, colRegistro).Value = id
.Cells(indice, colData).Value = CDate(Me.DTPicker1.Value
.Cells(indice, colUsinagem).Value = Me.cboUsina.Text
End With
Abraços
Call AtualizaRegistroCorrente
End Sub
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Calendário em ComboBox
Silva, se o seu DTPicker1 foi criado em um TexTbox, para retornar o valor para um range na planilha, teria de usar a seguinta sintaxe:
Supondo que o DTPicker1 está no TextBox1:
Supondo que o DTPicker1 está no TextBox1:
Código: Selecionar todos
Private Sub TextBox1_Change()
range("A1").Value = TextBox1.Text
End Sub