none
Como alterar valor de 1 linha selecionada na listbox? RRS feed

  • Pergunta

  • Boas,

    Sou novo nisto e tenho pouca experiência em VBA e necessitava da vossa ajuda na resolução de um problema...

    Tenho um formulario em que utilizo uma listbox com 6 colunas de dados e necessito de fazer alterações ao valor de 1 coluna apenas da linha selecionada mas não tenho encontrado solução para isso :-(

    Existe maneira de fazer o mesmo pedido com  Listview????

    agradeço toda a ajuda possível...

    quarta-feira, 25 de abril de 2012 23:57

Respostas

  • Crie um formulário com um ListBox, um ComboBox, um TextBox e um CommandButton e use o código:

                    

    Private Sub CommandButton1_Click()
        If ListBox1.ListIndex = -1 Then
            MsgBox "Selecione um item na ListBox!", vbCritical, "Erro!"
            Exit Sub
        End If
        If ComboBox1 = "" Then
            MsgBox "O ComboBox não pode ficar em branco!", vbCritical, "Erro!"
            Exit Sub
        End If

        'Altera Valor de ListBox
        ListBox1.List(ListBox1.ListIndex, ComboBox1 - 1) = TextBox1
    End Sub

    Private Sub UserForm_Initialize()
        Dim lRow As Long
        Dim lCol As Long

        'Configura ListBox e ComboBox
        ListBox1.ColumnCount = 6
        ComboBox1.Style = fmStyleDropDownList

        'Popula ListBox
        For lRow = 1 To 10
            ListBox1.AddItem
            For lCol = 1 To 6
                ListBox1.List(lRow - 1, lCol - 1) = "Linha " & lRow & ", Coluna " & lCol
            Next lCol
        Next lRow

        'Popula ComboBox
        For lRow = 1 To 6
            ComboBox1.AddItem lRow
        Next lRow
    End Sub

    Selecione uma linha da ListBox, coloque algum texto no TextBox e selecione no ComboBox a coluna que deseja alterar do ListBox e clique no CommandButton para alterar.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 26 de abril de 2012 00:45
    Moderador