Excel VBA okoljska funkcija

VBA Environment, kjer je okolje pomeni okolje, se uporablja za pridobivanje kakršnih koli informacij v operacijskem sistemu. Excel VBA Environment funkcija vrne vrednost, kot so pot, lokacija, ime, razširitev, ki je na voljo v sistemu. Razen tega okolja (operacijski sistem) vsebuje tudi podatke o uporabniškem imenu, avtorizaciji, imenu mape itd.

VBA Environment samo izražanje obravnava kot vnos. Kjer je ta izraz lahko karkoli. Spodaj je skladnja okolja.

Kako uporabljati okolje v Excelu VBA?

Spodaj so različni primeri za uporabo funkcije Environment v Excelu VBA.

To predlogo VBA Environment Excel lahko prenesete tukaj - Predloga VBA Environment Excel

VBA Environment - primer # 1

Obstajajo različni načini za pridobivanje informacij o operacijskem sistemu prek VBA okolja. Enega od njih bomo videli v tem primeru. Spodaj je seznam možnih pooblaščenih uporabnikov mojega sistema, ki so lahko TRUE ali FALSE. Ta imena smo omenili v Sheet2.

Če želite uporabiti funkcijo Environment v VBA, sledite spodnjim korakom:

1. korak: Zdaj bomo s pomočjo VBA Environment ugotovili, katero od teh je pravilno pooblaščeno uporabniško ime trenutnega operacijskega sistema. Sheet1 je kraj, kjer bomo v celici C3 našli pravilno uporabniško ime sistema.

2. korak: pod naslovom » Pooblaščeni? ”Videli bomo, ali je uporabniško ime dovoljeno ali ne s funkcijo If in CountIf, kot je prikazano spodaj. Če je uporabniško ime veljavno in pooblaščeno, bomo dobili DA, če je veljavno, vendar ni pooblaščeno, bomo dobili Ne. Za nepooblaščeno in neveljavno uporabniško ime bomo še vedno dobili št.

Korak 3: Zdaj v Excelovem delovnem listu ustvarite ukazni gumb, ki je na voljo na zavihku Razvijalci pod Active X Control v meniju Vstavi, kot je prikazano spodaj.

4. korak: Zdaj ustvarite ukazni gumb kjer koli na listu. Izberemo lahko tudi poljubne oblike preko ukaznega gumba.

5. korak: Z desno tipko miške kliknite ustvarjeni gumb in pojdite na možnost Lastnosti .

6. korak: Pod tem lahko privzeto ime spremenimo v karkoli. Tu smo izbrali Run Environment, kot je prikazano spodaj.

Korak 7: Zdaj z desno miškino tipko kliknite isti gumb in izberite Pogled kode, da greste v okno VBA.

7. korak: V tem primeru bomo dobili vnaprej sestavljen podpostopki ukaznega gumba.

Koda:

 Zasebni Sub CommandButton2_Click () Konec pod

8. korak: Izberite list, na katerem želimo uporabiti okolje Environment.

Koda:

 Zasebni Sub CommandButton2_Click () Sheets ("Sheet1") End Sub

Korak 9: Nato izberemo celice obsega, kjer želimo videti izhod.

Koda:

 Zasebni listi Sub CommandButton2_Click () ("Sheet1"). Obseg ("C3") = Končni pod

Korak 10: Zdaj uporabimo okolje Environment s poljem, ki ga želimo dobiti. Tu si želimo ogledati USERNAME.

Koda:

 Zasebni listi Sub CommandButton2_Click () ("Sheet1"). Obseg ("C3") = okolje ("USERNAME") Končni pod

Korak 11: Odprite zanko IF-ELSE, kjer napišite stanje, če je območje celice E3 DA, potem mi sporočite kot Pooblaščeni uporabnik.

Koda:

 Zasebni Sub CommandButton2_Click () Sheets ("Sheet1"). Obseg ("C3") = ambient ("USERNAME") Če Sheets ("Sheet1"). Končni pod

12. korak: V Else mi pošljite sporočilo kot nepooblaščeni uporabnik, kot je prikazano spodaj.

Koda:

 Zasebni Sub CommandButton2_Click () Sheets ("Sheet1"). Obseg ("C3") = ambient ("USERNAME") Če Sheets ("Sheet1"). Ostalo MsgBox "Neavtorizirani uporabnik" Konec Če konec Sub

Korak 13: Zdaj bomo sestavili kodo korak za korakom s pritiskom na funkcijsko tipko F8 in videli, ali je napaka ali ne. Če je vse dobro, zapustite okno VBA in na kartici Developer počistite način Oblikovanje, kot je prikazano spodaj.

14. korak: Zdaj bomo zagnali svoj makro s klikom na ukazni gumb z imenom »Zaženi okolje«. Videli bomo, da bo na C3 pooblaščeno uporabniško ime natisnjeno kot Game2 in nato isto potrjeno dvakrat. Enkrat po sporočilu in drugo v celici E3.

