Një makro Excel për të përcaktuar nëse një libër pune është i hapur

Ndërsa mendoni për hapjen automatike të librave të punës në Excel, merrni parasysh se çfarë mund të ndodhë nëse përpiqeni të hapni një libër që është tashmë i hapur. Në botën jo-VBA, Excel përpiqet të hapë skedarin përsëri, me mesazhin e shfaqur që paralajmëron se çdo ndryshim i paruajtur do të humbet. Ju mund të mbroheni nga një dukuri e tillë duke kontrolluar nëse një skedar i caktuar është tashmë i hapur përpara se të përpiqeni ta hapni përsëri.

Një makro Excel për të përcaktuar nëse një libër pune është i hapur

Shmangni këtë mesazh paralajmërues.

Si funksionon makroja

Gjëja e parë që duhet vënë re në lidhje me këtë makro është se është një funksion, jo një procedurë nën. Siç do ta shihni, duke e bërë këtë makro një funksion ju mundëson t'i kaloni çdo emër skedari për të provuar nëse ai skedar është tashmë i hapur.

Thelbi i këtij kodi është i thjeshtë. Po testoni një emër skedari të caktuar për të parë nëse mund t'i caktohet një ndryshoreje Object. Vetëm librat e hapur të punës mund t'i caktohen një ndryshoreje Object. Kur përpiqeni t'i caktoni një variabël një libër pune të mbyllur, ndodh një gabim.

Nëse libri i caktuar i punës mund të caktohet, libri i punës është i hapur; nëse ndodh një gabim, libri i punës mbyllet.

Funksioni FileIsOpenTest (TargetWorkbook As String) Si Boolean
'Hapi 1: Deklaroni variablat tuaja
    Dim Test Libri si Libër Pune
'Hapi 2: Thuaji Excel të rifillojë në rast gabimi
    Në gabim Rifillo Tjetra
'Hapi 3: Provoni të caktoni librin e punës të synuar në TestBook
    Vendos Libër Testi = Libra Pune (TargetWorkbook)
'Hapi 4: Nëse nuk ka ndodhur asnjë gabim, libri i punës është tashmë i hapur
    Nëse Gabim.Numri = 0 Atëherë
    FileIsOpenTest = E vërtetë
    Përndryshe
    FileIsOpenTest = False
    Fundi Nëse
Funksioni i Fundit

Gjëja e parë që bën makro është të deklarojë një variabël String që do të mbajë emrin e skedarit që zgjedh përdoruesi. TestBook është emri i ndryshores tuaj String.

Në hapin 2, ju i tregoni Excel-it se mund të ketë një gabim në ekzekutimin e këtij kodi dhe, në rast gabimi, rifilloni kodin. Pa këtë rresht, kodi thjesht do të ndalonte kur ndodh një gabim. Përsëri, ju testoni një emër skedari të caktuar për të parë nëse mund t'i caktohet një ndryshoreje Object. Nëse libri i caktuar i punës mund të caktohet, ai është i hapur; nëse ndodh një gabim, ai mbyllet.

Në hapin 3, ju përpiqeni të caktoni librin e caktuar të punës në ndryshoren TestBook Object. Libri i punës që përpiqeni të caktoni është një variabël String i quajtur TargetWorkbook. TargetWorkbook i kalohet funksionit në deklaratat e funksionit (shih rreshtin e parë të kodit). Kjo strukturë eliminon nevojën për të koduar një emër të librit të punës, duke ju lejuar ta kaloni atë si një ndryshore.

Në hapin 4, thjesht kontrolloni nëse ka ndodhur një gabim. Nëse nuk ka ndodhur një gabim, libri i punës është i hapur, kështu që ju vendosni FileIsOpenTest në True. Nëse ka ndodhur një gabim, libri i punës nuk është i hapur dhe ju vendosni FileIsOpenTest në False.

Përsëri, ky funksion mund të përdoret për të vlerësuar çdo skedar që i kaloni, nëpërmjet argumentit të tij TargetWorkbook. Kjo është bukuria e vendosjes së makros në një funksion.

Makroja e mëposhtme tregon se si të zbatohet ky funksion. Këtu, ju thërrisni funksionin e ri FileIsOpenTest për t'u siguruar që përdoruesi nuk mund të hapë një skedar tashmë të hapur:

Nën makro1()

'Hapi 1: Përcaktoni një variabël String

    Dim FName si variant

    Dim FNFileOnly As String

'Hapi 2: Metoda GetOpenFilename aktivizon kutinë e dialogut

    FName = Application.GetOpenFilename( _

            FileFilter:="Excel Workbooks,*.xl*", _

            Title:="Zgjidhni një Libër Pune për Hapje", _

            MultiSelect:=E rreme)

'Hapi 3: Hapni skedarin e zgjedhur nëse nuk është hapur tashmë

    Nëse FName <> False Atëherë

    FNFileOnly = StrReverse(Left(StrReverse(FName), _

                 InStr(StrReverse(FName), ") - 1))

Si të shkruani shënime në OneNote 2013 në Android

Si të shkruani shënime në OneNote 2013 në Android

Mësoni si të shkruani shënime në OneNote 2013 në Android me krijimin, hapjen dhe regjistrimin e shënimeve. Aplikoni strategji efektive për menaxhimin e shënimeve tuaja.

Formatimi i numrave në një varg teksti në Excel

Formatimi i numrave në një varg teksti në Excel

Mësoni si të formatoni numrat në një varg teksti në Excel për të përfshirë informacione të sakta dhe tërheqëse për raportet tuaja.

Si të fshini qelizat dhe të dhënat në Excel 2010

Si të fshini qelizat dhe të dhënat në Excel 2010

Në Excel 2010, fshini të dhënat apo formatin e qelizave lehtësisht me disa metoda të thjeshta. Mësoni si të menaxhoni përmbajtjen e qelizave me opsione të ndryshme.

Formatimi i elementeve të grafikut të Excel 2007

Formatimi i elementeve të grafikut të Excel 2007

Zhvilloni aftësitë tuaja në formatimin e elementeve të grafikut në Excel 2007 përmes metodave të thjeshta dhe efikase.

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Mësoni se si të rreshtoni dhe justifikoni tekstin në Word 2010 me opsione të ndryshme rreshtimi dhe justifikimi për të përmirësuar formatimin e dokumenteve tuaja.

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Mësoni si të krijoni makro në Excel 2019 për të automatizuar komandat dhe thjeshtuar detyrat tuaja.

Si të përdorni vizoren për të vendosur skeda në Word 2016

Si të përdorni vizoren për të vendosur skeda në Word 2016

Mënyra vizuale dhe e shpejtë për të vendosur një ndalesë skedash në Word 2016 është përdorimi i vizores. Zbulo disa këshilla dhe truke për përdorimin e skedave në këtë program.

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Mësoni si të formula boshtet X dhe Y në Excel 2007, duke përfshirë mundësitë e ndryshimit të formatimeve për grafikët e ndryshëm.

Statistika të thjeshta në analizën e të dhënave në Excel

Statistika të thjeshta në analizën e të dhënave në Excel

Eksploroni se si Excel mund t

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Mësoni se si të përdorni veçorinë Find and Replace të Excel 2007 për të gjetur dhe zëvendësuar të dhëna në mënyrë efikase. Kjo udhëzues është e përshtatshme për të gjithë përdoruesit që dëshirojnë të rrisin produktivitetin e tyre.