VBA Environ - Jak používat funkci Environ v Excel VBA?

Obsah:

Anonim

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 Template

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

  1. VBA IF Prohlášení | Šablony Excelu
  2. Jak používat funkci řazení Excel VBA?
  3. VBA while Loop (příklady se šablonou Excel)
  4. Počítadlo VBA (příklady)