Korištenje makronaredbi za spremanje radnih knjiga kada se ćelije mijenjaju

U Excelu možda radite na podacima koji su toliko osjetljivi da ćete ih poželjeti spremiti svaki put kada se promijeni određena ćelija ili raspon ćelija. Ova makronaredba vam omogućuje da definirate raspon ćelija koje, kada se promijene, prisiljava radnu knjigu na spremanje.

U prikazanom primjeru želite da se radna knjiga spremi kada se izvrši uređivanje u bilo kojoj od ćelija u rasponu C5:C16.

Korištenje makronaredbi za spremanje radnih knjiga kada se ćelije mijenjaju

Promjena ćelije u C5:C16 prisiljava radnu knjigu na spremanje.

Kako makro funkcionira

Tajna ovog koda je metoda Intersect. Budući da ne želite spremiti radni list kada se promijeni neka stara ćelija, koristite metodu Intersect da biste utvrdili siječe li se ciljna ćelija (ćelija koja se promijenila) s rasponom navedenim kao raspon okidača (C5:C16 u ovom slučaju) .

Metoda Intersect vraća jednu od dvije stvari: objekt Range koji definira sjecište između dva zadana raspona ili ništa. Dakle, u biti, trebate baciti ciljnu ćeliju na Intersect metodu kako biste provjerili ima li vrijednost Nothing. U tom trenutku možete odlučiti hoćete li spremiti radnu knjigu.

Privatni pod radni list_Change(ByVal Target As Range)
'Korak 1: Presijeca li se promijenjeni raspon?
    Ako je Intersect(Target, Range("C5:C16")) onda ništa
'Korak 2: Ako nema raskrižja, izađite
    Izlaz pod
'Korak 3: Ako postoji raskrižje, spremite radnu knjigu
    Drugo
    ActiveWorkbook.Save
'Korak 4: Zatvorite naredbu If
    Završi ako
Kraj Sub

U koraku 1 jednostavno provjerite je li ciljna ćelija (ćelija koja se promijenila) u rasponu navedenom metodom Intersect. Vrijednost Ništa znači da je ciljna ćelija izvan navedenog raspona.

Korak 2 prisiljava makronaredbu da zaustavi i izađe iz procedure ako ne postoji sjecište između ciljne ćelije i navedenog raspona.

Ako postoji raskrižje, korak 3 pokreće metodu Spremi aktivne radne knjige, prebrišući prethodnu verziju.

U 4. koraku jednostavno zatvorite naredbu If. Svaki put kada pokrenete provjeru If-Onda-Else, morate je zatvoriti odgovarajućim End If.

Kako koristiti makro

Da biste implementirali ovu makronaredbu, trebate je kopirati i zalijepiti u prozor koda događaja Worksheet_Change. Postavljanje makronaredbe ovdje omogućuje da se pokrene svaki put kada napravite bilo kakvu promjenu na listu:

Aktivirajte Visual Basic Editor pritiskom na Alt+F11.

U prozoru projekta pronađite naziv projekta/radne knjige i kliknite znak plus pored njega da biste vidjeli sve listove.

Kliknite list s kojeg želite pokrenuti kod.

Na padajućem popisu Događaj odaberite Promjena događaja.

Upišite ili zalijepite kod u novostvoreni modul, mijenjajući adresu raspona kako bi odgovarala vašim potrebama.

Korištenje makronaredbi za spremanje radnih knjiga kada se ćelije mijenjaju

Unesite svoj kod u događaj Promjena radnog lista.

Leave a Comment

Kako postaviti upit u bazu podataka MS Access 2019

Kako postaviti upit u bazu podataka MS Access 2019

Naučite kako postaviti upite u Access bazi podataka uz jednostavne korake i savjete za učinkovito filtriranje i sortiranje podataka.

Osnove tabulatora u programu Word 2013

Osnove tabulatora u programu Word 2013

Tabulatori su oznake položaja u odlomku programa Word 2013 koje određuju kamo će se točka umetanja pomaknuti kada pritisnete tipku Tab. Otkrijte kako prilagoditi tabulatore i optimizirati svoj rad u Wordu.

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Word 2010 nudi mnoge načine označavanja i poništavanja odabira teksta. Otkrijte kako koristiti tipkovnicu i miš za odabir blokova. Učinite svoj rad učinkovitijim!

Kako uvući pasus u Wordu 2013

Kako uvući pasus u Wordu 2013

Naučite kako pravilno postaviti uvlaku za odlomak u Wordu 2013 kako biste poboljšali izgled svog dokumenta.

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Naučite kako jednostavno otvoriti i zatvoriti svoje Microsoft PowerPoint 2019 prezentacije s našim detaljnim vodičem. Pronađite korisne savjete i trikove!

Kako crtati jednostavne objekte u PowerPointu 2013

Kako crtati jednostavne objekte u PowerPointu 2013

Saznajte kako crtati jednostavne objekte u PowerPoint 2013 uz ove korisne upute. Uključuje crtanje linija, pravokutnika, krugova i više.

Kako filtrirati podatke u programu Access 2016

Kako filtrirati podatke u programu Access 2016

U ovom vodiču vam pokazujemo kako koristiti alat za filtriranje u programu Access 2016 kako biste lako prikazali zapise koji dijele zajedničke vrijednosti. Saznajte više o filtriranju podataka.

Formule za zaokruživanje brojeva u Excelu

Formule za zaokruživanje brojeva u Excelu

Saznajte kako koristiti Excelove funkcije zaokruživanja za prikaz čistih, okruglih brojeva, što može poboljšati čitljivost vaših izvješća.

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Zaglavlje ili podnožje koje postavite isto je za svaku stranicu u vašem Word 2013 dokumentu. Otkrijte kako koristiti različita zaglavlja za parne i neparne stranice.

Excel izvješća: prilagođeno oblikovanje brojeva

Excel izvješća: prilagođeno oblikovanje brojeva

Poboljšajte čitljivost svojih Excel izvješća koristeći prilagođeno oblikovanje brojeva. U ovom članku naučite kako se to radi i koja su najbolja rješenja.