Blog Archive
-
▼
2005
(103)
-
▼
abril
(16)
- VBA: Ainda a UDF
- VBA: UDFs
- Excel: Hyperlink personalizado
- Excel: Uma solução diferente de SUMPRODUCT: a util...
- Excel: Ainda a Função SUMPRODUCT()
- VBA: Blink Label
- VBA: Label1.Caption
- VBA: O Método ActiveWorkbook.SaveAs Filename
- VBA Msg
- VBA: Centrar texto numa MsgBox
- VBA: Abrir procedimento com valor numa determinada...
- VBA: Colocar a Data numa célula
- VBA: Filtro numa ListBox II
- VBA: Filtro numa ListBox
- VBA: Filtrar por critério
- VBA: Limpar conteúdos
-
▼
abril
(16)
About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2005-04-05
No seguinte exemplo, temos uma tabela de nomes:
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vGpxwlYi7qpeJDpJGBGGIOwv9g-HTDatIkhojq0HfTKmpm4JJbhLHtgqrtLWjVG6DvDVVUab1nE9pGthbUTAmvwCQC5tHoqA7ibipwj5jVz2MkYKS-=s0-d)
Se pretendermos aplicar um filtro com utilização de um procedimento em VBA, teremos
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_sFD3qFch3GiPWIURSlLMc6ZeuSN-beVi5UuWtpQ0JgTyazZzvkgJFv7OQPiyjkpSEnAad23jyIvDbkIJp68Ewcx4ROEo3Vo7EY9aPQINKipBtQNw=s0-d)
O resultado será:
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vtrKUndGCxYMVttRgTKTOGzlcTOl5Pplsg7sq0OvFmxwMh2Kl-HR8ITCQ7gNvt0r6gVdPQGbvNLAcZO0rrwbxoGZRN4UrzvOQeFwFjIXuFT_5lQUEF=s0-d)
Para desfazer o filtro, podemos utilizar novamente o mesmo procedimento em VBA, desta vez só com a utilização do wildcard "*" (asterisco) :
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_t0AVCBCDUeaLQBWz9P_rh4c3Hp8IBJzoBUR7ZgmSyfvuNH4RUqtFxtVdcVmQjt3ts03uN2ABMjsxc6yJdv-vu7W8FUyFJHkVvatcDZNapxGdScGw=s0-d)
O resultado será o aparecimento da tabela, de novo já sem filtro efectuado:
![](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_t2q63bGjK0Y3jeXqMihrbwZFHRU-wWjmuTTxlB8fb_hU4yukDxpys6-IIc35tbdQiJu-bBytd7x59IKFOmv_NlqcqbBkK6PlksN_A1WiBiBTt3_oPN=s0-d)
O Código do exemplo:
Sub Procura()
Dim strProc As String
strProc = InputBox("Digite a(s) letra(s) pretendidas e asterisco [ex. Jo*]ou asterisco para todos")
Range("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=strProc, Operator:=xlAnd
Range("A1").Select
End Sub
Nota: o procedimento aceita quer o wildcard "*", como o "?"
Se pretendermos aplicar um filtro com utilização de um procedimento em VBA, teremos
O resultado será:
Para desfazer o filtro, podemos utilizar novamente o mesmo procedimento em VBA, desta vez só com a utilização do wildcard "*" (asterisco) :
O resultado será o aparecimento da tabela, de novo já sem filtro efectuado:
O Código do exemplo:
Sub Procura()
Dim strProc As String
strProc = InputBox("Digite a(s) letra(s) pretendidas e asterisco [ex. Jo*]ou asterisco para todos")
Range("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=strProc, Operator:=xlAnd
Range("A1").Select
End Sub
Nota: o procedimento aceita quer o wildcard "*", como o "?"