Ir para conteúdo
Fórum Script Brasil

Agostinho Paula Filho

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    33

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Agostinho Paula Filho

  1. Ajustar ao monitor

    em VBA

    Postado

    Olha, centralizar, tem como sim...... mas ajustar o tamanho de acordo com a resolução, com VBA, eu não sei, acho que não!

    o que aconselho, realmente é fazer seus Forms pequenos, de tal forma que se a pessoa tiver usando uma resolução 800x600 o form fique dentro da tela!

    o VBA não é realmente programação para sistemas de grande porte... considero que até médio.... então, o ideal é evitar form grandes....

    a propriedade para ajustar o posicionamento inicial do form na tela, é a propriedade StartUpPosition você pode escolher entre 0 - Manual 1 - CenterOwner 2 - CenterScreen

    ai, você altera e vai testando até encontrar o ideal para vc..

    espero ter ajudado

  7. UserForm para inserir e carregar dados

    em VBA

    Postado

    Essa análise pode acontecer todos os dias assim que você abrir o sistema, pera.. você tá fazendo um sistema em VBA para isso, ou tá fazendo apenas como Excel comum?

    bom, se for via sistema, eu sugiro você fazer um form especial para isso, que quando é acessado ele faz essa varredura e popula um listbox por exemplo.

    qualquer duvida pode me enviar email

  16. Como interromper um loop ao clicar em um botão

    em VBA

    Postado

    Olha, acho que dentro de um loop ele não consegue captar uma ação, consegue apenar analisar troca mudança em informações, então...

    você vai ter que repensar esse fluxo e identificar seu problema de uma forma!

    ex

    1º) O que o sistema deve fazer

    - Quando o usuário fizer X ação, o sistema fará y ação

    - Depois que a ação y acontecer, o sistema deverá salvar os dados em um banco de dados

    - depois deverá limpar o textbox

    - depois fará tal coisa

    - depois tal coisa

    e assim por diante... pensa nisso ai e tenta explicar novamente ae pra gente

  21. Obter Idade e Meses a partir da Data de Nascimento

    em VBA

    Postado

    EXPLICO SIM, COM TODO PRAZER""

    Private Sub TextBox31_LostFocus() -> Esse código só vai ser executado quando o textbox31 perder o foco, ou seja, você clicar em outro objeto, ou sair dele com o botão "tab" do teclado..
    Dim hoje As Date -> Variavel do tipo data capturar a data de hoje
    Dim dataNascimento As String -> Variavel do tipo String para capturar a data de nascimento do indivíduo


    On Error GoTo trataerro -> Comando que evita da "pau" no programa, caso haja erro vá para trataerro que é um trecho do código que fica no final do método, e diz o que vai acontecer caso haja erro

    hoje     = Format(Now, "yyyy") -> código que captura a data de hoje: now significa agora e retorna a data de hoje completa mas o "yyyy" significa que você vai pegar só os 4 digitos do ano, no caso 2014.

    dataNascimento = TextBox31 -> a variavel dataNascimento vai receber a data de nascimento

    dataNascimento = Right$(dataNascimento, 4) -> essa gambiarra que eu fiz faz o seguinte, recebe os 4 ultimos digitos da dataNascimento, ou seja se 28/08/1985 ele vai tirar o resto e ficar apenas com o 1985

    TextBox4.Text = hoje - CDate(dataNascimento) ->, bom, nessa hora eu tenho Hoje(2014) e tenho dataNascimento (1985), então 2014-1985 será postado em texbox4

    Exit Sub -> se chegar nessa linha, encerre o método
    trataerro: -> como dito lá em cima, caso haja erro, nesse caso seria erro digitar um valor que não fosse um data válida, ele executa o que tiver nessa linha

    MsgBox "Data Inválida" -> exibe uma menságem que diz que a data digitada não foi válida, então digite uma data válida

    End Sub

    Lembre, existe outras formas de fazer, essa foi a que no momento eu julguei mais fácil e mais rápido!!!!

    qualquer duvida estamos ai..

  24. combobox

    em VBA

    Postado

    Tem como sim!!!... para preencher o seu combobox você utilizou um comando em Sql, provavelmente "select * from <tabela>" e combobox1.additem (coluna)... então, você vai precisar:

    1 - saber qual foi o valor que foi selecionado

    - valorSelecionado = combobox1.value

    2 - fazer um select com esse valor

    - "select * from <tabela> where <coluna> = valorSelecionado

    3 - popular os textboxs do frame de acordo com os dados que você precisa....

    espero ter esclarecido...

  25. Somar TextBox VBA Excel

    em Visual Basic

    Postado

    uai....mas 65*500 dá 32.500

    ;;; bom, quando ao problema...

    esse resultado é em um textbox mesmo ou em célula do excel?

    caso seja em textbox.... então, no código a seguir, eu tenho um formulário com tres textbox.... (textbox1, textbox2 e textbox3), e um botão de comando (commandbutton1).... o código foi aplicado ao botão no evento click, primeiro ele multiplica os valores, depois ele formata os dados.

    os textbox1 e 2 receberam formatação, ao perder o foco, ou após atualizar seus valores.

    Private Sub CommandButton1_Click()
TextBox3 = TextBox1 * TextBox2
TextBox3 = Format$(TextBox3, "R$ ##,####.00")
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format$(TextBox1, "R$ ##,####.00")
End Sub

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format$(TextBox2, "R$ ##,####.00")
End Sub

×
×
  • Criar Novo...