Automatsko pokretanje makronaredbe prilikom otvaranja radne knjige

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Možda ćete htjeti da makronaredbu koju ste snimiliautomatski izvedete kada otvorite konkretnu radnu knjigu. U sljedećem je postupku to objašnjeno na primjeru. Možda ćete makronaredbe prilikom pokretanja programa Excel htjeti i automatski pokrenuti.

Prije početka rada provjerite je li na vrpci dostupna kartica Programiranje. Ako nije, učinite nešto od sljedećeg:

  1. Kliknite Datoteka > Mogućnosti > Prilagodba vrpce.

  2. U odjeljku Prilagodba vrpce u okviru Glavne kartice potvrdite okvir Programiranje.

  3. Nakon toga kliknite U redu.

Da biste primjer u nastavku koristite u vlastitoj radnoj knjizi, stvorite radne listove za svaki dan u mjesecu i svakoj kartici lista dajte odgovarajući naziv. Na primjer, 1. ožujka, 2. ožujka itd. do 31. ožujka. Makronaredba će se automatski pokrenuti kada otvorite radnu knjigu i prikazat će se kartica trenutnog dana u mjesecu.

  1. Kliknite Programiranje > Visual Basic.

Grupa Kod na kartici Programiranje

  1. Kliknite Umetni > Modul.

  2. U modul umetnite sljedeći kod:

    Private Sub Auto_Open()
    Dim vntToday As Variant
    vntToday = WorksheetFunction.Text(Date, "mmmm dd")
    On Error Resume Next
    Sheets(vntToday).Select
    If Err <> 0 Then
    MsgBox "Radni list ne postoji."
    Else
    Range("A1").Select
    End If
    End Sub

  3. Zatvorite Visual Basic (ne morate ništa spremiti).

  4. Spremite radnu knjigu u obliku radne knjige programa Excel (*xlsm) s omogućenim makronaredbama i zatvorite je.

Kada sljedeći put otvorite radnu knjigu, bit će odabrana kartica trenutnog dana, a pokazivač miša nalazit će se u ćeliji A1. Ako radni list za određeni dan ne postoji, prikazat će se poruka "Radni list ne postoji".

Savjet : Za svaki naredni mjesec možete stvoriti novu radnu knjigu s novom makronaredbom.

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×