AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • Início
  • system&network
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • Início
  • system&network
    • Recentes
    • Highest score
    • tags
  • Ubuntu
    • Recentes
    • Highest score
    • tags
  • Unix
    • Recentes
    • tags
  • DBA
    • Recentes
    • tags
  • Computer
    • Recentes
    • tags
  • Coding
    • Recentes
    • tags
Início / computer / Perguntas / 1856634
Accepted
MiG
MiG
Asked: 2024-09-23 21:53:11 +0800 CST2024-09-23 21:53:11 +0800 CST 2024-09-23 21:53:11 +0800 CST

Alterar automaticamente o filtro automático com base na célula vinculada

  • 772

Resumo: Como faço para forçar a execução de um script de filtro automático quando uma alteração de célula (induzida por outro script, não pela entrada do usuário) é detectada na célula I2? (observação: Excel 365, não vejo uma tag específica para isso, mas fique à vontade para ajustar se eu não vi!)

insira a descrição da imagem aqui

Eu vinculei células em diferentes abas que mudam de valor sempre que uma das outras muda seu valor. Se você definir 5 em uma aba, isso mudará as outras células nas outras abas para o mesmo valor. Este é um exemplo, da aba1 (as outras abas são atualmente idênticas em conteúdo e layout, com versões ajustadas localmente deste script):

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = Range("F2").Address Then
      Range("A5:E120").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F1:F2")
   End If
If Not Intersect(Target, Range("I2")) Is Nothing Then
  If Target = Range("I2") Then
    If Sheets("tab2").Range("I2").Value <> Target.Value Then
      Sheets("tab2").Range("I2").Value = Target.Value
    End If
  End If
End If
If Not Intersect(Target, Range("I2")) Is Nothing Then
  If Target = Range("I2") Then
    If Sheets("tab3").Range("I2").Value <> Target.Value Then
      Sheets("tab3").Range("I2").Value = Target.Value
    End If
  End If
End If
End Sub

Estou tentando filtrar as linhas em duas dessas guias com base neste valor: se definido como 5, ele deve mostrar todas as linhas na coluna A que contêm um valor de 5 ou menos (ou 3 ou menos, ou 2 ou menos etc.). Criei uma coluna auxiliar para esse efeito que verifica o valor em I2 e compara os valores da coluna A:

=IF(A5<=$I$2,"yes","no")

A ideia é que tudo com "sim" será exibido, e tudo com "não" será oculto.

Atualmente, estou usando o AutoFiltro manualmente em cada aba, mas gostaria de automatizar as alterações de filtro. Embora eu seja bem avançado em amarrar planilhas complexas usando as fórmulas internas, com o VBA ainda sou bem novo.

Isso parece promissor (também apresentado acima): https://www.tutorialspoint.com/how-to-autofilter-rows-based-on-cell-values-in-excel , que parece não usar os menus suspensos completos do AutoFiltro, mas funciona mesmo assim:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated By Nirmal
   If Target.Address = Range("F2").Address Then
      Range("A5:E120").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F1:F2")
   End If
End Sub

Isso pega o valor de E2 e oculta as linhas com um valor na coluna com o cabeçalho que corresponde a E1. Os menus suspensos do AutoFilter não estão disponíveis, mas isso é bom, pois a filtragem é a parte que importa.

O que estou encontrando é que esse script não parece pegar as alterações de células vinculadas, somente após a entrada direta do usuário. Então você teria que fazer uma edição em cada aba novamente, que é exatamente o que estou tentando evitar (ou seja, alterar o valor em um lugar, ter filtros mudando em todos os lugares)...

windows
  • 1 1 respostas
  • 72 Views

1 respostas

  • Voted
  1. Best Answer
    MiG
    2024-09-25T02:29:30+08:002024-09-25T02:29:30+08:00

    O truque está em adicionar outra verificação para essa segunda célula (veja a segunda linha abaixo):

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address = Range("F2").Address Or Target.Address = Range("I2").Address Then
          Range("A5:E120").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F1:F2")
       End If
    If Not Intersect(Target, Range("I2")) Is Nothing Then
      If Target = Range("I2") Then
        If Sheets("tab2").Range("I2").Value <> Target.Value Then
          Sheets("tab2").Range("I2").Value = Target.Value
        End If
      End If
    End If
    If Not Intersect(Target, Range("I2")) Is Nothing Then
      If Target = Range("I2") Then
        If Sheets("tab3").Range("I2").Value <> Target.Value Then
          Sheets("tab3").Range("I2").Value = Target.Value
        End If
      End If
    End If
    End Sub
    

    Pequenas variantes deste script (alterando 'tab1' e 'tab2') agora estão em vigor em cada uma das três abas. Alterar o valor por meio do menu suspenso em qualquer uma das abas agora resulta na aplicação automática do autofiltro a todas as três abas automaticamente.

    insira a descrição da imagem aqui

    Obrigado ao gns100 por me apontar a direção certa!

    EDIT: As células diretamente acima do intervalo (neste caso A3:E3) precisam estar vazias, ou o filtro ocultará tudo.

    • 1

relate perguntas

  • Como desativar a aceleração do mouse em um touchpad de precisão do Windows?

  • renomear em massa conjuntos de arquivos de imagem

  • Qual seria o equivalente em lote do argumento "pass" do Python?

  • Comunique-se com o daemon do Docker no Windows

  • atalho do shell da área de trabalho no painel lateral do explorer

Sidebar

Stats

  • Perguntas 205573
  • respostas 270741
  • best respostas 135370
  • utilizador 68524
  • Highest score
  • respostas
  • Marko Smith

    Como posso reduzir o consumo do processo `vmmem`?

    • 11 respostas
  • Marko Smith

    Baixar vídeo do Microsoft Stream

    • 4 respostas
  • Marko Smith

    O Google Chrome DevTools falhou ao analisar o SourceMap: chrome-extension

    • 6 respostas
  • Marko Smith

    O visualizador de fotos do Windows não pode ser executado porque não há memória suficiente?

    • 5 respostas
  • Marko Smith

    Como faço para ativar o WindowsXP agora que o suporte acabou?

    • 6 respostas
  • Marko Smith

    Área de trabalho remota congelando intermitentemente

    • 7 respostas
  • Marko Smith

    O que significa ter uma máscara de sub-rede /32?

    • 6 respostas
  • Marko Smith

    Ponteiro do mouse movendo-se nas teclas de seta pressionadas no Windows?

    • 1 respostas
  • Marko Smith

    O VirtualBox falha ao iniciar com VERR_NEM_VM_CREATE_FAILED

    • 8 respostas
  • Marko Smith

    Os aplicativos não aparecem nas configurações de privacidade da câmera e do microfone no MacBook

    • 5 respostas
  • Martin Hope
    Vickel O Firefox não permite mais colar no WhatsApp web? 2023-08-18 05:04:35 +0800 CST
  • Martin Hope
    Saaru Lindestøkke Por que os arquivos tar.xz são 15x menores ao usar a biblioteca tar do Python em comparação com o tar do macOS? 2021-03-14 09:37:48 +0800 CST
  • Martin Hope
    CiaranWelsh Como posso reduzir o consumo do processo `vmmem`? 2020-06-10 02:06:58 +0800 CST
  • Martin Hope
    Jim Pesquisa do Windows 10 não está carregando, mostrando janela em branco 2020-02-06 03:28:26 +0800 CST
  • Martin Hope
    andre_ss6 Área de trabalho remota congelando intermitentemente 2019-09-11 12:56:40 +0800 CST
  • Martin Hope
    Riley Carney Por que colocar um ponto após o URL remove as informações de login? 2019-08-06 10:59:24 +0800 CST
  • Martin Hope
    zdimension Ponteiro do mouse movendo-se nas teclas de seta pressionadas no Windows? 2019-08-04 06:39:57 +0800 CST
  • Martin Hope
    jonsca Todos os meus complementos do Firefox foram desativados repentinamente, como posso reativá-los? 2019-05-04 17:58:52 +0800 CST
  • Martin Hope
    MCK É possível criar um código QR usando texto? 2019-04-02 06:32:14 +0800 CST
  • Martin Hope
    SoniEx2 Altere o nome da ramificação padrão do git init 2019-04-01 06:16:56 +0800 CST

Hot tag

windows-10 linux windows microsoft-excel networking ubuntu worksheet-function bash command-line hard-drive

Explore

  • Início
  • Perguntas
    • Recentes
    • Highest score
  • tag
  • help

Footer

AskOverflow.Dev

About Us

  • About Us
  • Contact Us

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve