Excel Funcția Environ VBA

VBA Environ unde se află Environ pentru Environment este utilizat pentru obținerea informațiilor care există acolo în Sistemul de operare. Funcția Excel VBA Environ returnează valoarea, cum ar fi calea, locația, numele, extensia disponibile în sistem. În afară de acest mediu (sistem de operare), există și informații despre numele utilizatorului, autorizare, numele folderului etc.

VBA Environ consideră doar expresia ca o intrare. În cazul în care această expresie poate fi orice. Mai jos este sintaxa lui Environ.

Cum se utilizează funcția Environ în Excel VBA?

Mai jos sunt diferite exemple de utilizare a funcției Environ în Excel VBA.

Puteți descărca acest șablon VBA Environ Excel aici - șablonul VBA Environ Excel

VBA Environ - Exemplul # 1

Există diferite modalități de a obține informații despre sistemul de operare prin VBA Environ. Unul dintre ei îl vom vedea în acest exemplu. Mai jos este lista posibililor utilizatori autorizați ai sistemului meu care pot fi ADEVĂRĂ sau FALĂ. Am menționat aceste nume în Fișa2.

Urmați pașii de mai jos pentru a utiliza funcția Environ în VBA:

Pasul 1: Acum, cu ajutorul VBA Environ, vom afla care dintre acestea este numele de utilizator autorizat corect al sistemului de operare actual. Foaia 1 este locul în care vom găsi numele de utilizator corect al sistemului în celula C3.

Pasul 2: Sub antetul „ Autorizat? ”Vom vedea dacă numele de utilizator este autorizat sau nu cu funcția If și CountIf, așa cum se arată mai jos. Dacă numele de utilizator este valid și autorizat, atunci vom primi DA, dacă este valabil, dar neautorizat, vom primi nr. Pentru numele de utilizator neautorizat și nevalabil, vom primi totuși Nu.

Pasul 3: Acum, în foaia de lucru excel, creați un buton de comandă care este disponibil în fila Dezvoltator sub Controlul Active X al meniului Insert, așa cum se arată mai jos.

Pasul 4: Acum creează un buton de comandă oriunde în foaie. Putem alege și orice Forme peste butonul de comandă.

Pasul 5: Faceți clic dreapta pe butonul creat și accesați opțiunea Proprietăți .

Pasul 6: În conformitate cu aceasta, putem schimba numele implicit la orice. Aici am ales Run Environ așa cum se arată mai jos.

Pasul 7: Faceți clic dreapta pe același buton și selectați View Code pentru a merge în fereastra VBA.

Pasul 7: În acest sens, vom obține sub-procedura pre-construită a butonului de comandă.

Cod:

 Subcomandă privatăButton2_Click () End Sub

Pasul 8: Selectăm foaia în care dorim să aplicăm funcția Environ.

Cod:

 Subcomandă privatăButton2_Click () Fișe ("Foaie1") Subfață finală

Pasul 9: Apoi selectăm celulele de gamă în care dorim să vedem ieșirea.

Cod:

 Subcomandă privatăButton2_Click () Fișe ("Foaie1"). Gama ("C3") = Subfață finală

Pasul 10: Utilizați acum funcția Environ cu câmpul pe care dorim să-l obținem. Aici vrem să vedem USERNAME.

Cod:

 Subcomandă privatăButton2_Click () Fișe ("Foaie1"). Gama ("C3") = Mediu ("USERNAME")

Pasul 11: Acum deschideți o buclă IF-ELSE unde scrieți condiția dacă celula de gamă E3 este DA, apoi dați-mi mesajul ca utilizator autorizat.

Cod:

 Subcomandă privatăButton2_Click () Fișe ("Foaie1"). Gama ("C3") = Mediu ("USERNAME") Dacă Foi ("Foaie1"). Gama ("E3") = "Da" Atunci MsgBox "Utilizator autorizat!" Sub final

Pasul 12: În altfel, dă-mi mesajul ca utilizator neautorizat, așa cum se arată mai jos.

Cod:

 Subcomandă privatăButton2_Click () Fișe ("Foaie1"). Gama ("C3") = Mediu ("USERNAME") Dacă Foi ("Foaie1"). Gama ("E3") = "Da" Atunci MsgBox "Utilizator autorizat!" Altfel MsgBox "Utilizator nesatorizat" End If End Sub

Pasul 13: Acum vom compila codul nostru pas cu pas apăsând tasta funcțională F8 pentru a vedea dacă există vreo eroare sau nu. Dacă totul este bun, ieșiți din fereastra VBA și deselectați modul Design din fila Dezvoltator, așa cum se arată mai jos.

Pasul 14: Acum vom rula macro-ul nostru făcând clic pe butonul de comandă numit „Run Environ”. Vom vedea, la C3, numele de utilizator autorizat este tipărit ca Game2 și apoi același lucru este confirmat de două ori. Odată lângă căsuța de mesaje și alte din celula E3.

