VBA Excel Basic - Propriedade Application.StatusBar

VBA Simples - Propriedade Application.StatusBar

Sim, precisamos identificar quem é o dono da planilha que nosso Cliente preparou ou que disponibilizamos a outros. Fazer isso, além de personalizar, mantém o CopyRight do conteúdo. Estabelecendo uma base legal para ações futuras em caso de uso autorização.

Como você pode alterar?

Primeiro abra a sua planilha:

Em seguida cole o código abaixo nela:

Private Sub Worksheet_Activate()
    Dim oldStatusBar As Variant
 
    Let oldStatusBar = Application.DisplayStatusBar
    Let Application.DisplayStatusBar = True
 
    Let Application.StatusBar = "Please be patient..."
    'Workbooks.Open Filename:="LARGE.XLS"
 
    Let Application.StatusBar = False
    Let Application.DisplayStatusBar = oldStatusBar
End Sub

VBA Excel Basic - Usando a Propriedade ScreenUpdating

VBA Excel - Usando a Propriedade ScreenUpdating

Na grande maioria das vezes que implementamos algum código para automação, não desejamos visualizar na tela o código que está sendo processado, para isso podemos usar a propriedade ScreenUpdating:

A sintaxe é: Application.ScreenUpdating

Ao utilizar essa funcionalidade o seu código será executado mais rápidamente:

Let Application.ScreenUpdating = False

Depois de colocar esta linha antes do início do processamento do seu código, não será capaz de ver o que a macro está fazendo, mas após o término não se esqueça de redefinir a propriedade ScreenUpdating de volta para True.

Let Application.ScreenUpdating = True

Exemplo:

'  Adicione uma Nova Worksheet

Private Sub GenerateNewWorksheet()
    Dim ActSheet As Worksheet
    Dim NewSheet As Worksheet

    ' Prevenindo as atualizações de tela.
    Let Application.ScreenUpdating = False
    Set ActSheet = ActiveSheet
    Set NewSheet = ThisWorkbook.Sheets().Add()

    NewSheet.Move

After:=Sheets(ThisWorkbook.Sheets().Count)

    ActSheet.Select
     ' Reativando a atualização da tela.
    Let Application.ScreenUpdating = True
End Sub

brazilsalesforceeffectiveness@gmail.com

Please connect with me - I'm always happy to befriend.

(Caso queira conectar-se comigo, estou sempre feliz em ajudar.)

VBA Access - Ordenando a propriedade de um RecordSet.

De vez em quando é necessário que re-organizemos o modo como o nosso Recordset será ordenado, isso após termos definido a string SQL.

Bem, isso pode ser implementado mesmo após este momento como poderá ver abaixo:

Sub SortRecordset()
    Dim intCounter As Integer
    Dim rst As ADODB.Recordset


    Set rst = New ADODB.Recordset

    Let rst.ActiveConnection = CurrentProject.Connection
    Let rst.CursorLocation = adUseClient


    rst.Open "Select * from tbl_Bernardes"

    Debug.Print "Sem ordenação."

    Do Until rst.EOF
        Debug.Print rst("BernardesID")


        rst.MoveNext
    Loop



    Debug.Print "Ordenado."


    Let rst.Sort = "[BernardesID]"

    Do Until rst.EOF
        Debug.Print rst("BernardesID")


        rst.MoveNext
    Loop



    rst.Close


    Set rst = Nothing
End Sub

Tags: Access, order, property, propriedade, sort, recordset, ADODB

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com