Makro automaatne käivitamine töövihiku avamisel

Võib juhtuda, et soovite salvestatud makro teatud töövihiku avamisel automaatselt käivitada. Järgmises toimingus selgitatakse näite varal, kuidas seda teha. Samuti võite soovida makrod Exceli käivitamisel automaatselt käivitada.

Enne alustamist veenduge, et menüü Arendaja oleks lindil kuvatud. Kui pole, tehke järgmist.

  1. Klõpsake menüüs Fail nuppu Suvandid ja seejärel kategooriat Lindi kohandamine.

  2. Märkige jaotise Kohanda linti väljal Põhimenüüd ruut Arendaja.

  3. Klõpsake nuppu OK.

Järgmise näite kasutamiseks oma töövihikus looge omaette leht iga kuupäeva jaoks ja pange lehesakkidele ka vastavad nimed. Pange sakkidele nimeks näiteks 1. märts, 2, märts ja nii edasi, kuni 31. märtsini. Makro käivitatakse töövihiku avamisel automaatselt ja kuvatakse praeguse kuupäevaga lehesakk.

  1. Klõpsake menüüs Arendaja nuppu Visual Basic.

Menüü Arendaja jaotis Kood

  1. Klõpsake menüüs Insert (Lisa) käsku Module (Moodul).

  2. Lisage moodulisse järgmine kood:

    Private Sub Auto_Open()
    Dim vntToday As Variant
    vntToday = WorksheetFunction.Text(Date, "dd mmmm")
    On Error Resume Next
    Sheets(vntToday).Select
    If Err <> 0 Then
    MsgBox "Töölehte pole olemas."
    Else
    Range("A1").Select
    End If
    End Sub

  3. Sulgege Visual Basic (teil pole vaja midagi salvestada).

  4. Salvestage töövihik XLSM-failiformaadis (makrotoega töövihikuna) ja sulgege see.

Kui avate töövihiku järgmine kord, avatakse see nii, et valitud on praeguse (tänase päeva) lehesakk; kursor asub vastava töölehe väljal A1. Kui tänasele kuupäevale vastavat töölehte pole olemas, kuvatakse teade "Töölehte pole olemas".

Näpunäide. :  Samuti võite iga kuu jaoks luua uue töövihiku ning seejärel sama makro uue töövihiku jaoks iga kord uuesti luua.

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×