Aceasta înseamnă că numele de utilizator menționat la Sheet2 ca Game2 este valid și ambele sunt autorizate.

VBA Environ - Exemplul # 2

Există un alt mod prin care putem obține informațiile complete despre sistemul de operare pe care îl avem. Aceasta funcționează în aceeași manieră cum am văzut în exemplul 1. Pentru aceasta, urmați pașii de mai jos:

Pasul 1: Deschideți un modul din fila Meniu Insert.

Pasul 2: Acum, în Opțiunea Explicită, vom defini funcțiile pe care dorim să le vedem.

Cod:

 Opțiune Funcție explicită CompName () Funcție finală

Pasul 3: Să presupunem că, dacă doriți să vedeți numele computerului, utilizați orice cuvânt care definește computerul. Aici am ales CompName și am folosit funcția Environ cu „ Computer Name ”.

Cod:

 Opțiune Funcție explicită CompName () CompName = Environ ("ComputerName") Funcție finală

Pasul 4: Haideți să deschidem o altă funcție prin care vom vedea calea de fișier temporar așa cum este arătat mai jos.

Cod:

 Opțiune Funcție explicită CompName () CompName = Environ ("ComputerName") Funcție finală Funcție Temp () Funcție finală

Pasul 5: Acum folosiți din nou orice cuvânt care definește calea fișierului Temp, cum ar fi TempDir și introduceți funcția Environ cu TEMP .

Cod:

 Opțiune Funcție explicită CompName () CompName = Environ ("ComputerName") Funcție finală Funcție Temp () TempDir = Environ ("Temp") Funcție finală

Pasul 6: După aceea, deschidem subprocedura în care vom folosi ambele funcții pe care le-am definit mai sus pentru a vedea detaliile lor.

Cod:

 Opțiune Funcție explicită CompName () CompName = Environ ("ComputerName") Funcție finală Funcție Temp () TempDir = Environ ("Temp") Funcție finală Sub Enviro () End Sub

Pasul 7: Definiți o variabilă ca Long în care vom vedea detaliile.

Cod:

 Opțiune Funcție explicită CompName () CompName = Environ ("ComputerName") Funcție finală Funcție Temp () TempDir = Environ ("Temp") Funcție finală Sub Enviro () Dim A As Long End Sub

Pasul 8: Deschideți o buclă For-Next și acordați lungimii variabilei A cât timp va fi limita de caractere. Aici am stabilit ca 50.

Cod:

 Opțiune Funcție explicită CompName () CompName = Environ ("ComputerName") Funcție finală Funcție Temp () TempDir = Environ ("Temp") Funcție finală Sub Enviro () Dim A As Long For A = 1 to 50 End Sub

Pasul 9: Utilizați acum Debug Print pentru variabila A și cu funcția Environ așa cum se arată mai jos.

Cod:

 Opțiune Funcție explicită CompName () CompName = Environ ("ComputerName") Funcție finală Funcție Temp () TempDir = Environ ("Temp") Funcție finală Sub Enviro () Dim A As Long For A = 1 to 50 Debug.Print Environ (A ) Următorul punct final

Pasul 10: Compilați fiecare pas al codului și deschideți o fereastră imediată din fila meniu Vizualizare.

Pasul 11: Acum rulați codul făcând clic pe butonul Redare situat sub bara de meniu.

Pasul 12: Vom vedea, în fereastra imediată, detalii complete ale sistemului de operare legate de funcțiile pe care le-am declarat sunt preluate.

Beneficiile funcției Environ Excel VBA

  • Pare complex, dar este ușor de implementat.
  • Oferă detalii complete despre computer și sistem de operare.
  • Putem enumera toate detaliile specifice, precum și în conformitate cu cerințele noastre.
  • De asemenea, putem vedea cine este utilizatorul autorizat să utilizeze și să editeze sistemul.

Lucruri de amintit

  • VBA Environ nu se limitează la procesul prezentat în exemplele de mai sus. Putem obține mai multe detalii despre sistemul de operare, cum ar fi orice cale, locație, folder sau fișier, chiar și orice dimensiune a fișierului, cu ajutorul VBA Environ.
  • Dacă orice valoare pe care o introducem nu este o tabelă de șir de mediu, atunci vom ajunge să obținem șir de lungime zero.
  • După ce am terminat cu codarea, salvați fișierul în format macro activ pentru a evita pierderea codului.

Articole recomandate

Acesta este un ghid pentru VBA Environ. Aici vom discuta despre cum să utilizăm funcția Environ în Excel VBA, împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. Declarații VBA IF | Șabloane Excel
  2. Cum se utilizează funcția de sortare Excel VBA?
  3. În timp ce bucla VBA (exemple cu șablonul Excel)
  4. Contor VBA (exemple)

Categorie:

VBA