Notifications
Clear all

Fazer com que linha listbox Realce

7 Posts
2 Usuários
0 Reactions
1,533 Visualizações
victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Eaii pessoal!

Trabalho com um form de cadastro, tenho uma lisbox

O que eu quero não sei se é possível. mas no meu modo de pensa tem com sim por que existe código que seleciona uma linha.

o que eu quero o seguinte.

Quando adicionar um item a listbox, o mesmo faça um realce ou seja uma seleção temporalizada uns 3 segundos de duração, no item e linha adicionada

Se usa código de localizar a primeira coluna melhor pra mim.

desde já agradeço... vcs sempre me salva rsrsr

Tentar não é saber, é ter a certeza que vai descobrir

Dicas excel, vba, Access http://vbaedit.blogspot.com.br/

 
Postado : 10/08/2014 10:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Parece possível sim. Precisamos de um modelo com seu form e listbox.
No evento click do listbox vc chamaria uma rotina que que selecionaria as células (ou linhas) na planilha ativa, e agendasse para em alguns segundos, rodar outra rotina que desselecionaria tudo.
(dá uma procurada em Application.OnTime)

No mais, fica difícil montar um modelo sem o seu modelo COMPACTADO. Nos ajude a te ajudar.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/08/2014 7:59 pm
victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Parece possível sim. Precisamos de um modelo com seu form e listbox.
No evento click do listbox vc chamaria uma rotina que que selecionaria as células (ou linhas) na planilha ativa, e agendasse para em alguns segundos, rodar outra rotina que desselecionaria tudo.
(dá uma procurada em Application.OnTime)

No mais, fica difícil montar um modelo sem o seu modelo COMPACTADO. Nos ajude a te ajudar.

Entendendo esse código consegui remover a seleção em 3 segundos.

Dim B
Public theend As Date

Sub parartempo()
    'Encerra a cronometragem
    On Error Resume Next
    Application.OnTime B, Procedure:="Atualiza", Schedule:=False

End Sub

Sub cometempo()
    
    'Verifica diferença dos segundos
    If Time < theend Then
        'Atualiza a cada 1 segundo
        Application.OnTime Now + TimeValue("00:00:01"), "Atualiza"

    Else
        'Chama rotina para encerrar contagem
        Application.Run "parartempo"
        
        'Fecha o Formulario
        With frm_estoque
        .ListBox1.ListIndex = -1
        End With
        
    End If
    
End Sub
Sub Atualiza()
    Call cometempo
End Sub

Bt chama

Private Sub CommandButton3_Click()
Dim B

    B = Time

    theend = Time + TimeValue("00:00:03")

Application.Run "cometempo"

End Sub

Precisando de uma código pra selecionar A linha na ListBox.

Ex: Se a Testbox1 for igual ao item da COLUNA 0 - ZERO, então linha seleciona.

Tentar não é saber, é ter a certeza que vai descobrir

Dicas excel, vba, Access http://vbaedit.blogspot.com.br/

 
Postado : 11/08/2014 7:37 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Para eu entender o que vc disse:

Vc conseguiu um código que faz o que vc precisa... ok!
Agora vc precisa de mais um?

o que vc quer dizer com :
"se testbox1 = item da coluna 0 (nao existe coluna 0 no excel) então linha seleciona" ? (não entendi seu português)...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/08/2014 7:49 am
victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Para eu entender o que vc disse:

Vc conseguiu um código que faz o que vc precisa... ok!
Agora vc precisa de mais um?

o que vc quer dizer com :
"se testbox1 = item da coluna 0 (nao existe coluna 0 no excel) então linha seleciona" ? (não entendi seu português)...

Desculpa rsrsrs esqueci de citar ListBox1 coluna 0

Por exemplo: Se o item da textbox1 for igual ao item da coluna 0 linha tal da ListBox1, então linha seleciona ( código que falta )

Tentar não é saber, é ter a certeza que vai descobrir

Dicas excel, vba, Access http://vbaedit.blogspot.com.br/

 
Postado : 12/08/2014 5:01 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

como vc define a "linha tal" ?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/08/2014 5:32 pm
victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

como vc define a "linha tal" ?

Dim i As Long
For i = ListBox1.ListCount - 1 To 0 Step -1
' If TextBox1.Value = ListBox1.Selected(i) Then 'essa linha de código como define
ListBox1.Selected(i) = True
' End If
Next

Na coluna 0 da Lixtbox é uma coluna de código 1 2 3 4... acho que vai agora rsrsrs

Tentar não é saber, é ter a certeza que vai descobrir

Dicas excel, vba, Access http://vbaedit.blogspot.com.br/

 
Postado : 12/08/2014 6:28 pm