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))

Fshini vizatimet e stilolapsit dhe theksuesit në rrëshqitjet tuaja në PowerPoint

Fshini vizatimet e stilolapsit dhe theksuesit në rrëshqitjet tuaja në PowerPoint

Nëse keni përdorur stilolapsin ose theksuesin për të vizatuar në rrëshqitjet tuaja në PowerPoint gjatë një prezantimi, mund t'i ruani vizatimet për prezantimin tjetër ose t'i fshini ato, kështu që herën tjetër që ta shfaqni, do të filloni me sllajde të pastra të PowerPoint. Ndiqni këto udhëzime për të fshirë vizatimet me stilolaps dhe theksues: Fshirja e rreshtave një në […]

Përmbajtja e Bibliotekës Style në SharePoint 2010

Përmbajtja e Bibliotekës Style në SharePoint 2010

Biblioteka e stileve përmban skedarë CSS, skedarë të gjuhës së fletë stili të zgjeruar (XSL) dhe imazhe të përdorura nga faqet kryesore të paracaktuara, paraqitjet e faqeve dhe kontrollet në SharePoint 2010. Për të gjetur skedarët CSS në bibliotekën e stileve të një siti botimi: Zgjidhni Veprimet e sitit→ Shiko E gjithë përmbajtja e faqes. Shfaqet përmbajtja e faqes. Biblioteka Style ndodhet në […]

Formatoni numrat në mijëra e miliona në raportet Excel

Formatoni numrat në mijëra e miliona në raportet Excel

Mos e mbingarkoni audiencën tuaj me numra gjigantë. Në Microsoft Excel, ju mund të përmirësoni lexueshmërinë e paneleve dhe raporteve tuaja duke formatuar numrat tuaj që të shfaqen në mijëra ose miliona.

Si të ndani dhe ndiqni faqet e SharePoint

Si të ndani dhe ndiqni faqet e SharePoint

Mësoni se si të përdorni mjetet e rrjeteve sociale të SharePoints që lejojnë individët dhe grupet të komunikojnë, bashkëpunojnë, ndajnë dhe lidhen.

Si të konvertoni datat në formatet Julian në Excel

Si të konvertoni datat në formatet Julian në Excel

Datat Juliane përdoren shpesh në mjediset e prodhimit si një vulë kohore dhe referencë e shpejtë për një numër grupi. Ky lloj kodimi i datës i lejon shitësit me pakicë, konsumatorët dhe agjentët e shërbimit të identifikojnë se kur është prodhuar një produkt, dhe kështu moshën e produktit. Hurmat Juliane përdoren gjithashtu në programim, ushtri dhe astronomi. Të ndryshme […]

Si të krijoni një aplikacion uebi Access

Si të krijoni një aplikacion uebi Access

Mund të krijoni një aplikacion ueb në Access 2016. Pra, çfarë është një aplikacion ueb gjithsesi? Epo, ueb do të thotë se është në internet dhe aplikacioni është thjesht stenografi për "aplikacion". Një aplikacion ueb i personalizuar është një aplikacion i bazës së të dhënave në internet që aksesohet nga cloud duke përdorur një shfletues. Ju ndërtoni dhe mirëmbani aplikacionin në internet në versionin e desktopit […]

Shiriti i nisjes së shpejtë në SharePoint 2010

Shiriti i nisjes së shpejtë në SharePoint 2010

Shumica e faqeve në SharePoint 2010 shfaqin një listë të lidhjeve të navigimit në shiritin e nisjes së shpejtë përgjatë anës së majtë të faqes. Shiriti i Nisjes së Shpejtë shfaq lidhjet me përmbajtjen e veçuar të sajtit si listat, bibliotekat, sajtet dhe faqet e botimit. Shiriti i Nisjes së Shpejtë përfshin dy lidhje shumë të rëndësishme: Lidhja e gjithë përmbajtjes së sitit: […]

Çfarë nënkuptojnë mesazhet e gabimit të zgjidhjes në Excel?

Çfarë nënkuptojnë mesazhet e gabimit të zgjidhjes në Excel?

Për probleme të thjeshta, Solver në Excel zakonisht gjen shpejt vlerat optimale të variablave Zgjidhës për funksionin objektiv. Por, në disa raste, Solver ka vështirësi në gjetjen e vlerave të ndryshores Solver që optimizojnë funksionin objektiv. Në këto raste, Solver zakonisht shfaq një mesazh ose një mesazh gabimi që përshkruan ose diskuton problemet që […]

Si të hiqni fushat dhe artikujt e llogaritur nga një tabelë kryesore Excel

Si të hiqni fushat dhe artikujt e llogaritur nga një tabelë kryesore Excel

Mund të hiqni lehtësisht fushat dhe artikujt e llogaritur nga një tabelë kryesore e Excel. Për të hequr një fushë të llogaritur, klikoni një qelizë në tabelën kryesore. Pastaj klikoni komandën Fields, Items & Sets të skedës Analize dhe zgjidhni Fushën e llogaritur nga nënmenyja që shfaqet. Kur Excel shfaq kutinë e dialogut Fut fushën e llogaritur, zgjidhni […]

Si të etiketoni në SharePoint

Si të etiketoni në SharePoint

Etiketat janë fjalë kyçe që ju i caktoni përmbajtjes. Etiketimi i faqeve për t'i ndarë me të tjerët është faqeshënues social dhe është shumë i popullarizuar në ueb dhe është i lehtë në SharePoint. Nëse keni përdorur ndonjëherë një sajt si Delicious, tashmë e dini se si funksionon shënimi social. Ndërsa më shumë njerëz caktojnë të njëjtat etiketa, etiketat bëhen një mënyrë […]