none
Objeto é obrigatório? RRS feed

  • Pergunta

  • Tenho o seguinte código:

    Private Sub CommandButton1_Click()
    OrdenarCombo (ComboBox1)
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    
    ComboBox1.AddItem ("D")
    ComboBox1.AddItem ("C")
    ComboBox1.AddItem ("B")
    ComboBox1.AddItem ("A")
    
    End Sub
    
    
    Public Sub OrdenarCombo(Combo As ComboBox)
        Dim contA As Integer
        Dim contP As Integer
        Dim menor   As String
        Dim Elem As Integer
         
        Elem = Combo.ListCount
        For contA = 0 To Elem - 2
            For contP = contA + 1 To Elem - 1
                If Combo.List(contA) > Combo.List(contP) Then
                    menor = Combo.List(contP)
                    Combo.List(contP) = Combo.List(contA)
                    Combo.List(contA) = menor
                End If
            Next contP
        Next contA
    End Sub
    

    Ao clicar no botão do formulário com a combobox, dá o erro objeto é obrigatório, referente à linha:

    OrdenarCombo (ComboBox1)

    segunda-feira, 2 de setembro de 2013 17:31

Respostas

  • Remova os parênteses.

    Quando você usa o parênteses, você passa à função a propriedade padrão do objeto como parâmetro (caso tenha), que no caso do objeto ComboBox, é a propriedade Text (uma String).


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

    • Marcado como Resposta AndersonFDiniz segunda-feira, 2 de setembro de 2013 22:02
    segunda-feira, 2 de setembro de 2013 21:17
    Moderador