Boa noite, poderiam me ajudar por favor? Tenho este código no VBA para mudar a cor das linhas do ListBox, porem retorna o "erro de compilação: Metodo ou membro de ados não encontrado", referindo-se ao ListItems e ListSubItems:
Sub corLinha()
On Error GoTo Error
Dim i, y As Integer
For i = 1 To Me.lstbox1.lis.Count
For y = 1 To 10
If Me.lstbox1.ListItems(i).ListSubItems(10).Text = "Enviado" Then
Me.lstbox1.ListItems(i).ForeColor = &HC000&
Me.lstbox1.ListItems(i).ListSubItems (10)
Else
Me.lstbox1.ListItems(i).ForeColor = &HC0&
Me.lstbox1.ListItems(i).ListSubItems (10)
End If
Next y
Next i
Exit Sub
erro:
MsgBox "Erro!", vbCritical, "CriterioCor"
End Sub
Pergunta
michelsrt
Boa noite, poderiam me ajudar por favor? Tenho este código no VBA para mudar a cor das linhas do ListBox, porem retorna o "erro de compilação: Metodo ou membro de ados não encontrado", referindo-se ao ListItems e ListSubItems:
Sub corLinha()
On Error GoTo Error
Dim i, y As Integer
For i = 1 To Me.lstbox1.lis.Count
For y = 1 To 10
If Me.lstbox1.ListItems(i).ListSubItems(10).Text = "Enviado" Then
Me.lstbox1.ListItems(i).ForeColor = &HC000&
Me.lstbox1.ListItems(i).ListSubItems (10)
Else
Me.lstbox1.ListItems(i).ForeColor = &HC0&
Me.lstbox1.ListItems(i).ListSubItems (10)
End If
Next y
Next i
Exit Sub
erro:
MsgBox "Erro!", vbCritical, "CriterioCor"
End Sub
Obrigado!
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.