Tomás Vásquez – Blog

VBA – Filtrar dados no ListBox (Tela de Pesquisa) – Parte 2

Há algum tempo, publiquei um exemplo de código VBA que permitia efetuar um filtro em uma lista de itens em um ListBox (UserForm), mas especificamente neste link:

http://www.tomasvasquez.com.br/blog/microsoft-office/vba-como-filtrar-dados-no-listbox

Bom, nas discussões no nosso fórum, acabamos por aperfeiçoar o código para algo mais abrangente. A boa notícia é que o código continua bem genérico, pode ser facilmente acoplado em qualquer planilha. A notícia ótima é que os critérios de filtro ficaram bem mais completos.

O código agora permite selecionar o campo no qual será aplicado o filtro, o valor do filtro e mostra todos as colunas da tabela. Abaixo segue como ficou a aparência do formulário:

O código VBA

Entrando um pouco em detalhes a respeito do funcionamento do código e como adaptá-lo a sua planilha, seguem algumas considerações.

Variáveis

Private Const NomePlanilha As String = “Fornecedores”
Private Const LinhaCabecalho As Integer = 1

NomePlanilha contempla o nome da planilha ao qual será aplicado o filtro. Altere para o nome da sua planilha.

LinhaCabecalho representa qual a linha da sua planilha contém o cabeçalho da tabela. É nele que se baseiam todos as outras funções.

Funções

PreencheCampos – Preenche o ComboBox com o nome dos cabeçalhos

PreencheCabecalho – Função auxiliar para colocar no ListBox de resultado o cabeçalho dos valores

PreencheLista – Preenche o ListBox de resultado considerando os valores de filtro

Download da planilha

Filtra_ListBox_VBA_Custom.zip

Bom proveito!

   Desenvolvimento, Excel, Microsoft Office, VBA    Add a comment

Office – Área útil maior nas telas do Office

Fonte: INFO

Minimize a Faixa de Opções e ganhe espaço extra para trabalhar com documentos, planilhas e apresentações

Para trabalhar bem, nada melhor do que ter espaço. Se você quiser aumentar a área útil na tela do seu computador nos programas do Office, clique no botão Personalizar e selecione Minimizar a Faixa de Opções. É o que basta para que desapareçam. Para operar com uma faixa de opções, clique em seu título. Para voltar a exibir a faixa de opções, clique novamente em Personalizar e desmarque o comando Minimizar ou, então, ganhe tempo e use um duplo clique em qualquer uma das guias.

Do autor

A dica é básica, mas vale muito a pena principalmente com a chegada dos netbooks, cujas telas são de tamanho bem reduzido e as barras de ferramenta podem ser um tormento na hora de realizar os trabalhos.

Bom proveito!

   Access, Excel, Microsoft Office, Outlook, VBA, Word    Add a comment

Office – Entendendo a utilidade do Painel de Tarefas

Desde a versão XP, ou Microsoft Office incluiu uma nova característica. Uma das mais implícitas lançadas pelo aplicativo por ser notavelmente apresentada ao usuário. O Painel de Tarefas.

O Painel de Tarefas é uma barra ou um pedaço de tela que se arranja ao lado direito da janela do Microsoft Excel quando este é aberto, conforme é visto na figura abaixo:

No Office XP ele é pouco usual, tornando-se apenas umas extensão de algumas caixas de diálogo. Já no Office 2003, o Painel de Tarefas passou de um mero coadjuvante para uma ferramenta essencial em algumas funcionalidades que serão listadas neste artigo.

Clicar na título superior desta, nos traz algumas de suas opções padrão como mostra a figura:

Abaixo segue um resumo das funcionalidades de cada uma das opções:

Ponto de Partida

Permite uma interação inicial com o Microsoft Excel. Os destaque fica por conta de um painel de pesquisa disponibilizado logo na primeira seção do Painel. Qualquer busca é feita automaticamente no Office Online, um portal de conteúdo sobre Office mantido pela Microsoft para manter sempre atualizado o conteúdo e exemplos de Excel. Logo abaixo desta seção também é colocada a lista de documentos recentemente abertos, assim como no mebu arquivo. A vantagem está no rápido acesso.

