Funkcja Excel VBA Environ

VBA Environ, gdzie Environ oznacza Environment, służy do uzyskiwania wszelkich informacji znajdujących się w systemie operacyjnym. Funkcja Excel VBA Environ zwraca wartość, taką jak ścieżka, lokalizacja, nazwa, rozszerzenie dostępne w systemie. Oprócz tego środowiska (system operacyjny) zawiera również informacje o nazwie użytkownika, autoryzacji, nazwie folderu itp.

VBA Environ traktuje tylko wyrażenie jako dane wejściowe. Gdzie to wyrażenie może być czymkolwiek. Poniżej znajduje się składnia Environ.

Jak korzystać z funkcji Environ w programie Excel VBA?

Poniżej znajdują się różne przykłady użycia funkcji Environ w programie Excel VBA.

Możesz pobrać ten szablon Excel VBA Environ tutaj - Szablon Excel VBA Environ

VBA Environ - Przykład nr 1

Istnieją różne sposoby uzyskiwania informacji o systemie operacyjnym za pośrednictwem VBA Environ. Jeden z nich zobaczymy w tym przykładzie. Poniżej znajduje się lista możliwych autoryzowanych użytkowników mojego systemu, którzy mogą mieć wartość PRAWDA lub FAŁSZ. Wspomnieliśmy o tych nazwach w arkuszu 2.

Wykonaj poniższe kroki, aby użyć funkcji Environ w VBA:

Krok 1: Teraz, z pomocą VBA Environ, dowiemy się, która z nich jest poprawną nazwą autoryzowanego użytkownika bieżącego systemu operacyjnego. Arkusz 1 to miejsce, w którym znajdziemy prawidłową nazwę użytkownika systemu w komórce C3.

Krok 2: pod nagłówkiem „ Autoryzowany? ”Zobaczymy, czy nazwa użytkownika jest autoryzowana, czy nie z funkcją If i CountIf, jak pokazano poniżej. Jeśli nazwa użytkownika jest ważna i autoryzowana, otrzymamy TAK, jeśli jest ważna, ale nie autoryzowana, otrzymamy Nie. Zarówno dla nieautoryzowanej, jak i nieprawidłowej nazwy użytkownika, nadal otrzymamy Nie.

Krok 3: Teraz w arkuszu programu Excel, utwórz przycisk Polecenia, który jest dostępny na karcie Deweloper w aktywnej kontrolce X menu Wstaw, jak pokazano poniżej.

Krok 4: Utwórz teraz przycisk polecenia w dowolnym miejscu arkusza. Możemy również wybrać Kształty nad przyciskiem polecenia.

Krok 5: Kliknij prawym przyciskiem myszy utworzony przycisk i przejdź do opcji Właściwości .

Krok 6: Zgodnie z tym możemy zmienić domyślną nazwę na cokolwiek. Tutaj wybraliśmy Uruchom środowisko, jak pokazano poniżej.

Krok 7: Teraz kliknij prawym przyciskiem myszy ten sam przycisk i wybierz Wyświetl kod, aby przejść do okna VBA.

Krok 7: W ten sposób otrzymamy wstępnie zbudowaną podprocedurę przycisku polecenia.

Kod:

 Private Sub CommandButton2_Click () End Sub

Krok 8: Wybierz arkusz, w którym chcemy zastosować funkcję Environ.

Kod:

 Private Sub CommandButton2_Click () Arkusze („Arkusz1”) End Sub

Krok 9: Następnie wybierz komórki zakresu, w których chcemy zobaczyć dane wyjściowe.

Kod:

 Private Sub CommandButton2_Click () Arkusze („Arkusz1”). Zakres („C3”) = End Sub

Krok 10: Teraz użyj funkcji Environ z polem, które chcemy uzyskać. Tutaj chcemy zobaczyć USERNAME.

Kod:

 Private Sub CommandButton2_Click () Arkusze („Arkusz1”). Zakres („C3”) = Environ („NAZWA UŻYTKOWNIKA”) End Sub

Krok 11: Teraz otwórz pętlę IF-ELSE, w której wpisz warunek, jeśli komórka zakresu E3 ma wartość TAK, a następnie przekaż mi wiadomość jako autoryzowany użytkownik.

Kod:

 Private Sub CommandButton2_Click () Arkusze („Arkusz1”). Zakres („C3”) = Środowisko („NAZWA UŻYTKOWNIKA”) Jeśli Arkusze („Arkusz1”). Zakres („E3”) = „Tak” Następnie MsgBox „Autoryzowany użytkownik!” Napis końcowy

Krok 12: W innym przypadku podaj mi wiadomość jako nieautoryzowany użytkownik, jak pokazano poniżej.

Kod:

 Private Sub CommandButton2_Click () Arkusze („Arkusz1”). Zakres („C3”) = Środowisko („NAZWA UŻYTKOWNIKA”) Jeśli Arkusze („Arkusz1”). Zakres („E3”) = „Tak” Następnie MsgBox „Autoryzowany użytkownik!” W przeciwnym razie „Unathorized User” MsgBox End If End Sub

Krok 13: Teraz będziemy kompilować nasz kod krok po kroku, naciskając klawisz funkcyjny F8, aby zobaczyć, czy jest jakiś błąd, czy nie. Jeśli wszystko jest w porządku, wyjdź z okna VBA i odznacz tryb projektowania na karcie Deweloper, jak pokazano poniżej.

Krok 14: Teraz uruchomimy nasze makro, klikając przycisk polecenia o nazwie „Uruchom środowisko”. Zobaczymy, w C3, nazwa autoryzowanego użytkownika jest drukowana jako Game2, a następnie to samo jest potwierdzane dwukrotnie. Raz przy oknie komunikatu, a drugi w komórce E3.

Oznacza to, że nazwa użytkownika wymieniona w arkuszu 2 jako Game2 jest ważna i autoryzowana zarówno.

VBA Environ - Przykład 2

Istnieje inny sposób, w jaki możemy uzyskać pełne informacje na temat posiadanego systemu operacyjnego. Działa to w taki sam sposób, jak widzieliśmy w przykładzie 1. W tym celu wykonaj następujące kroki:

Krok 1: Otwórz moduł z karty menu Wstaw.

Krok 2: Teraz w Opcji Jawnej zdefiniujemy funkcje, które chcemy zobaczyć.

Kod:

 Opcja Jawna funkcja CompName () Funkcja końcowa

Krok 3: Załóżmy, że jeśli chcesz zobaczyć nazwę komputera, użyj dowolnego słowa określającego komputer. Tutaj wybraliśmy CompName i używamy funkcji Environ z „ Computer Name ”.

Kod:

 Opcja Jawna funkcja CompName () CompName = Environ („ComputerName”) End Function

Krok 4: Otwórzmy kolejną funkcję, za pomocą której zobaczymy ścieżkę pliku tymczasowego, jak pokazano poniżej.

Kod:

 Opcja Jawna funkcja CompName () CompName = Environ ("ComputerName") Funkcja końcowa Funkcja Temp () Funkcja końcowa

Krok 5: Teraz ponownie użyj dowolnego słowa definiującego ścieżkę pliku Temp, takiego jak TempDir i wstaw funkcję Environ z TEMP .

Kod:

 Opcja Jawna funkcja CompName () CompName = Environ („ComputerName”) End Funkcja Funkcja Temp () TempDir = Environ („Temp”) End Funkcja

Krok 6: Następnie otwórz podprocedurę, w której będziemy korzystać z obu funkcji, które zdefiniowaliśmy powyżej, aby zobaczyć ich szczegóły.

Kod:

 Opcja Jawna funkcja CompName () CompName = Environ („ComputerName”) End Funkcja Funkcja Temp () TempDir = Environ („Temp”) End Funkcja Sub Sub Enviro () End Sub

Krok 7: Zdefiniuj zmienną jako Long, w której zobaczymy szczegóły.

Kod:

 Opcja Jawna funkcja CompName () CompName = Environ („ComputerName”) End Funkcja Funkcja Temp () TempDir = Environ („Temp”) End Funkcja Sub Sub Enviro () Dim A As Long End Sub

Krok 8: Otwórz pętlę For-Next i podaj długość zmiennej A, jak długo będzie obowiązywał limit znaków. Tutaj ustawiliśmy go na 50.

Kod:

 Opcja Jawna funkcja CompName () CompName = Environ („ComputerName”) End Funkcja Funkcja Temp () TempDir = Environ („Temp”) End Funkcja Sub Enviro () Dim A As Long For A = 1 to 50 End Sub

Krok 9: Teraz użyj wydruku debugowania dla zmiennej A i funkcji Environ, jak pokazano poniżej.

Kod:

 Opcja Jawna funkcja CompName () CompName = Environ („ComputerName”) End Funkcja Funkcja Temp () TempDir = Environ („Temp”) End Funkcja Sub Enviro () Dim A As Long For A = 1 do 50 Debug.Print Environ (A ) Następny koniec Sub

Krok 10: Skompiluj każdy krok kodu i otwórz bezpośrednie okno z karty menu Widok.

Krok 11: Teraz uruchom kod, klikając przycisk Odtwórz znajdujący się pod paskiem menu.

Krok 12: W najbliższym oknie zobaczymy pełne dane systemu operacyjnego związane z zadeklarowanymi przez nas funkcjami.

Plusy funkcji Excel VBA Environ

  • Wydaje się to skomplikowane, ale jest łatwe do wdrożenia.
  • Daje pełne informacje o komputerze i systemie operacyjnym.
  • Możemy wymienić wszystkie szczegółowe szczegóły, a także nasze wymagania.
  • Możemy również zobaczyć, kto jest autoryzowanym użytkownikiem do korzystania i edycji systemu.

Rzeczy do zapamiętania

  • VBA Environ nie ogranicza się do procesu pokazanego w powyższych przykładach. Możemy uzyskać o wiele więcej informacji o systemie operacyjnym, takich jak dowolna ścieżka, lokalizacja, folder lub plik, a nawet dowolny rozmiar pliku za pomocą VBA Environ.
  • Jeśli jakakolwiek wprowadzona przez nas wartość nie jest tabelą ciągów środowiska, wówczas otrzymamy ciąg o zerowej długości.
  • Po zakończeniu kodowania zapisz plik w formacie makr. Włącz format Excel, aby uniknąć zgubienia kodu.

Polecane artykuły

To jest przewodnik po VBA Environ. Tutaj omawiamy sposób korzystania z funkcji Environ w Excel VBA wraz z praktycznymi przykładami i szablonem Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -

  1. Instrukcje VBA IF | Szablony programu Excel
  2. Jak korzystać z funkcji sortowania Excel VBA?
  3. VBA While Loop (przykłady z szablonem Excel)
  4. Licznik VBA (przykłady)

Kategoria:

VBA