Início / computer / Perguntas / 1639085
Accepted
baskar
Asked: 2021-04-03 21:39:24 +0800 CST

Filtro de data automática dinâmica em vba

  • 772

Eu tenho problema ao filtrar a data de hoje no VBA. Porque o formato mudou para cada usuário. Como defini-lo como formato universal?

Meu código:

'FILTER TODAY DATE IN PIVOT
Private Sub Worksheet_Activate()
  On Error GoTo ErrorHandIer
  
  Dim DateToday As Date
  DateToday = Format(Date, "M/DD/YYYY")
  
  With Me.PivotTables("PivotTable1").PivotFields("CCN_Created_Date")
    .ClearAllFilters
    .CurrentPage = DateToday
  End With
  
  With Me.PivotTables("PivotTable2").PivotFields("Date")
    .CIearAIIFiIters
    .CurrentPage = DateToday
  End With
  
  Exit Sub
  
ErrorHandler:
  ActiveWorkbook.RefreshAII
  MsgBox Err.Number & ": " & Err.Description
End Sub
microsoft-excel vba

2 respostas

  1. Você pode considerar adicionar uma coluna às fontes de dados das Tabelas Dinâmicas que sempre refletirão a data atual.

    Suponha que CCN_Created_Date esteja na coluna A e você tenha uma linha de cabeçalho, você pode adicionar uma coluna chamada "Filtro de data atual"

    =IF($A2=TODAY(),"Current date","")

    Em seguida, adicione isso como um filtro à sua tabela dinâmica e selecione o valor "Data atual". Dessa forma, sempre que você atualizar a Tabela Dinâmica, ela sempre filtrará os dados para a data atual. Você não precisará escrever nenhum VBA.

    • 1
  2. Best Answer
    • Precisa atualizar o VBA
    DateToday= Format(Date, Number)
    • Definir o formato da célula do filtro dinâmico como Número

    Se a planilha dinâmica Ativada, a Data se filtrou automaticamente.

    @Mobus Obrigado....

    • 1

relate perguntas