none
Listbox com mais de 10 colunas? RRS feed

  • Pergunta

  • O código a seguir só funciona até a décima coluna da listbox.

    A partir daí dá erro.

    Por que não consigo preencher mais colunas na listbox?

    Private Sub txtPesquisa_Change()
    
    
    'O código deve ser colocado no evento Change da Caixa de Texto
    
    ListBox1.ColumnCount = 17
    ListBox1.ColumnWidths = "60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60"
      
         'Para cada planilha em todas as planilhas desta pasta de trabalho
         
         For Each plan In ThisWorkbook.Sheets
             
             'Se o valor que estiver na célula A1 da planilha atual for
             
             'parecido com o valor que está na caixa de texto
             
             'Para cada celula no preenchida na planilha atual
             For Each celula In plan.UsedRange.Cells
                 If celula.Row > 7 And celula.Column > 2 Then
                    If celula.Value <> "" Then
                    
                        If celula.Value Like "*" & txtPesquisa.Text & "*" Then
                            
                            'Será adicionado o valor que está na planilha atual
                            
                            'na célula atual
                            
                            
                            For i = 0 To 9
                            
                            If i = 0 Then
                            
                            ListBox1.AddItem (ThisWorkbook.Sheets(plan.Name).Cells(celula.Row, i + 1))
                            
                            Else
                            ListBox1.List(ListBox1.ListCount - 1, i) = ThisWorkbook.Sheets(plan.Name).Cells(celula.Row, i + 1)
                            End If
                            Next i
                            Exit Sub
                        End If
                        
                    End If
                 End If
             Next celula
             
         Next plan
    End Sub
    

    domingo, 24 de agosto de 2014 22:25

Respostas

  • Boa Tarde Anderson,

    Existe um limite de 10 colunas para uma listbox, como opção processar os dados em uma planilha e atribuir esses dados na propriedade rowsource.

    ListBox1.ColumnCount = 20 ListBox1.RowSource = "a1:t500"

    Abraço.

    segunda-feira, 25 de agosto de 2014 15:49