Automatinis makrokomandos vykdymas atidarant darbaknygę

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Galite įrašyti makrokomandą galite būtų vykdoma automatiškai, kai atidarote konkrečią darbaknygę. Šią procedūrą naudoja pavyzdys rodo, kaip kad veikia. Taip pat galite vykdyti makrokomandas automatiškai paleidžiant "Excel".

Prieš pradėdami įsitikinkite, kad juostelėje rodomas skirtukas Kūrėjas. Jei jo nėra, atlikite šiuos veiksmus:

  1. Spustelėkite Failas > Parinktys > Tinkinti juostelę.

  2. Dalies Juostelės tinkinimas lauke Pagrindiniai skirtukai pažymėkite žymės langelį Kūrėjas.

  3. Spustelėkite Gerai.

Jei toliau pateiktą pavyzdį norite naudoti savo darbaknygėje, sukurkite kiekvienos mėnesio dienos lapus ir atitinkamai pavadinkite kiekvieną lapo skirtuką. Pavyzdžiui, pavadinkite juos Kovo 1, Kovo 2 ir t. t. iki Kovo 31. Atidarius darbaknygę makrokomanda bus automatiškai vykdoma ir parodomas dabartinės mėnesio dienos skirtukas.

  1. Spustelėkite Kūrėjas > Visual Basic.

Skirtuko lapo Programų kūrėjas grupė Kodas

  1. Spustelėkite Įterpti > Modulis.

  2. Modulyje įterpkite šį kodą:

    Privati Sub Auto_Open()
    Dim vntToday kaip variantas
    vntToday = WorksheetFunction.Text (data, "mmmm dd")
    dėl klaidos gyvenimo aprašymo kitą
    Sheets(vntToday). Pasirinkite
    Jei klaidos <> 0 tada
    laukas "Darbalapio neegzistuoja."
    Dar
    Range("A1"). Pasirinkite
    baigti, jei
    baigti Sub

  3. Uždarykite „Visual Basic“ (nereikia nieko įrašyti).

  4. Įrašykite darbaknygę kaip „Excel“ darbaknygę, palaikančią makrokomandas (*xlsm), ir ją uždarykite.

Kitą kartą, kai atidarysite darbaknygę, bus pasirinktas dabartinės dienos skirtukas, o žymiklis bus langelyje A1. Jei tos dienos darbalapio nėra, bus rodomas pranešimas „Darbalapio nėra“.

Patarimas : Galite sukurti naują darbaknygę kiekvienam mėnesiui, jam atėjus, ir vėl sukurti makrokomandą naujai darbaknygei.

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×