Mõeldes Exceli töövihikute automaatsele avamisele, mõelge, mis võib juhtuda, kui proovite avada juba avatud raamatut. Mitte-VBA maailmas proovib Excel faili uuesti avada, kuvades hoiatuse, et kõik salvestamata muudatused lähevad kaotsi. Sellise juhtumi eest saate kaitsta, kui kontrollite, kas antud fail on juba avatud, enne kui proovite seda uuesti avada.
Vältige seda hoiatusteadet.
Selle makro puhul tuleb kõigepealt tähele panna, et see on funktsioon, mitte alamprotseduur. Nagu näete, võimaldab selle makro funktsiooniks muutmine anda sellele mis tahes failinime, et kontrollida, kas see fail on juba avatud.
Selle koodi põhisisu on lihtne. Testite antud failinime, et näha, kas seda saab määrata objektimuutujale. Objekti muutujale saab määrata ainult avatud töövihikuid. Kui proovite muutujale määrata suletud töövihiku, ilmneb tõrge.
Kui antud töövihikut saab määrata, on töövihik avatud; vea ilmnemisel töövihik suletakse.
Funktsioon FileIsOpenTest(TargetWorkbook As String) Booleanina
1. samm: deklareerige oma muutujad
Hämar testivihik töövihikuna
2. samm: öelge Excelile, et ta vea korral jätkaks
Vea korral Jätka järgmisena
3. samm: proovige määrata sihttöövihik TestBookile
Set TestBook = töövihikud (sihttöövihik)
4. samm: kui viga ei ilmnenud, on töövihik juba avatud
Kui Err.Number = 0 Siis
FileIsOpenTest = Tõene
Muidu
FileIsOpenTest = Väär
Lõpeta Kui
Lõpetamisfunktsioon
Esimese asjana deklareerib makro muutuja String, mis hoiab kasutaja valitud failinime. TestBook on teie String muutuja nimi.
2. sammus öelge Excelile, et selle koodi käitamisel võib esineda tõrge, ja tõrke korral jätkake koodi kasutamist. Ilma selle reata kood lihtsalt peatuks vea ilmnemisel. Jällegi testite antud failinime, et näha, kas seda saab määrata objektimuutujale. Kui antud töövihikut saab määrata, on see avatud; kui ilmneb tõrge, siis see suletakse.
3. sammus proovite määrata antud töövihiku muutujale TestBook Object. Töövihik, mida proovite määrata, on String muutuja nimega TargetWorkbook. TargetWorkbook edastatakse funktsioonile funktsiooni deklaratsioonides (vt koodi esimest rida). See struktuur välistab vajaduse töövihiku nime kõvasti kodeerida, võimaldades teil selle asemel muutujana edasi anda.
4. sammus kontrollite lihtsalt, kas ilmnes tõrge. Kui viga ei ilmnenud, on töövihik avatud, seega määrate FileIsOpenTesti väärtuseks Tõene. Kui ilmnes tõrge, ei ole töövihik avatud ja määrate FileIsOpenTesti väärtuseks False.
Jällegi saab seda funktsiooni kasutada mis tahes faili hindamiseks, mille te sellele TargetWorkbook argumendi kaudu edastate. See on makro funktsiooniks muutmise ilu.
Järgmine makro näitab, kuidas seda funktsiooni rakendada. Siin kutsute välja uue funktsiooni FileIsOpenTest, et veenduda, et kasutaja ei saa avada juba avatud faili:
Alammakro1()
1. samm: määrake stringi muutuja
Dim FName kui variant
Dim FNFileOnly As String
2. samm: GetOpenFilename meetod aktiveerib dialoogiboksi
FName = Application.GetOpenFilename(_
FileFilter:="Exceli töövihikud,*.xl*", _
Title:="Valige avamiseks töövihik", _
MultiSelect:=False)
3. samm: avage valitud fail, kui see pole veel avatud
Kui FName <> False, siis
FNFileOnly = StrReverse(Left(StrReverse(FName), _
InStr(StrReverse(FName), ") - 1))
Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.
Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.
Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.
Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.
Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.
Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]
Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]
Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.
Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.
Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]
