Automatsko pokretanje makroa pri otvaranju radne sveske

Važno : Ovaj članak je mašinski prevesti potražite u članku Odricanje odgovornosti. O referencu pronaći verzija ovaj članak ovde na engleskom jeziku.

Makro koji ste snimili možda ćete želeti da se automatski pokreće kada otvorite određenu radnu svesku. Sledeća procedura koristi primer da vam pokazati kako to funkcioniše. Takođe možete poželeti da biste pokrenuli makroe automatski pri pokretanju programa Excel.

Pre nego što počnete, uverite se da je kartica Projektovanje prikazana na traci. Ako se ne nalazi tamo, uradite sledeće:

  1. Kliknite na Datoteka > Opcije > Prilagođavanje trake.

  2. U okviru Prilagođavanje trake, u polju Glavne kartice potvrdite izbor u polju Projektovanje.

  3. Kliknite na dugme U redu.

Da biste koristili dolenavedeni primer u sopstvenoj radnoj svesci, kreirajte listove za svaki dan u mesecu i karticu svakog lista nazovite u skladu sa tim. Na primer, nazovite ih „1. mart", „2. mart" i tako dalje, sve do „31. mart". Makro će se automatski pokrenuti kada otvorite radnu svesku koja prikazuje karticu za trenutan dan u mesecu.

  1. Kliknite na Projektovanje > Visual Basic.

Grupa „Kôd“ na kartici „Projektovanje“

  1. Kliknite na Umetni > Modul.

  2. U modulu umetnite sledeći kôd::

    Privatno Sub Auto_Open()
    Dim vntToday kao varijante
    vntToday = WorksheetFunction.Text (datum, "mmmm dd")
    na grešku nastavi sledeći
    Sheets(vntToday). Izaberite
    ako greška <> 0 zatim
    MsgBox "Radnog lista ne postoji."
    Još
    Range("A1"). Izaberite
    ako
    završili Sub

  3. Zatvorite Visual Basic (ne morate ništa da sačuvate).

  4. Sačuvajte radnu svesku kao Excel radnu svesku sa makroima (*.xlsm) i zatvorite je.

Sledeći put kada otvorite radnu svesku, kartica za trenutni dan će biti označena sa kursorom na ćeliji A1. Ako radni list ne postoji za taj dan, pojaviće se poruka „Radna sveska ne postoji”.

Savet : Trebalo bi da kreirate novu radnu svesku za svaki mesec koji dolazi, kao i da ponovo kreirate makro za svaku novu radnu svesku.

Napomena : Odricanje odgovornosti mašinskog prevođenja: ovaj članak je preveden sistem računara bez ljudski interventne. Microsoft nudi ove mašinskog prevoda da pomogne koja nije na engleskom govornih korisnicima da uživate u sadržaju za Microsoft proizvode, usluge i tehnologijama. U članku bio mašina prevesti, mogu da sadrže greške u rečnik, sintaksa ili gramatiku.

Unapredite veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×