Statuslinjen

Dersom du slår av skjermoppdateringen og utførelsen av makroene tar lang tid, kan brukeren tro at maskinen har sluttet å reagere. Derfor er det en god programmeringsskikk å gi brukeren en tilbakemelding på statuslinjen om at makroen arbeider. Her er et eksempel :

Sub StatuslinjeEksempel()
    Application.ScreenUpdating = False ' slår av skjermoppdateringen
    Application.DisplayStatusBar = True ' sørger for at statuslinjen vises
    Application.StatusBar = "Vent litt mens oppgave 1 utføres..."
    ' her kan du legge til kode for oppgave 1 i stedet for neste linje
    Application.Wait Now + TimeValue("00:00:02")
    Application.StatusBar = "Vent litt mens oppgave 2 utføres..."
    ' her kan du legge til kode for oppgave 2 i stedet for neste linje
    Application.Wait Now + TimeValue("00:00:02")
    Application.StatusBar = False ' frigir statuslinjen til programmet
End Sub

Dersom du ønsker enda mer kontroll over statuslinjen slik at du kan vise en progresjonslinje slik som den Excel selv benytter kan du finne et eksempel på dette her: Excel Files For Devlopers

Dokumentet er sist oppdatert 2002-07-17 12:31:02 Utskriftsvennlig versjon