Funkcia Excel VBA Environ
VBA Environ, kde Environ znamená Environment, sa používa na získanie akýchkoľvek informácií, ktoré existujú v operačnom systéme. Funkcia Excel VBA Environ vracia hodnotu, ako je cesta, umiestnenie, názov, rozšírenie dostupné v systéme. Okrem tohto prostredia (operačného systému) obsahuje aj informácie o používateľskom mene, autorizácii, názve priečinka atď.
VBA Environ považuje iba výraz za vstup. Kde tento výraz môže byť čokoľvek. Nižšie je uvedená syntax Environ.
Ako používať funkciu Environ v programe Excel VBA?
Nižšie sú uvedené rôzne príklady použitia funkcie Environ v programe Excel VBA.
Túto šablónu aplikácie VBA Environ Excel si môžete stiahnuť tu - šablónu VBA Environ ExcelVBA Environ - Príklad č. 1
Existuje niekoľko spôsobov, ako získať informácie o operačnom systéme prostredníctvom VBA Environ. Jeden z nich uvidíme v tomto príklade. Nižšie je uvedený zoznam možných oprávnených používateľov môjho systému, ktorí môžu byť TRUE alebo FALSE. Tieto názvy sme uviedli v Liste 2.
Ak chcete používať funkciu Environ vo VBA, postupujte podľa nasledujúcich krokov:
Krok 1: Teraz pomocou VBA Environ zistíme, ktoré z nich sú správne autorizované užívateľské meno aktuálneho operačného systému. Sheet1 je miesto, kde nájdeme správne užívateľské meno systému v bunke C3.
Krok 2: Pod hlavičkou „ Autorizované? „Uvidíme, či je používateľské meno povolené alebo nie, pomocou funkcie If a CountIf, ako je uvedené nižšie. Ak je používateľské meno platné a autorizované, dostaneme ÁNO, ak bude platné, ale neautorizované, dostaneme číslo N. Pre neoprávnené aj neplatné užívateľské meno dostaneme číslo.
Krok 3: Teraz v excelovom pracovnom hárku vytvorte príkazové tlačidlo, ktoré je k dispozícii na karte Vývojár v ovládacom paneli Active X Control v ponuke Vložiť, ako je to znázornené nižšie.
Krok 4: Teraz vytvorte príkazové tlačidlo kdekoľvek v hárku. Môžeme tiež zvoliť akékoľvek tvary nad príkazovým tlačidlom.
Krok 5: Pravým tlačidlom myši kliknite na vytvorené tlačidlo a prejdite na možnosť Vlastnosti .
Krok 6: Podľa toho môžeme zmeniť predvolený názov na čokoľvek. Tu sme vybrali Run Environ tak, ako je to znázornené nižšie.
Krok 7: Teraz kliknite pravým tlačidlom myši na rovnaké tlačidlo a vyberte Zobraziť kód, aby ste sa dostali do okna VBA.
Krok 7: V tom dostaneme vopred zostavenú čiastkovú procedúru príkazového tlačidla.
kód:
Private Sub CommandButton2_Click () End Sub
Krok 8: Vyberte hárok, na ktorom chceme použiť funkciu Environ.
kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1") End Sub
Krok 9: Potom vyberte bunky rozsahu, v ktorých chceme vidieť výstup.
kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = End Sub
Krok 10: Teraz použite funkciu Environ s poľom, ktoré chceme získať. Tu chceme vidieť USERNAME.
kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub
Krok 11: Teraz otvorte slučku IF-ELSE, kde napíšte podmienku, ak je bunka rozsahu E3 ÁNO, potom mi dajte správu ako Oprávnený užívateľ.
kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Yes" Then MsgBox "Authorized User!" End Sub
Krok 12: V opačnom prípade mi dajte správu ako neautorizovaný používateľ, ako je uvedené nižšie.
kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Yes" Then MsgBox "Authorized User!" Els MsgBox "Unathorized User" End If End End
Krok 13: Teraz zostavíme náš kód krok za krokom stlačením funkčného klávesu F8, aby sme zistili, či sa vyskytla nejaká chyba alebo nie. Ak je všetko v poriadku, ukončite okno VBA a zrušte výber režimu Návrh na karte Vývojár, ako je to znázornené nižšie.
Krok 14: Teraz spustíme naše makro kliknutím na príkazové tlačidlo s názvom „Spustiť prostredie“. Uvidíme, že na C3 je meno oprávneného používateľa vytlačené ako Game2 a potom je to isté potvrdenie dvakrát. Raz za schránkou správ a ďalšie v bunke E3.
To znamená, že užívateľské meno, ktoré je uvedené na hárku 2 ako Game2, je platné a zároveň autorizované.
VBA Environ - Príklad č. 2
Existuje aj iný spôsob, ako získať úplné informácie o operačnom systéme, ktorý máme. Funguje to rovnakým spôsobom, ako sme videli v príklade 1. Postupujte podľa nasledujúcich krokov:
Krok 1: Otvorte modul na karte ponuky Vložiť.
Krok 2: Teraz v časti Explicitná možnosť definujeme funkcie, ktoré chceme vidieť.
kód:
Možnosť Explicitná funkcia CompName () End Function
Krok 3: Ak chcete vidieť názov počítača, použite akékoľvek slovo, ktoré definuje počítač. Tu sme vybrali CompName a používame funkciu Environ s „ Computer Name “.
kód:
Možnosť Explicitná funkcia CompName () CompName = Environ ("ComputerName") End Function
Krok 4: Otvorme ďalšiu funkciu, pomocou ktorej uvidíme dočasnú cestu k súboru, ako je uvedené nižšie.
kód:
Možnosť Explicitná funkcia CompName () CompName = Environ ("ComputerName") End Function Function Temp () End Function
Krok 5: Teraz znova použite akékoľvek slovo, ktoré definuje cestu k súboru Temp, napríklad TempDir a vložte funkciu Environ s TEMP .
kód:
Možnosť Explicitná funkcia CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function
Krok 6: Potom otvorte podprogram, v ktorom použijeme obe funkcie, ktoré sme definovali vyššie, aby sme videli ich podrobnosti.
kód:
Možnosť Explicitná funkcia CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () End Sub
Krok 7: Definujte premennú ako dlho, v ktorej uvidíme podrobnosti.
kód:
Možnosť Explicitná funkcia CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A As Long End Sub
Krok 8: Otvorte slučku For-Next a dajte dĺžku premennej A, ako dlho bude obmedzený počet znakov. Tu sme ho nastavili na 50.
kód:
Možnosť Explicitná funkcia CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A A Long for A = 1 to 50 End Sub
Krok 9: Teraz použite Debug Print pre premennú A as funkciou Environ, ako je to znázornené nižšie.
kód:
Možnosť Explicitná funkcia CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A A Long for A = 1 to 50 Debug.Print Environ (A ) Ďalší koniec Sub
Krok 10: Zkompilujte každý krok kódu a otvorte okamžité okno na karte ponuky Zobraziť.
Krok 11: Teraz spustite kód kliknutím na tlačidlo Prehrať umiestnené pod panelom s ponukami.
Krok 12: V okamžitom okne sa zobrazia úplné podrobnosti operačného systému týkajúce sa funkcií, ktoré sme deklarovali, sú vyvolané.
Výhody funkcie Excel VBA v prostredí
- Vyzerá to komplexne, ale je ľahké ho implementovať.
- Poskytuje úplné informácie o počítači a operačnom systéme.
- Môžeme uviesť akékoľvek konkrétne podrobnosti, ako aj podľa našich požiadaviek.
- Taktiež vidíme, kto je oprávnený používateľ používať a upravovať systém.
Čo je potrebné pamätať
- VBA Environ nie je obmedzený na proces uvedený vo vyššie uvedených príkladoch. S programom VBA Environ môžeme získať omnoho viac podrobností o operačnom systéme, ako sú ľubovoľná cesta, umiestnenie, priečinok alebo súbor, dokonca aj ľubovoľná veľkosť súboru.
- Ak nejaká hodnota, ktorú zadáme, nie je tabuľkou reťazcov prostredia, nakoniec dostaneme reťazec nulovej dĺžky.
- Akonáhle sme skončili s kódovaním, uložte súbor v makre umožňujúcom vynikajúci formát, aby nedošlo k strate kódu.
Odporúčané články
Toto je sprievodca programom VBA Environ. Tu diskutujeme o tom, ako používať funkciu Environ v programe Excel VBA, spolu s praktickými príkladmi a šablónou programu Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -
- Výkazy VBA IF | Šablóny programu Excel
- Ako používať funkciu zoradenia Excel VBA?
- VBA počas slučky (príklady so šablónou programu Excel)
- Počítadlo VBA (príklady)