Usuário com melhor resposta
Como preencher cabeçalho em listbox?

Pergunta
-
Tenho o seguinte código:
Sub preList() lstConsulta.ColumnHeads = True lin = 1 lstConsulta.ColumnCount = 2 While Sheets(2).Cells(lin, 1) <> "" lstConsulta.AddItem (UCase(Sheets(2).Cells(lin, 1))) lstConsulta.List(lstConsulta.ListCount - 1, 1) = Sheets(2).Cells(lin, 2) lin = lin + 1 Wend End Sub
Só falta preencher o cabeçalho.
Respostas
-
Para preencher o cabeçalho de uma caixa de listagem (ListBox) num formulário, certifique-se que a propriedade ColumnHeads seja True. Desta forma, se você definir a propriedade RowSource como, por exemplo, A2:D5, automaticamente as linhas A1:D1 serão mostradas como cabeçalho.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta AndersonFDiniz quarta-feira, 11 de setembro de 2013 16:00
Todas as Respostas
-
Bom dia,
Sub InsertHeaderFooter() ' inserts the same header/footer in all worksheets Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Changing header/footer in " & ws.Name With ws.PageSetup .LeftHeader = "Company name" .CenterHeader = "Page &P of &N" .RightHeader = "Printed &D &T" .LeftFooter = "Path : " & ActiveWorkbook.Path .CenterFooter = "Workbook name &F" .RightFooter = "Sheet name &A" End With Next ws Set ws = Nothing Application.StatusBar = False End Sub
Esse código adiciona um header para todas as worksheets ativas dentro da workbook, ele também adiciona o path completo para a workbook.
Att,
Giovani Cruzara – Microsoft Contingent Staff
Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.
Msdn Community Support
Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde. -
-
Para preencher o cabeçalho de uma caixa de listagem (ListBox) num formulário, certifique-se que a propriedade ColumnHeads seja True. Desta forma, se você definir a propriedade RowSource como, por exemplo, A2:D5, automaticamente as linhas A1:D1 serão mostradas como cabeçalho.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta AndersonFDiniz quarta-feira, 11 de setembro de 2013 16:00
-
-