Propriedade QueryTable.PreserveFormatting (Excel)
True se alguma formatação comum às cinco primeiras linhas de dados for aplicada às novas linhas de dados na tabela de consulta. Células não utilizados não são formatadas. A propriedade será False se a última AutoFormatação aplicada à tabela de consulta for aplicada às novas linhas de dados. O valor padrão é True.
Sintaxe
expressão. PreserveFormatting
Expressão Uma variável que representa um objeto QueryTable .
Comentários
Para tabelas de consulta de banco de dados, a configuração de formatação padrão é a constantexlSimple.
O novo estilo de AutoFormatação será aplicado à tabela de consulta quando a tabela for atualizada. A AutoFormatação será redefinida como None sempre que PreserveFormatting for definido como False. Como resultado, qualquer AutoFormat definido antes de PreserveFormatting é definido como False e antes que a tabela de consulta seja atualizada não entre em vigor e a tabela de consulta resultante não tenha nenhuma formatação aplicada a ela.
Se você importar dados usando a interface do usuário, os dados de uma consulta Web ou uma consulta de texto serão importados como um objeto QueryTable , enquanto todos os outros dados externos serão importados como um objeto ListObject .
Se você importar dados usando o modelo de objeto, os dados de uma consulta Web ou de uma consulta de texto devem ser importados como uma QueryTable, enquanto todos os outros dados externos podem ser importados como um ListObject ou um QueryTable.
Use a propriedade QueryTable do ListObject para acessar a propriedade PreserveFormatting .
Exemplo
Este exemplo preserva a formatação do primeiro relatório de tabela dinâmica na planilha um.
Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True
Este exemplo demonstra como a definição de PreserveFormatting como False faz com que a AutoFormatação seja definida como xlRangeAutoFormatNone em vez do formato xlRangeAutoFormatColor1 especificado.
With Workbooks(1).Worksheets(1).QueryTables(1)
.Range.AutoFormat = xlRangeAutoFormatColor1
.PreserveFormatting = False
.Refresh
End With
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de