none
Como preencher cabeçalho em listbox? RRS feed

  • 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.
    domingo, 8 de setembro de 2013 16:06

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
    terça-feira, 10 de setembro de 2013 02:23
    Moderador

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.

    segunda-feira, 9 de setembro de 2013 12:17
  • Desejo preencher o cabeçalho de uma listbox em um formulário.

    Pretendo preencher a primeira coluna do cabeçalho com a palavra "Funcionário" e a segunda coluna do cabeçalho com a palavra "Data".

    segunda-feira, 9 de setembro de 2013 19:57
  • 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
    terça-feira, 10 de setembro de 2013 02:23
    Moderador
  • Existe algum meio de preencher o cabeçalho sem utilizar RowSource ?
    terça-feira, 10 de setembro de 2013 16:28
  • Não é possível.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 11 de setembro de 2013 02:27
    Moderador