Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Formatar Listview com Critério( MUITO BEM RESOLVIDO)

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Formatar Listview com Critério( MUITO BEM RESOLVIDO)

Mensagem por LEANDRO ALVES »

Olá caros amigos do Fórum,

Eu preciso fazer uma formatação condicional (igual do exel) no Listveiw. Eu estou criando um fluxo de caixa, onde eu registro entradas e saídas do mês (Receita e Despesas). O listiview tem uma coluna que recebe um destes nomes( Receita ou Despesa).
Eu gostaria que os amigos me ajudassem a desenvolver um código que mudasse a cor da letra e a cor do fundo da linha que estiver escrito "Despesa", ou seja todos os valores desta linha terá a cor vermelho, para facilitar a visualização das despesas.

Desde já eu agradeço a todos pela atenção.

Abraços,

Leandro Alves
Editado pela última vez por LEANDRO ALVES em Ter Set 14, 2010 8:08 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Guima
Consultor
Consultor
Mensagens: 242
Registrado em: Sex Out 30, 2009 6:10 am

Re: Formatar Listview com Critério

Mensagem por Guima »

Olá Leandro,

Não sou nenhum expert em Listview, começei a usar tem apenas 2 semanas e tô ficando maravilhado com suas funcionalidades. Em minhas pesquisas sobre seus recursos descobri essa aqui e acho que irá te auxiliar muito:

Código: Selecionar todos

For i As Integer = 0 To ListView1.Items.Count - 1
            ListView1.Items(i).UseItemStyleForSubItems = False
            If ListView1.Items(i).SubItems.Count > 1 Then
                ListView1.Items(i).SubItems(1).BackColor = Color.Yellow
                ListView1.Items(i).SubItems(1).Font = New Font(ListView1.Items(i).SubItems(1).Font, FontStyle.Bold)
            End If
        Next	
A fonte é: http://www.vbmania.com.br/pages/index.p ... &varWorld=

Abraços


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Formatar Listview com Critério

Mensagem por LEANDRO ALVES »

Olá Guima,
Valeu pela dica.
Eu ja havia dado uma olhada neste post, tentei adaptar o codgo para o meu projeto, só que comigo não funcionou.
Te agradeço mais uma vez pela força, e quero me desculpar com todos do forum, pois estarei ausente nestes proximos 60 dias.
Decidi de ultima hora prestar vestibular entao eu terei que devorar muitos livros.

Estou postando meu projeto para quem tiver interesse em aperfeiçoá-lo.

Um abraço,
Leandro Alves
Anexos
Gerenciador Financeiro Pessoal.rar
(38.87 KiB) Baixado 1501 vezes


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Formatar Listview com Critério

Mensagem por Mauro Coutinho »

Leandro, se tiver como postar uma versão do Arquivo Salvando o mesmo como Excel 2003 agradeço.

[]s


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Formatar Listview com Critério

Mensagem por LEANDRO ALVES »

Olá Mauro,

Estou postando o arquivo no formato excel 97-2003. Ele é apenas para lançamentos, mas eu pretendo criar sistemas de contas a receber e contas a pagar, entre outros.

Eu volto em 40 dias

Um abraço,
Leandro Alves
Anexos
Gerenciador Financeiro Pessoal.rar
(33.25 KiB) Baixado 1192 vezes


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Formatar Listview com Critério

Mensagem por Mauro Coutinho »

Leandro, até aonde pesquisei sobre o ListView no Excel, não possivel formatar cor de fundo para a Linha ou Coluna, sómente podemos alterar a cor da Fonte, se isso já ajudar, acrescente a linha abaixo em sua rotina :

Sub PreencheListview1()
............
................................
....................................
'A linha abaixo em sua rotina retorna os Valores da Col C -" Despesa ou Receita" e add no Listview
ListView1.ListItems(1).ListSubItems.Add 2, , PlanRecDesp.Range("C" & i).Value

Código: Selecionar todos

'Acrescente essa linha logo abaixo da acima :
If ListView1.ListItems(1).ListSubItems(2) = "Despesa" Then 'Se o Valor for igual a DESPESA
        ListView1.ListItems(1).ListSubItems(2).ForeColor = QBColor(12) 'Formata a Cor para Vermelho
End If
Sobre a função QBColor, você pode ter mais informações no Site:
http://office.microsoft.com/pt-br/acces ... aspx?CTT=1

Abraços e Boa Sorte com o Vestibular.


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Formatar Listview com Critério

Mensagem por LEANDRO ALVES »

Olá Mauro,

Eu disse que só voltaria em 40 dias, mas acontece que eu nao resisti. Olha ficou excelente!!! Exatamente como eu queria.
Muito Obrigado pela Atenção.

Agora sim, volto em 40 dias.

Um Abraço meu amigo.

Leandro Alves :lol:


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Formatar Listview com Critério( MUITO BEM RESOLVIDO)

Mensagem por Mauro Coutinho »

Valeu, pelo menos vai pegar nos Livros com um item a menos a se preocupar.

Boa sorte nos estudos e que corra tudo bem no vestibular.

Sucesso.

[]s


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Formatar Listview com Critério( MUITO BEM RESOLVIDO)

Mensagem por joseA »

Vejam um exemplo com formatação condicional, não é minha criação.

No caso a condição seria o pagamento.
Anexos
Listview-v4 - colour.rar
(15.41 KiB) Baixado 1761 vezes


HILLES
Colaborador
Colaborador
Mensagens: 37
Registrado em: Qua Ago 11, 2010 9:00 am

Re: Formatar Listview com Critério( MUITO BEM RESOLVIDO)

Mensagem por HILLES »

Boa tarde Leandro Alves, estou trabalhando num projeto muito semelhante ao seu. Mas não consigo resolver um problema e estava olhando o seu, mas tambem encontrei um problema. Quando vou excluir um arquivo ele encontra um erro: ele não encontra a função: Call PreencherIndex. Tentei excluir esta linha aí ele exclui sem problemas mas a numeração dos itens não funciona mais.
Se você já tem esse problema resolvido peço que me ajude, pois no meu projeto estou querendo usar um processo semelhante ao seu.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder