Funkcija okruženja Excel VBA

Za dobivanje bilo kakvih podataka koji se nalaze u operativnom sustavu koristi se VBA Environment, gdje Environment označava Environment. Funkcija Excel VBA Environment vraća vrijednost poput putanje, lokacije, imena, proširenja dostupnih u sustavu. Osim ovog okruženja (operativni sustav) sadrži i podatke o korisničkom imenu, autorizaciji, nazivu mape itd.

VBA Environment samo izraz smatra unosom. Gdje taj izraz može biti bilo što. Ispod je sintaksa okružja.

Kako se u Excel VBA koristi funkcija okruženja?

Ispod su sljedeći primjeri za korištenje funkcije Environment u Excelu VBA.

Ovdje možete preuzeti ovaj VBA Environment Excel predložak - VBA Environment Excel predložak

VBA okruženje - primjer br. 1

Postoje različiti načini za dobivanje informacija o operativnom sustavu putem VBA okruženja. Jedan od njih ćemo vidjeti u ovom primjeru. Ispod je popis mogućih ovlaštenih korisnika mog sustava koji mogu biti TRUE ili FALSE. Spomenuli smo ta imena u Sheet2.

Slijedite dolje navedene korake za korištenje funkcije Environment u VBA:

Korak 1: Sada ćemo uz pomoć VBA okruženja pronaći koji je od njih ispravno ovlašteno korisničko ime trenutnog operativnog sustava. Sheet1 je mjesto na kojem ćemo u ćeliji C3 pronaći ispravno korisničko ime sustava.

Korak 2: Pod zaglavljem " Odobreno? ”Vidjet ćemo je li korisničko ime ovlašteno ili ne s funkcijom If i CountIf, kako je dolje prikazano. Ako je korisničko ime valjano i autorizirano, dobit ćemo DA, ako je valjano ali nije autorizirano, dobit ćemo Ne. I za neovlašteno i nevaljano korisničko ime i dalje ćemo dobiti Ne.

Korak 3: Sada na radnom listu Excela izradite gumb Command koji je dostupan na kartici Developer pod aktivnom X kontrolom izbornika kao što je prikazano u nastavku.

Korak 4: Sada napravite naredbeni gumb bilo gdje u listu. Možemo odabrati bilo koje Oblike preko naredbenog gumba.

Korak 5: Desnom tipkom miša kliknite stvoren gumb i prijeđite na opciju Svojstva .

Korak 6: Pod tim možemo zadano ime promijeniti u bilo što. Ovdje smo odabrali Run Environment kao što je prikazano u nastavku.

Korak 7: Sada desnom tipkom miša kliknite isti gumb i odaberite View Code da biste otvorili VBA prozor.

Korak 7: U tom slučaju dobit ćemo unaprijed izgrađeni potprogram naredbenog gumba.

Kodirati:

 Privatni Sub CommandButton2_Click () Kraj Sub

Korak 8: Odaberite list na koji želimo primijeniti okolinu funkciju.

Kodirati:

 Privatni Sub CommandButton2_Click () listovi ("Sheet1") Kraj Sub

Korak 9: Zatim odaberite ćelije raspona u kojima želimo vidjeti izlaz.

Kodirati:

 Privatni listovi Sub CommandButton2_Click () ("Sheet1"). Raspon ("C3") = Kraj sub

Korak 10: Sada koristite okolinu funkciju s poljem koje želimo dobiti. Ovdje želimo vidjeti USERNAME.

Kodirati:

 Privatni Sub CommandButton2_Click () listovi ("Sheet1"). Raspon ("C3") = okružje ("USERNAME") Krajnji pot

Korak 11: Otvorite IF-ELSE petlju gdje napišite uvjet ako je ćelija raspona E3 DA, a zatim mi dodajte poruku kao ovlašteni korisnik.

Kodirati:

 Privatni Sub CommandButton2_Click () listovi ("Sheet1"). Raspon ("C3") = okružje ("USERNAME") Ako listovi ("Sheet1"). Raspon ("E3") = "Da", zatim MsgBox "ovlašteni korisnik!" Kraj Sub

12. korak: U Else mi pošaljite poruku kao Neovlašteni korisnik kao što je prikazano u nastavku.

Kodirati:

 Privatni Sub CommandButton2_Click () listovi ("Sheet1"). Raspon ("C3") = okružje ("USERNAME") Ako listovi ("Sheet1"). Raspon ("E3") = "Da", zatim MsgBox "ovlašteni korisnik!" Ostalo MsgBox "Nedovršeni korisnik" Kraj Ako Kraj Sub

Korak 13: Sada ćemo sastaviti naš kôd, korak po korak, pritiskom na funkcijsku tipku F8 da vidimo postoji li greška ili ne. Ako je sve dobro, izađite iz prozora VBA i poništite način Dizajn na kartici Razvojni programer kao što je prikazano u nastavku.

14. korak: Sada ćemo pokrenuti makronaredbu klikom na naredbeni gumb nazvan "Pokrenite okruženje". Na C3 ćemo vidjeti da se autorizirano korisničko ime ispisuje kao Game2, a zatim se dvaput potvrđuje isto. Jednom pored okvira za poruke i ostalo u ćeliji E3.