To pomeni, da je uporabniško ime, ki je v Sheet2 omenjeno kot Game2, veljavno in pooblaščeno za oba.

VBA ambient - primer # 2

Obstaja še en način, s katerim lahko dobimo popolne informacije o našem operacijskem sistemu. To deluje na enak način, kot smo videli v primeru-1. Za to sledite spodnjim korakom:

1. korak: Odprite modul na zavihku menija Vstavljanje.

Korak 2: Zdaj v možnosti Izrecno določimo funkcije, ki jih želimo videti.

Koda:

 Možnost Izrecna funkcija CompName () Končna funkcija

Korak 3: Recimo, če želite videti ime računalnika, uporabite katero koli besedo, ki določa računalnik. Tu smo izbrali CompName in uporabljali okolje funkcije z » Ime računalnika «.

Koda:

 Možnost Izrecna funkcija CompName () CompName = Environment ("ComputerName") Končna funkcija

4. korak: Odprimo še eno funkcijo, s katero bomo videli začasno pot do datoteke, kot je prikazano spodaj.

Koda:

 Možnost Eksplicitna funkcija CompName () CompName = ambient ("ComputerName") Končna funkcija Temp Funkcija () Končna funkcija

5. korak: Zdaj uporabite katero koli besedo, ki definira pot do datoteke Temp, kot je TempDir in vstavite okolje funkcija s TEMP .

Koda:

 Možnost Eksplicitna funkcija CompName () CompName = ambient ("ComputerName") Končna funkcija Funkcija Temp () TempDir = Environment ("Temp") End Function

6. korak: Po tem odprite podprocesuro, v kateri bomo uporabili obe funkciji, ki smo jih določili zgoraj, da bi videli njihove podrobnosti.

Koda:

 Možnost Eksplicitna funkcija CompName () CompName = ambient ("ComputerName") Končna funkcija Funkcija Temp () TempDir = Environment ("Temp") End Function Sub Enviro () End Sub

7. korak: Spremenite spremenljivko kot Dolgo, v kateri bomo videli podrobnosti.

Koda:

 Možnost Eksplicitna funkcija CompName () CompName = Environment ("ComputerName") Končna funkcija Funkcija Temp () TempDir = Environment ("Temp") End Function Sub Enviro () Dim A kot dolgi konec pod

8. korak: Odprite zanko For-Next in damo dolžino spremenljivki A, kako dolga bo omejitev znakov. Tu smo ga določili kot 50.

Koda:

 Možnost Eksplicitna funkcija CompName () CompName = Environment ("ComputerName") Končna funkcija Funkcija Temp () TempDir = Environment ("Temp") End Function Sub Enviro () Dim A as long for A = 1 do 50 End Sub

9. korak: Zdaj uporabite Debug Print za spremenljivko A in s funkcijo Environment, kot je prikazano spodaj.

Koda:

 Možnost Eksplicitna funkcija CompName () CompName = ambient ("ComputerName") Končna funkcija Funkcija Temp () TempDir = Environment ("Temp") Končna funkcija Sub Enviro () Dim A as long for A = 1 do 50 Debug.Print Environment (A ) Naslednji konec Sub

10. korak: Sestavite vsak korak kode in odprite takojšnje okno na zavihku menija Pogled.

11. korak: Zdaj zaženite kodo s klikom na gumb Play, ki se nahaja pod menijsko vrstico.

12. korak: V neposrednem oknu bomo videli popolne podrobnosti o operacijskem sistemu, povezane s funkcijami, ki smo jih navedli.

Prednosti funkcije Excel VBA Environment

  • Zdi se zapleteno, vendar je enostavno izvedljivo.
  • Daje popolne podatke o računalniku in operacijskem sistemu.
  • Naštejemo lahko vse podrobnosti in tudi glede na naše zahteve.
  • Prav tako lahko vidimo, kdo je pooblaščeni uporabnik za uporabo in urejanje sistema.

Stvari, ki jih je treba zapomniti

  • VBA Environment ni omejen na postopek, prikazan v zgornjih primerih. S pomočjo VBA Environment lahko dobimo veliko več podrobnosti o operacijskem sistemu, na primer katero koli pot, lokacijo, mapo ali datoteko, tudi poljubno velikost datoteke.
  • Če katera koli vrednost, ki jo vnesemo, ni tabela nizov okolja, potem dobimo niz z ničlo.
  • Ko končamo s kodiranjem, shranimo datoteko v makro, omogočimo excel format, da ne izgubimo kode.

Priporočeni članki

To je vodnik za VBA Environment. Tukaj smo razpravljali o uporabi okoljske funkcije v Excelu VBA skupaj s praktičnimi primeri in prenosno predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. VBA IF Izjave | Predloge Excel
  2. Kako uporabljati funkcijo razvrščanja Excel VBA?
  3. VBA, medtem ko je zanka (primeri s predlogo Excel)
  4. Števec VBA (primeri)

Kategorija:

VBA