Ajuda

Esta é uma das principais mudanças notadas pelos usuários. A seção de pesquisa da ajuda é apresentada totalmente no painel de tarefas. A vantagem em relação à forma antiga é que além de não ser preciso abrir uma nova janela, a pesquisa pode ser categorizada e também é integrada ao Office Online.

Resultados da Pesquisa

Clip-art

Pesquisar

Este Painel de Pesquisa vai além do que a Ajuda oferece. É uma espécie de buscador de internet integrado ao Office, como o Google ou o MSN Search. Abaixo segue uma figura com as opções padrão disponíveis:

É possível efetuar buscas por tradução de texto, sinônimos e também de negócios específicos. A busca também pode trazer como resultado serviços do Office Market Place. Também é possível personalizar estas opções clicando no link Opções de pesquisa no rodapé do painel:

Área de tranferência

Nova Pasta de Trabalho

Espaço de Trabalho Compartilhado

Atualizações do Documento

Código-fonte XML

Como novidade da versão 2003, o mapeamento dos arquivos XML utiliza o painel de tarefas para disponibilizar as nós que contém dados para serem inseridos na planilha, em um esquema muito parecido com as tabelas dinâmicas. Um arquivo XML mapeado pode ser visto na figura abaixo:

Note que o Excel obedece a hieraquia dos itens contidos no XML.

Após a breve explicação de cada um destes itens, é pertinente definir alguns termos que foram mencionados. Um deles é o Office MarketPlace.

O Office Marketplace é uma exposição de produtos e serviços que funcionam com o Office. São suplementos e serviços de internet que funcionam integrados ao Office. O Office Marketplace reune desde serviços profissionais a tarefas do dia-a-dia. É possível também colaborar, tendo obras publicadas neste site. Diversas empresas especializadas em Microsoft Office tem trabalhos publicados para demonstrar o potencial das ferramentas do Office.

Conclusão

Fica claro ao ver a quantidade de recursos disponibilizada pelo Painel de Tarefas que este deixa de ser apenas uma janela lateral que insiste em conquistar o usuário para se transformar num dos caminhos mais fáceis para interagir com os novos recursos adicionados na ferramenta Office. Com prática e curiosidade, facilmente o Painel de Tarefas passa a ser um poderoso e indispensável aliado para os trabalhos do dia-a-dia no Microsoft Excel.

   Access, Desenvolvimento, Excel, Microsoft Office, Outlook, VBA, Word    Add a comment

VBA – Listar Arquivos de um diretório

Mais uma para a caixa de ferramentas de VBA. A macro abaixo retorna um Array de String com a lista de nomes dos arquivos contidos na pasta informada:

Public Function ListaArquivos(ByVal Caminho As String) As String()
    'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
    Dim FSO As New FileSystemObject
    Dim result() As String
    Dim Pasta As Folder
    Dim Arquivo As File
    Dim Indice As Long
 
 
    ReDim result(0) As String
    If FSO.FolderExists(Caminho) Then
        Set Pasta = FSO.GetFolder(Caminho)
 
        For Each Arquivo In Pasta.Files
            Indice = IIf(result(0) = "", 0, Indice + 1)
            ReDim Preserve result(Indice) As String
            result(Indice) = Arquivo.Name
        Next
    End If
 
    ListaArquivos = result
ErrHandler:
    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
End Function

A macro abaixo é um exemplo de chamanda a função acima, listando os arquivos da pasta C:\temp, como informado no código.

Private Sub ListaArquivos()
    Dim arquivos() As String
    Dim lCtr As Long
    arquivos = ListaArquivos("C:\temp")
    For lCtr = 0 To UBound(arquivos)
      Debug.Print arquivos(lCtr)
    Next
End Sub

Importante: Faça referência à biblioteca Micrsoft Scripting Runtime para ter acesso aos objetos da File System Object (FSO), necessários para execução do exemplo.

Bom proveito!

   Access, Desenvolvimento, Excel, Microsoft Office, VBA, Word    Add a comment