Página 1 de 1
ListView Alterar Cabeçalho Conforme Status [RESOLVIDO]
Enviado: Qua Out 31, 2018 10:45 am
por pedrobb
Pessoal,
Em uma ListView, é possível alterar o Caption do Cabeçalho?
Exemplo:
.ColumnHeaders.Add(4, "Status", "Status", 48, lvwColumnCenter).Tag = "STRING"
.ColumnHeaders.Add(10, "Cotação", "Cotação/Valor de Venda", 55, lvwColumnCenter).Tag = "NUMBER"
Na ListView1, em Vez de aparecer Cotação/Valor de Venda quero o seguinte:
se o STATUS for EM SER, o caption do cabeçalho seja Cotação;
se o STATUS for VENDIDO, o caption do cabeçalho seja Valor de Venda.
Obs: Postei também em:
http://www.planilhando.com.br/forum/vie ... 23&t=29777
Grato,
Pedro
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Qui Nov 01, 2018 10:05 am
por LaerteB
Bom dia, pedrobb.
Se entendi, você quer que de acordo com a condição mude o cabeçalho da sua listview..
então tente usar o código que estou disponibilizando, para que possa mudar o seu cabeçalho
quando for alterado na linha da sua coluna na planilha..
Ex:
(Cabeçalho neste exemplo na primeira linha da planilha)..
Este código você pode colocar no seu formulário e chamar com a condição que
você criar para ele OK..
Código: Selecionar todos
Dim X As Integer
Dim UltimaColuna As Integer
Dim W As Worksheet
Set W = Sheets("Plan1")
UltimaColuna = W.UsedRange.SpecialCells(xlLastCell).Column
For X = 1 To Ultimacoluna
If (W.Cells(1, X)) <> "" Then
UltimaColuna = UltimaColuna
End If
Next X
For X = 1 To UltimaColuna
Me.ListView1.ColumnHeaders.Add.Text = (W.Cells(1, X))
Next X
Me.ListView1.View = lvwReport
Espero que te ajude
Abraço
LaerteB
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Qui Nov 01, 2018 10:52 am
por pedrobb
LaerteB,
Obrigado pela atenção.
A sua função Adiciona coluna no Listview, mas o que quero é alterar o rótulo de coluna existente, assim:
se o STATUS for EM SER, o caption do cabeçalho é Cotação;
se o STATUS for VENDIDO, o caption do cabeçalho é Valor de Venda.
Grato,
Pedro
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Qui Nov 01, 2018 11:05 am
por LaerteB
Pedrobb,
Esse código não só acrescenta como também altera o rótulo de coluna existente no ListView (quando você altera o rótulo na planilha e o código for chamado)..
agora tens que criar a sua condição que você citou acima e chamar esse código.
RETIFICANDO: Desculpe, acho o que você quer é somente a alteração na ListView e não na Planilha (esse código que informei é quando alterado na planilha a ListView também será alterada).. bem se eu conseguir algo te informo aqui.. ok..
LaerteB
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Qui Nov 01, 2018 11:53 am
por pedrobb
LaerteB escreveu: ↑Qui Nov 01, 2018 11:05 am
Pedrobb,
Esse código não só acrescenta como também altera o rótulo de coluna existente no ListView (quando você altera o rótulo na planilha e o código for chamado)..
agora tens que criar a sua condição que você citou acima e chamar esse código.
RETIFICANDO: Desculpe, acho o que você quer é somente a alteração na ListView e não na Planilha (esse código que informei é quando alterado na planilha a ListView também será alterada).. bem se eu conseguir algo te informo aqui.. ok..
LaerteB
Exatamente, amigo.
Muito obrigado!
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Qui Nov 01, 2018 1:54 pm
por LaerteB
Pedrobb,
Eu criei um arquivo exemplo (simples), em anexo...
espero eu ter entendido o que você queria e procurava..
Insira e altere conforme o seu projeto.
Abraços
LaerteB
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Qui Nov 01, 2018 4:22 pm
por pedrobb
LaerteB,
Estamos quase chegando no desejado.
Aproveitando o seu exemplo, veja o anexo ...........
Na Listview1
a) não precisa de combobox
b) ao clicar no Código 2, a quarta coluna será VALOR DE VENDA
c) ao clicar no Código 3, a quarta coluna será COTAÇÃO
e assim por diante......
ou seja:
Na ListView1, em Vez de aparecer Cotação/Valor de Venda quero o seguinte:
se o STATUS for EM SER, o caption do cabeçalho seja Cotação;
se o STATUS for VENDIDO, o caption do cabeçalho seja Valor de Venda.
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Sex Nov 02, 2018 2:29 pm
por LaerteB
Pedrobb, boa tarde... bom feriado!!
Agora acho que ficou como você queria...
Na ListView1
a) agora não tem mais o combobox
b) ao clicar na linha do Código 2 (na ListView), a quarta coluna será VALOR DE VENDA
c) ao clicar na linha do Código3 (na ListView), a quarta coluna será COTAÇÃO
....
Em anexo o arquivo com as alterações, espero que te ajude..
Abraço
LaerteB
Re: ListView Alterar Cabeçalho Conforme Status
Enviado: Sáb Nov 03, 2018 12:19 am
por pedrobb
Show de Bola!!!!!!!!!!
Muito obrigado, LaerteB!