Home Excel - Downloads / Areas Restritas Excel VBA - Userforms e outros

Excel VBA - Userforms e outros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    Excel planiha vba usf cadastro simples Excel planiha vba usf cadastro simples

    popular!
    Adicionado em: 10/11/2011
    Modificado em: 10/11/2011
    Tamanho: Vazio
    Downloads: 1814

    Saberexcel - O site de quem precisa aprender Macros Microsoft Excel VBA.

    Esses procedimentos do Aplicativo Microsoft Excel VBA, cadastra dados em determinada folha de Planilha, por meio de objetos textboxes.
    ' - - - - - - - - - - - - - - - -
    Private Sub cmdLANCAMENTO_Click()
    Dim vPALAVRA As Long

    vPALAVRA = Plan1.Range("A65536").End(xlUp).Row + 1 'localiza a última linha +1 (célula vazia)
    'poderá criar um verifica inconsistência para todos os ítens abaixo.
    If txtNOME = "" Then
    MsgBox ("Preencha os dados corretamente")
    Exit Sub
    End If

    'observe a simplicidade do código, localiza as ultimas linha/colunas e grava dados
    'Plan1 - é o nome da folha de código da folha de planilha, se o usuário mudar o nome da folha de planilha na aba,
    'não ocorrerá erro, porque referenciamos o nome da folha de código da folha de planilha.

    Plan1.Range("a" & vPALAVRA).Value = Me.txtNOME.Text
    Plan1.Range("b" & vPALAVRA).Value = Me.txtENDERECO.Text
    Plan1.Range("c" & vPALAVRA).Value = Me.txtBAIRRO.Text
    Plan1.Range("d" & vPALAVRA).Value = Me.txtCIDADE.Text
    Plan1.Range("e" & vPALAVRA).Value = Me.cboESTADO.Text
    Plan1.Range("f" & vPALAVRA).Value = Me.txtCEP.Text
    Plan1.Range("g" & vPALAVRA).Value = Me.txtTELEFONE.Text
    Plan1.Range("h" & vPALAVRA).Value = Me.txtOBSERVACAO.Text

    MsgBox ("Dados inseridos com sucesso"),vbInformation, "http://www.microsoftexcel.com.br"
    lblCONTADOR.Caption = vPALAVRA 'mostrando o próximo codigo cliente, cada gravação

    'limpando as TextBox depois de ter gravado os dados na folha de planilha
    Me.txtNOME.Value = ""
    Me.txtENDERECO.Value = ""
    Me.txtBAIRRO.Value = ""
    Me.txtCIDADE.Value = ""
    Me.txtCIDADE.Value = ""
    Me.cboESTADO.Value = ""
    Me.txtCEP.Value = ""
    Me.txtTELEFONE.Value = ""
    Me.txtOBSERVACAO.Value = ""
    Me.txtNOME.SetFocus 'retornando o cursor para o TextBox (txtNOME)
    End Sub
    ' - - - - - - - - - - - - - - - -
    'carregar a combobox com os estados ao inicializar, isto é ao abrir o formulário.
    Private Sub UserForm_Initialize()
    vPALAVRA = Plan1.Range("A65536").End(xlUp).Row + 1 ' numerar o proximo cadastro
    lblCONTADOR.Caption = vPALAVRA
    cboESTADO.List = Array("AC", "AL", "AP", "AM", "BA", "CE", "DF", "GO", "MA", "MG", "MT", _
    "MS", "PA", "PB", "PR", "PE", "PI", "RJ", "RS", "RN", "RD", "SC", "SP", "SE", "TO")
    End Sub
    ' - - - - - - - - - - - - - - - -

    'fechar o formulário na conclusão das tarefas
    Private Sub cmbSAIR_Click()
    Unload Me
    End Sub
    ' - - - - - - - - - - - - - - - -
    'esse procedimento determina a localização de abertura do formulário na folha de planilha
    Private Sub UserForm_Activate()
    With frmCADASTRO
    .Top = Application.Top + 149
    .Left = Application.Left + 30
    End With
    End Sub
    ' - - - - - - - - - - - - - - - -
    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.






    Excel planiha vba textbox soma na mesma txt Excel planiha vba textbox soma na mesma txt

    popular!
    Adicionado em: 19/06/2011
    Modificado em: 19/06/2011
    Tamanho: Vazio
    Downloads: 2008

    SaberExcel - O Site das Macros

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), soma determinados valores na própria Caixa de Texto(TextBox),
    usando o Evento AfterUpdate(Ocorre depois que os dados de um controle são alterados através da interface do usuário) por ex: ao digitar 756+3837+938 = Ao teclar Enter, retornará o resultado da soma na própria caixa de texto(Textbox) = 5531

    Private Sub TextBox1_AfterUpdate()
    Dim iValor, vTabela, vNum, i

    On Error Resume Next
    TextBox1 = Evaluate(TextBox1.Value)

    If Err.Number Then
    TextBox1 = ""
    Err.Clear
    End If

    iValor = Me.TextBox1.Value
    vTabela = Split(iValor, "+")
    vNum = 0

    For i = 0 To UBound(vTabela)
    vNum = vNum + vTabela(i)
    Next

    Me.TextBox1.Value = vNum
    Frame1.Caption = "Total da Soma..:" & TextBox1.Value

    'observe que aqui vou fazer um exemplo para voce aprender um pouco sobre a propriedade offset, que deslocará dados,
    'de determinado objeto para a célula na folha de planilha - lembre-se( ....Offset(linha, Coluna).
    'Não deixe de ler sobre COMO FAZER - Programação MS excel VBA -(Propriedade offset),
    'de extrema importancia no aprendizado ms Excel VBA

    [A65000].End(xlUp).Offset(1, 0).Value = "Total..: [ " & TextBox1.Value & " ]"
    [A65000].End(xlUp).Offset(0, 2).Value = "Soma executada no próprio TextBox1."

    End Sub


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel planiha vba combobox selecionar linhas e item Excel planiha vba combobox selecionar linhas e item

    popular!
    Adicionado em: 24/05/2011
    Modificado em: 24/05/2011
    Tamanho: Vazio
    Downloads: 2070

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o número da linha selecionado no objeto ComboBox, selecionando a linha pelo objeto ComboBox. Se a sua caixa de combinação é preenchida com todos os elementos em ordem (por exemplo, com a linha de código) ' ComboBox1.List=Range("A2:A" & Range("A65536").End(xlUp).Row).Value . Propriedade ListIndex fornece o número da linha correspondente. Dado que o primeiro elemento no índice 0, se inicia na linha 2 temos o número da linha ComboBox1.Listindex = + 2
    Sugiro que baixe o exemplo de planiha no final da página para um melhor entendimento. Fiquem com Deus, Expedito Marcondes.

    Private Sub UserForm_Initialize() 'carregar com a inicialização do Formulário(userform)
    ComboBox1.List = Range("A2:A" & Range("A65536").End(xlUp).Row).Value
    End Sub

    Private Sub ComboBox1_Change() 'ao preencher(digitar) no objeto Combobox1
    Cells(ComboBox1.ListIndex + 2, 1).EntireRow.Select 'selecionando a linha correspondente na folha de planiha
    Set Area = Selection
    Numero_Linha = Area.Row
    MsgBox "Selecionou a linha: [" & Numero_Linha & "]" & " Selecionou ítem..: [ " & ComboBox1.Value & " ]", _
    vbInformation, "Saberexcel - o site das Macros"
    End Sub

    Private Sub CommandButton1_Click()
    Unload Me 'comando para fechar um formulário(Userform)
    End Sub




    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel palnilha vba usf textbox op_mat formata moeda Excel palnilha vba usf textbox op_mat formata moeda

    popular!
    Adicionado em: 29/03/2011
    Modificado em: 29/03/2011
    Tamanho: Vazio
    Downloads: 3641

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o resultado da multiplicação entre dois objetos, duas textbox(caixa de texto), e formata os textbox como Moeda, neste caso Reais.
    Espero que o exemplo lhe seja útil. Fique com Deus, Boas Pesquisas.

    'esse procedimento retorna o resultado da multiplicação entre dois textbox,
    'TextBox1 x TextBox2, retorna em :
    'Retorna valor com centavos em uma Label,
    'Retorna valor com centavos em um Frame,
    'Retorna no caption do Userform1
    'Retorna Também na Célula(B16) o valor da multiplicação
    'Ao Fechar o userform (QueryClose) limpa a célula (B16)

    Private Sub TextBox2_Change()
    vNum1 = TextBox1.Value
    vNum2 = TextBox2.Value

    Label1.Caption = "Resultado da Multiplicação: [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
    Frame1.Caption = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
    UserForm1.Caption = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
    [B16].Value = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"

    End Sub

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    [B16].Value = ""
    End Sub

    Private Sub CommandButton1_Click()
    Unload Me
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Página 10 de 10

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA