Início / computer / Perguntas / 1641367
Accepted
feetwet
Asked: 2021-04-13 13:49:07 +0800 CST

Excel padrão Localizar por colunas, não por linhas

  • 772

Ao usar uma pasta de trabalho específica no Excel, quero que o padrão Findseja Search By Columns, não By Rows(que parece ser o padrão imutável).

Se eu fizer essa alteração manualmente, Find Optionsela permanecerá durante esse processo do Excel. Como posso definir programaticamente essa opção?

Janela Localizar/Substituir do Excel

microsoft-excel vba

2 respostas

  1. Infelizmente, aparentemente, não há configuração do Excel ou edição do registro que permita personalizar o comportamento padrão do Find. O que é aparente é que as configurações comportamentais de Localizar são lembradas por instância ou sessão ativa do Excel - ou seja, enquanto o Excel estiver aberto, as configurações de Localizar serão lembradas assim que você alterá-las. Você pode abusar desse fato escrevendo uma pequena macro VBA que faz uma pesquisa assim que o Excel é iniciado. Este find pode ser executado em código VBA através da caixa de diálogo find ou do método VBA cells.find. Uma ressalva aqui é que certas configurações como pasta de trabalho/planilha "dentro" não parecem ser configuráveis ​​via VBA. Acho que a "Pesquisa" por linhas/colunas pode ser definida via VBA, mas não tenho 100% de certeza.

    A implementação passo a passo desta solução é abordada em vários artigos se você pesquisar "configurações de localização e substituição padrão do Excel", como este:

    https://excelribbon.tips.net/T008802_Changing_Default_Search_Settings.html

    O que o artigo não menciona é como fazer com que a macro seja executada toda vez que você abrir qualquer pasta de trabalho. Para isso, você deve adicionar sua macro ao seu arquivo personal.xlsb. O uso de personal.xlsb é abordado em vários recursos online, incluindo os da Microsoft diretamente. Para sua comodidade veja este artigo:

    https://www.myonlinetraininghub.com/create-a-personal-macro-workbook-personal-xlsb

    • 1
  2. Best Answer

    A macro a seguir definirá os Findpadrões em segundo plano – argumentos documentados aqui :

    Sub SetFindByColumns()
    Dim c As Range
    Set c = Cells.Find(What:="", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns)
End Sub

    Tendo definido isso em um módulo, adicionar a seguinte chamada no ThisWorkbookobjeto o acionará assim que a pasta de trabalho for aberta:

    Private Sub Workbook_Open()
    SetFindByColumns
End Sub
    • 1

relate perguntas