Dok razmišljate o automatskom otvaranju Excel radnih knjiga, razmislite što bi se moglo dogoditi ako pokušate otvoriti knjigu koja je već otvorena. U svijetu koji nije VBA, Excel pokušava ponovno otvoriti datoteku, a prikazana poruka upozorava da će sve nespremljene promjene biti izgubljene. Možete se zaštititi od takve pojave tako da provjerite je li određena datoteka već otvorena prije nego što je pokušate ponovno otvoriti.
Izbjegavajte ovu poruku upozorenja.
Prva stvar koju treba primijetiti kod ove makronaredbe je da je to funkcija, a ne podprocedura. Kao što ćete vidjeti, pretvaranje ove makronaredbe u funkciju omogućuje vam da joj proslijedite bilo koji naziv datoteke kako biste provjerili je li ta datoteka već otvorena.
Bit ovog koda je jednostavna. Testirate zadani naziv datoteke da vidite može li se dodijeliti varijabli objekta. Samo otvorene radne knjige mogu se dodijeliti varijabli Objekta. Kada pokušate dodijeliti zatvorenu radnu knjigu varijabli, pojavljuje se pogreška.
Ako se zadana radna knjižica može dodijeliti, radna je knjižica otvorena; ako dođe do greške, radna knjiga se zatvara.
Funkcija FileIsOpenTest(TargetWorkbook kao string) kao Boolean
'Korak 1: Deklarirajte svoje varijable
Dim TestBook kao radna bilježnica
'Korak 2: recite Excelu da se nastavi u slučaju pogreške
U slučaju pogreške Nastavi dalje
'Korak 3: Pokušajte dodijeliti ciljnu radnu knjigu TestBook
Postavi TestBook = Radne knjige (TargetWorkbook)
'Korak 4: Ako nije došlo do greške, radna knjiga je već otvorena
Ako je Err.Broj = 0 Tada
FileIsOpenTest = Istina
Drugo
FileIsOpenTest = Netočno
Završi ako
Završna funkcija
Prva stvar koju makronaredba čini je da deklarira varijablu String koja će sadržavati naziv datoteke koji korisnik odabere. TestBook je naziv vaše varijable String.
U 2. koraku kažete Excelu da može doći do pogreške pri pokretanju ovog koda i, u slučaju pogreške, nastavite s kodom. Bez ove linije, kod bi se jednostavno zaustavio kada se pojavi greška. Opet testirate zadani naziv datoteke da vidite može li se dodijeliti varijabli objekta. Ako se data radna knjiga može dodijeliti, ona je otvorena; ako dođe do pogreške, zatvara se.
U 3. koraku pokušavate dodijeliti danu radnu knjigu varijabli TestBook Object. Radna knjiga koju pokušavate dodijeliti je varijabla String koja se zove TargetWorkbook. TargetWorkbook se prosljeđuje funkciji u deklaracijama funkcije (pogledajte prvi redak koda). Ova struktura eliminira potrebu za tvrdim kodiranjem naziva radne knjige, omogućujući vam da ga umjesto toga proslijedite kao varijablu.
U 4. koraku jednostavno provjerite je li došlo do pogreške. Ako se pogreška nije dogodila, radna knjiga je otvorena, pa ste FileIsOpenTest postavili na True. Ako je došlo do pogreške, radna knjiga nije otvorena i postavite FileIsOpenTest na False.
Opet, ova se funkcija može koristiti za procjenu bilo koje datoteke koju joj proslijedite, putem argumenta TargetWorkbook. Ovo je ljepota stavljanja makronaredbe u funkciju.
Sljedeći makro pokazuje kako implementirati ovu funkciju. Ovdje pozivate novu funkciju FileIsOpenTest kako biste bili sigurni da korisnik ne može otvoriti već otvorenu datoteku:
Podmakro1()
'Korak 1: Definirajte varijablu niza
Dim FName kao varijanta
Dim FNFileOnly kao niz
'Korak 2: GetOpenFilename metoda aktivira dijaloški okvir
FName = Application.GetOpenFilename( _
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Odaberite radnu knjigu za otvaranje", _
MultiSelect:=False)
'Korak 3: Otvorite odabranu datoteku ako već nije otvorena
Ako FName <> False Onda
FNFileOnly = StrReverse(Lijevo(StrReverse(FName), _
InStr(StrReverse(FName), ") - 1))
Kako blokirati Microsoft Word da otvara datoteke u načinu rada samo za čitanje u sustavu Windows Microsoft Word otvara datoteke u načinu rada samo za čitanje, što onemogućuje njihovo uređivanje? Ne brinite, metode su navedene u nastavku
Kako popraviti pogreške u ispisu netočnih Microsoft Word dokumenata Pogreške u ispisu Word dokumenata s promijenjenim fontovima, neurednim odlomcima, nedostajućim tekstom ili izgubljenim sadržajem vrlo su česte. Međutim, nemojte
Ako ste upotrijebili olovku ili marker za crtanje na PowerPoint slajdovima tijekom prezentacije, možete spremiti crteže za sljedeću prezentaciju ili ih izbrisati tako da ćete sljedeći put kada ih pokažete početi s čistim PowerPoint slajdovima. Slijedite ove upute za brisanje crteža olovkom i markerom: Brisanje linija jedan na […]
Biblioteka stilova sadrži CSS datoteke, datoteke Extensible Stylesheet Language (XSL) i slike koje koriste unaprijed definirane glavne stranice, izgledi stranica i kontrole u SharePointu 2010. Da biste locirali CSS datoteke u biblioteci stilova web-mjesta za objavljivanje: Odaberite Radnje web-mjesta→Prikaz Sav sadržaj web-mjesta. Pojavljuje se sadržaj stranice. Knjižnica Style nalazi se u […]
Nemojte zatrpavati svoju publiku ogromnim brojevima. U Microsoft Excelu možete poboljšati čitljivost svojih nadzornih ploča i izvješća formatiranjem brojeva tako da se prikazuju u tisućama ili milijunima.
Naučite kako koristiti SharePointove alate za društveno umrežavanje koji pojedincima i grupama omogućuju komunikaciju, suradnju, dijeljenje i povezivanje.
Julijanski datumi se često koriste u proizvodnim okruženjima kao vremenska oznaka i brza referenca za broj serije. Ova vrsta datumskog kodiranja omogućuje trgovcima na malo, potrošačima i uslužnim agentima da identificiraju kada je proizvod napravljen, a time i starost proizvoda. Julijanski datumi se također koriste u programiranju, vojsci i astronomiji. Drugačiji […]
Možete izraditi web-aplikaciju u Accessu 2016. Dakle, što je uopće web-aplikacija? Pa, web znači da je online, a aplikacija je samo skraćenica za "aplikaciju". Prilagođena web-aplikacija je online aplikacija baze podataka kojoj se pristupa iz oblaka pomoću preglednika. Vi gradite i održavate web-aplikaciju u verziji za stolna računala […]
Većina stranica u sustavu SharePoint 2010 prikazuje popis navigacijskih veza na traci za brzo pokretanje na lijevoj strani stranice. Traka za brzo pokretanje prikazuje veze na istaknuti sadržaj web-mjesta kao što su popisi, knjižnice, web-mjesta i stranice za objavljivanje. Traka za brzo pokretanje uključuje dvije vrlo važne veze: vezu za sav sadržaj web-mjesta: […]
Za jednostavne probleme, Solver u Excelu obično brzo pronalazi optimalne vrijednosti varijable Solvera za funkciju cilja. No, u nekim slučajevima, Solver ima problema s pronalaženjem vrijednosti varijable Solvera koje optimiziraju funkciju cilja. U tim slučajevima, Solver obično prikazuje poruku ili poruku o pogrešci koja opisuje ili raspravlja o problemu koji […]
