VBA Excel - Previna o recalculo durante a execução do seu código (Preventing Calculation).

Algo que costuma deixar a execução de uma série de passos em nossas planilhas é o fato de o MS Excel recalcular tudo a cada passo alterado na nossa aplicação. Isso acaba por tornar lentíssima a execução das nossas aplicações. É lógico que podemos dar um jeito nisso. Como? Basta ampliar o exemplo abaixo na sua aplicação. Bons estudos!

Sub StopCalculation()
      Application.Calculation = xlCalculationManual

   ' Digite o seu código aqui.

   Application.Calculation = xlCalculationAutomatic
End Sub

André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com

Tornando a execução do seu código mais rápida por para a atualização da tela (Stop Screen Flickering)

| Blog Office VBA | Blog Excel | Blog Access |

Muitas vezes quando estamos manipulando inúmeras colunas, linhas e células, ficamos felizes por acompanhar os deslocamentos, agrupamentos e recálculos de tudo o que elaboramos. Isso acontece na primeira e segunda vez, depois torna-se extremamente irritantes visualizarmos a tela deslizando prá elá e prá cá na nossa frente enquanto a planilha demora infinitos minutos até finalizar a execução. Seus problemas acabaram. Basta que desligue a atualização da tela e sua planilha será atualiza somente uma vez, após ter processado tudo o que pediu que fosse processado. Divirta-se...

Sub StopFlickering()
   Application.ScreenUpdating=False

   ' Adicione o seu código.

   Application.ScreenUpdating=True
End Sub

André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com

VBA Excel: Modo Calculation

Modo Calculation

Normalmente o MS Excel recalculará uma Célula ou um Range quando estes forem alterados. Às vezes essa atualização trás certos transtornos, fazendo com que a performance caia. Podemos prevenir que o MS Excel recalcule o workbook por usarmos o statement:.

Neste exemplo abaixo forçamos o recálculo para o modo manual:

Let Application.Calculation = xlCalculationManual

Também temos a possibilidade de mudar esse statement no final do nosso código:

Let Application.Calculation = xlCalculationAutomatic

André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com

VBA Excel: Importe dados a partir do MS Access para o MS Excel (Via DAO)

Então, o crossover entre Access e Excel continuam a persistir...

Como posso importar os dados do Access para minhas planilhas Excel?

Implementem o código abaixo...

Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, FieldName As String, TargetRange As Range)
      ' Exemplo: DAOCopyFromRecordSet "C:\A&A_Folder\DataBase.mdb", "TableName", "FieldName", Range("C1")
 
    Dim db As Database, rs As Recordset
      Dim intColIndex As Integer

   Set TargetRange = TargetRange.Cells(1, 1)
   Set db = OpenDatabase(DBFullName)
   Set rs = db.OpenRecordset(TableName, dbOpenTable) ' Todos os registros.

   For intColIndex = 0 To rs.Fields.Count - 1
          Let TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name
   Next

    ' Escreva no Recordset.
   TargetRange.Offset(1, 0).CopyFromRecordset rs

   Set rs = Nothing

      db.Close

   Set db = Nothing
End Sub

André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com

VBA Access - Função Format com Datas - Using the Format Function with Dates

No MS Office Access, a função Format faz o tratamento de um conteúdo, retornando-o na expressão que desejarmos. A syntaxe para a função Format é: Format ( expressão, [ format, [ firstdayofweek, [primeirasemanadoano] ] ] ) Expressão é o valor a ser "formatado". Format é opcional, existem valores defaults para este, como observado abaixo: 

 15.01.2025 

' A função Format permite formatar datas, horas e outros tipos de dados 

' de acordo com a configuração do sistema ou com formatos personalizados.

' Exemplos de formatos pré-definidos:

' General Date: Exibe a data no formato padrão do sistema.

' Long Date: Exibe a data no formato "Data Longa" de acordo com a configuração regional.

' Medium Date: Exibe a data no formato "Data Média" de acordo com a configuração regional.

' Short Date: Exibe a data no formato "Data Curta" de acordo com a configuração regional.

' Long Time: Exibe a hora no formato "Hora Longa" de acordo com a configuração regional.

' Medium Time: Exibe a hora no formato "Hora Média" de acordo com a configuração regional.

' Short Time: Exibe a hora no formato "Hora Curta" de acordo com a configuração regional.

' Exemplo de uso de formato pré-definido

Dim formattedDate As String

' Exemplo de formato "Short Date" para a data de hoje

formattedDate = Format(#17/04/2009#, "Short Date")

' Retornará: "17/04/2009"

' Exemplo de formato "Long Date" para a mesma data

formattedDate = Format(#17/04/2009#, "Long Date")

' Retornará: "Abril 17, 2009" (dependendo da configuração do sistema)

' Exemplo de formato "yyyy/mm/dd" para a mesma data

formattedDate = Format(#17/04/2009#, "yyyy/mm/dd")

' Retornará: "2009/04/17"

' VBA: Utilizando a função Format diretamente no código VBA

Dim LValue As String

' Exemplo de formatação para "dd/mm/yy" (dia/mês/ano)

LValue = Format(Date, "dd/mm/yy")

' A variável LValue conterá a data de hoje formatada como "17/04/23" (dependendo da data atual)

' Utilizando a função Format diretamente em uma query no Access:

' Exemplo de query no Access que utiliza o formato "Long Date"

SELECT Format([YourDateField], "Long Date") AS FormattedDate

FROM YourTable;

' Essa query retornará as datas no formato longo configurado no sistema para o campo [YourDateField].

' Definindo um formato personalizado:

' É possível criar formatos personalizados para exibir datas e horas da forma que desejarmos.

' Exemplo de um formato personalizado para a data: "dd-mmm-yyyy"

Dim customFormattedDate As String

customFormattedDate = Format(Date, "dd-mmm-yyyy")

' Exemplo de resultado: "17-Apr-2023"

' Exemplos de constantes de configuração de semana:

' A constante firstdayofweek é opcional e pode ser usada para definir o primeiro dia da semana na função Format:

' vbUseSystem (0) - Usa a configuração padrão do sistema

' vbFirstJan1 (1) - A semana que contém o primeiro dia de janeiro

' vbFirstFourDays (2) - A primeira semana do ano que contém 4 dias

' vbFirstFullWeek (3) - A primeira semana cheia do ano

' Exemplo de uso da constante firstdayofweek:

Dim firstDayOfWeek As Integer

firstDayOfWeek = vbUseSystem ' Usando a configuração do sistema

' Ou use vbFirstJan1, vbFirstFourDays ou vbFirstFullWeek, dependendo da necessidade

' Exemplo prático com um formato de data personalizada:

Dim myCustomDate As String

myCustomDate = Format(#17/04/2009#, "dd-mmm-yyyy")

' A variável myCustomDate conterá a data formatada como "17-Apr-2009"

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT