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 EnvironVBA 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 -
- Instrukcje VBA IF | Szablony programu Excel
- Jak korzystać z funkcji sortowania Excel VBA?
- VBA While Loop (przykłady z szablonem Excel)
- Licznik VBA (przykłady)