To znači da je korisničko ime koje se spominje na Sheet2 kao Game2 valjano i autorizira oboje.

VBA okruženje - primjer br. 2

Postoji još jedan način pomoću kojeg možemo dobiti sveobuhvatne informacije o operativnom sustavu koji imamo. To djeluje na isti način kao što smo vidjeli u primjeru-1. Za to slijedite dolje navedene korake:

Korak 1: Otvorite modul na kartici izbornika Umetanje.

Korak 2: Sada ćemo pod Opcijom eksplicitno definirati funkcije koje želimo vidjeti.

Kodirati:

 Opcija Eksplicitna funkcija CompName () Krajnja funkcija

Korak 3: Pretpostavimo da ako želite vidjeti Ime računala, upotrijebite bilo koju riječ koja definira Računalo. Ovdje smo odabrali CompName i koristili okolinu funkciju s " Naziv računala ".

Kodirati:

 Opcija Eksplicitna funkcija CompName () CompName = Environment ("ComputerName") Krajnja funkcija

Korak 4: Otvorimo još jednu funkciju kojom ćemo vidjeti privremeni put datoteke kao što je prikazano u nastavku.

Kodirati:

 Opcija Eksplicitna funkcija CompName () CompName = ambi = (ComputerName)) End Function Temp () End Function

Korak 5: Sada ponovo upotrijebite bilo koju riječ koja definira putanju datoteke Temp, poput TempDir i umetnite okruženje pomoću TEMP .

Kodirati:

 Opcija Eksplicitna funkcija CompName () CompName = okružje ("ComputerName") Završna funkcija Temp () TempDir = Environment ("Temp") Krajnja funkcija

Korak 6: Nakon toga otvorite potprocesuru u kojoj ćemo koristiti obje funkcije koje smo gore definirali da vidimo njihove detalje.

Kodirati:

 Opcija Eksplicitna funkcija CompName () CompName = okružje ("ComputerName") Završna funkcija Funkcija Temp () TempDir = okružje ("Temp") Krajnja funkcija Sub Enviro () Kraj Sub

Korak 7: Definirajte varijablu kao Long u kojoj ćemo vidjeti detalje.

Kodirati:

 Opcija Eksplicitna funkcija CompName () CompName = okružje ("ComputerName") Krajnja funkcija Funkcija Temp () TempDir = Environment ("Temp") Krajnja funkcija Sub Enviro () Dim A kao Long End Sub

Korak 8: Otvorite petlju For-Next i duljinu dodajte varijabli A koliko će dugo biti ograničenje broja znakova. Ovdje smo to postavili kao 50.

Kodirati:

 Opcija Eksplicitna funkcija CompName () CompName = okružje ("ComputerName") Krajnja funkcija Funkcija Temp () TempDir = Environment ("Temp") Krajnja funkcija Sub Enviro () Dim. A A Long for A = 1 do 50 Kraj Sub

Korak 9: Sada koristite Ispis grešaka za varijablu A i s funkcijom okruženja kao što je prikazano u nastavku.

Kodirati:

 Opcija Eksplicitna funkcija CompName () CompName = okružje ("ComputerName") Krajnja funkcija Funkcija Temp () TempDir = okružje ("Temp") Krajnja funkcija Sub Enviro () Dim. A Koliko dugo A = 1 do 50 Debug.Print Environment (A ) Sljedeći krajnji sub

Korak 10: Skompirajte svaki korak koda i otvorite trenutni prozor na kartici izbornika View.

Korak 11: Sada pokrenite kôd klikom na gumb Play koji se nalazi ispod trake izbornika.

Korak 12: U neposrednom prozoru vidjet ćemo kompletne detalje operativnog sustava koji se odnose na funkcije koje smo proglasili.

Prednosti funkcije Excel VBA okruženja

  • Čini se složenim, ali je lako implementirati.
  • Daje kompletne podatke o računalu i operativnom sustavu.
  • Možemo navesti sve određene detalje, kao i prema našim zahtjevima.
  • Također možemo vidjeti tko je ovlašteni korisnik za upotrebu i uređivanje sustava.

Stvari koje treba zapamtiti

  • VBA okruženje nije ograničeno na postupak prikazan u gornjim primjerima. Možete dobiti mnogo više detalja o operativnom sustavu kao što su bilo koji put, lokacija, mapa ili datoteka, čak i bilo koje veličine datoteke, uz pomoć VBA okružja.
  • Ako bilo koja vrijednost koju unosimo nije tablica niza okruženja, tada ćemo na kraju dobiti niz nulte dužine.
  • Nakon što završimo s kodiranjem, spremite datoteku u makro omogućujući excel format kako biste izbjegli gubitak koda.

Preporučeni članci

Ovo je vodič za VBA okruženje. Ovdje smo raspravljali o tome kako koristiti Environmental funkciju u Excelu VBA zajedno s praktičnim primjerima i download-om Excel predloška. Možete i pregledati naše druge predložene članke -

  1. VBA IF Izjave | Predlošci Excela
  2. Kako koristiti Excel VBA funkciju sortiranja?
  3. VBA Dok je petlja (primjeri s Excelovim predloškom)
  4. VBA brojač (primjeri)

Kategorija:

VBA