Jump to content
Fórum Script Brasil

MosconiDih

Membros
  • Content Count

    3
  • Joined

  • Last visited

Community Reputation

0 Neutro

About MosconiDih

  • Birthday 03/04/1989

Perfil

  • Gender
    Male
  • Location
    Morro Agudo, SP
  • Interests
    VBA
  1. Pessoal tenho uma dúvida. Estou criando uma agenda e gostaria que minhas duas textbox que recebe a hora digitada pelo usuário se autoformate durante a imputação de dados. Ex: quando o usuário digitar do 3 até o 9 ele acrescente antes o 0 e se for o 1 ou 2 não e depois do 2 caractere ele acrescente os : para separar hora do minuto. Caso o minuto for maior q 5 ele jogue automático o zero também. Alguém me da uma luz ae? Tentei usar case no evento _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) mas infelizmente não deu certo. Tentei com o evento change mas não deu certo.
  2. Pessoal estou fazendo uma aplicação em vba usando excel como bando de dados. E na minha tela de inicial gostaria que um label q eu criei exibisse a hora e escrevesse uma saudação. Criei um código mas ele infelizmente fica estático exibindo apenas a hora em que a aplicação foi aberta. Alguém me da uma mão pra ele ficar dinâmico e atualizar a label a cada segundo com a hora nova? Segue o código abaixo. Private Sub UserForm_Activate() Dim vSaudacaoHora As Integer vSaudacaoHora = Hour(Now) + TimeValue("00:00:01") Select Case vSaudacaoHora Cas
  3. Ola... tenho pouco conhecimento mas acredito q te resolveria o problema usando um modulo no evento do keydown cria o modulo "sub keyReturn" e coloca a função que você quer que ele execute ==== UserFormX =================================================================== Private Sub txtOrdemVenda_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then keyReturn 'chama sua sub na txtOrdemVenda End if End Sub ======== UserFormY ===========================================
×
×
  • Create New...