Funkce Excel VBA Environ
VBA Environ, kde Environ je zkratka pro prostředí, se používá k získání jakýchkoli informací, které jsou v operačním systému. Funkce Excel VBA Environ vrací hodnotu, jako je cesta, umístění, název, rozšíření dostupné v systému. Kromě tohoto prostředí (operační systém) také uchovává informace o uživatelském jménu, autorizaci, názvu složky atd.
VBA Environ považuje pouze výraz za vstup. Kde ten výraz může být cokoli. Níže je uvedena syntaxe Environ.
Jak používat funkci Environ v Excel VBA?
Níže jsou uvedeny různé příklady použití funkce Environ v aplikaci Excel VBA.
Tuto šablonu VBA Environ Excel si můžete stáhnout zde - VBA Environ Excel TemplateVBA Environ - Příklad č. 1
Existují různé způsoby, jak získat informace o operačním systému prostřednictvím VBA Environ. Jeden z nich uvidíme v tomto příkladu. Níže je uveden seznam možných oprávněných uživatelů mého systému, kteří mohou být PRAVDA nebo NEPRAVDA. Tato jména jsme uvedli v List2.
Při použití funkce Environ ve VBA postupujte podle následujících kroků:
Krok 1: Nyní pomocí VBA Environ zjistíme, které z nich je správným autorizovaným uživatelským jménem aktuálního operačního systému. List1 je místo, kde najdeme správné uživatelské jméno systému v buňce C3.
Krok 2: Pod hlavičkou „ Autorizováno? „Uvidíme, zda je uživatelské jméno autorizováno nebo ne pomocí funkce If a CountIf, jak je ukázáno níže. Pokud je uživatelské jméno platné a autorizované, dostaneme ANO, pokud bude platné, ale neautorizované, dostaneme Ne. Pro neautorizované i neplatné uživatelské jméno dostaneme Ne.
Krok 3: Nyní v listu aplikace Excel vytvořte příkazové tlačítko, které je k dispozici na kartě Vývojář v nabídce Vložit ovládací prvek Active X, jak je ukázáno níže.
Krok 4: Nyní vytvořte příkazové tlačítko kdekoli v listu. Můžeme také zvolit jakékoli tvary nad příkazovým tlačítkem.
Krok 5: Klikněte pravým tlačítkem myši na vytvořené tlačítko a přejděte na možnost Vlastnosti .
Krok 6: Pod tím můžeme změnit výchozí název na cokoli. Zde jsme vybrali Run Environ, jak je ukázáno níže.
Krok 7: Nyní klikněte pravým tlačítkem na stejné tlačítko a vyberte Zobrazit kód, abyste se dostali do okna VBA.
Krok 7: Tím získáme předem vytvořený dílčí postup příkazového tlačítka.
Kód:
Private Sub CommandButton2_Click () End Sub
Krok 8: Vyberte list, kde chceme použít funkci Environ.
Kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1") End Sub
Krok 9: Poté vyberte buňky rozsahu, kde chceme vidět výstup.
Kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = End Sub
Krok 10: Nyní použijte funkci Environ s polem, které chceme získat. Zde chceme vidět USERNAME.
Kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub
Krok 11: Nyní otevřete smyčku IF-ELSE, kde napište podmínku, pokud je buňka rozsahu E3 ANO, a pak mi dejte zprávu jako Autorizovaný uživatel.
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 jiném dejte mi zprávu jako Neautorizovaný uživatel, jak je ukázáno níže.
Kód:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Yes" Then MsgBox "Authorized User!" Else MsgBox "Unathorized User" End If End End
Krok 13: Nyní sestavíme náš kód krok za krokem stisknutím funkční klávesy F8, abychom zjistili, zda došlo k chybě nebo ne. Pokud je vše v pořádku, ukončete okno VBA a zrušte výběr režimu Návrh na kartě Vývojář, jak je uvedeno níže.
Krok 14: Nyní spustíme naše makro kliknutím na příkazové tlačítko s názvem „Spustit prostředí“. U C3 uvidíme, že autorizované uživatelské jméno je vytištěno jako Game2, a pak je stejné potvrzeno dvakrát. Jednou v okně zprávy a další v buňce E3.
To znamená, že uživatelské jméno, které je uvedeno v Sheet2 jako Game2, je platné a zároveň autorizované.
VBA Environ - Příklad č. 2
Existuje další způsob, jak získat úplné informace o operačním systému, který máme. Funguje to stejným způsobem, jak jsme viděli v příkladu 1. Postupujte podle následujících kroků:
Krok 1: Otevřete modul z nabídky Vložit.
Krok 2: Nyní v části Explicitní možnost definujeme funkce, které chceme vidět.
Kód:
Možnost Explicitní funkce CompName () End Function
Krok 3: Pokud chcete vidět název počítače, použijte libovolné slovo, které definuje počítač. Zde jsme vybrali CompName a používáme Environ funkci s „ Computer Name “.
Kód:
Možnost Explicitní funkce CompName () CompName = Environ ("ComputerName") End Function
Krok 4: Otevřeme další funkci, pomocí které uvidíme dočasnou cestu k souboru, jak je ukázáno níže.
Kód:
Možnost Explicitní funkce CompName () CompName = Environ ("ComputerName") End Function Function Temp () End Function
Krok 5: Nyní znovu použijte libovolné slovo, které definuje cestu k souboru Temp, jako je TempDir a vložte funkci Environ s TEMP .
Kód:
Možnost Explicitní funkce CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function
Krok 6: Poté otevřete podprogram, ve kterém budeme používat obě funkce, které jsme definovali výše, pro zobrazení jejich detailů.
Kód:
Možnost Explicitní funkce CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () End Sub
Krok 7: Definujte proměnnou tak dlouho, ve které uvidíme podrobnosti.
Kód:
Možnost Explicitní funkce CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A As Long End Sub
Krok 8: Otevřete smyčku For-Next a dejte délce proměnné A, jak dlouho bude limit počtu znaků. Zde jsme ji nastavili na 50.
Kód:
Možnost Explicitní funkce CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A Tak Long for A = 1 až 50 End Sub
Krok 9: Nyní použijte Debug Print pro proměnnou A a s funkcí Environ, jak je ukázáno níže.
Kód:
Možnost Explicitní funkce CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A Tak Long for A = 1 to 50 Debug.Print Environ (A ) Další konec Sub
Krok 10: Zkompilujte každý krok kódu a otevřete okamžité okno na kartě nabídky Zobrazit.
Krok 11: Nyní spusťte kód kliknutím na tlačítko Přehrát umístěné pod nabídkovou lištou.
Krok 12: V okamžitém okně uvidíme kompletní podrobnosti operačního systému týkající se funkcí, které jsme deklarovali, jsou vyvolány.
Výhody funkce Excel VBA prostředí
- Zdá se to složité, ale je snadné jej implementovat.
- Poskytuje úplné podrobnosti o počítači a operačním systému.
- Můžeme vyjmenovat jakékoli konkrétní podrobnosti, jakož i podle našich požadavků.
- Uvidíme také, kdo je oprávněným uživatelem k používání a úpravám systému.
Co si pamatovat
- VBA Environ není omezen na proces uvedený ve výše uvedených příkladech. Pomocí programu VBA Environ můžeme získat mnohem více podrobností o operačním systému, jako je libovolná cesta, umístění, složka nebo soubor, a to i libovolnou velikost souboru.
- Pokud jakákoli hodnota, kterou zadáme, není tabulka řetězců prostředí, dostaneme řetězec nulové délky.
- Jakmile skončíme s kódováním, uložte soubor v makru umožňujícím vynikající formát, abyste zabránili ztrátě kódu.
Doporučené články
Toto je průvodce VBA Environ. Zde diskutujeme o tom, jak používat funkci Environ v Excel VBA spolu s praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -
- VBA IF Prohlášení | Šablony Excelu
- Jak používat funkci řazení Excel VBA?
- VBA while Loop (příklady se šablonou Excel)
- Počítadlo VBA (příklady)