Exceli VBA keskkonnafunktsioon

VBA keskkonda, kus keskkond tähistab keskkonda, kasutatakse operatsioonisüsteemis oleva teabe saamiseks. Funktsioon Excel VBA Environ tagastab süsteemis saadaoleva väärtuse, näiteks tee, asukoht, nimi, laiend. Lisaks sellele keskkonnale (operatsioonisüsteem) on ka teave kasutajanime, volituse, kausta nime jne kohta.

VBA Environ peab sisendiks ainult avaldist. Kus see väljend võib olla ükskõik. Allpool on Ennexi süntaks.

Kuidas kasutada keskkonnafunktsiooni Excel VBA-s?

Allpool on toodud erinevad näited funktsiooni Environ kasutamiseks Excel VBA-s.

Selle VBA Environ Exceli malli saate alla laadida siit - VBA Environ Exceli mall

VBA keskkond - näide nr 1

VBA Environi kaudu operatsioonisüsteemi kohta teabe saamiseks on erinevaid viise. Neist ühte näeme selles näites. Allpool on minu süsteemi võimalike volitatud kasutajate loend, mis võivad olla TRUE või FALSE. Oleme neid nimesid Sheet2-s maininud.

VBA funktsiooni Environ kasutamiseks kasutamiseks toimige järgmiselt.

1. samm. Nüüd leiame VBA Environi abiga, milline neist on praeguse opsüsteemi õige volitatud kasutajanimi. Leht1 on koht, kust leiame lahtrist C3 süsteemi õige kasutajanime.

2. samm: pealkirja all „Kas olete volitatud? ”Me näeme, kas kasutajanimi on autoriseeritud või mitte, kasutades funktsioone If ja CountIf, nagu allpool näidatud. Kui kasutajanimi on kehtiv ja autoriseeritud, siis saame JAH, kui kehtiv, kuid volitamata saame numbri. Nii volitamata kui ka kehtetu kasutajanime korral saame ikkagi EI.

3. samm: looge Exceli töölehel nüüd käsunupp, mis on saadaval vahekaardil Arendaja menüü Lisamine menüü Aktiivne X juhtimine allpool näidatud viisil.

4. samm: looge käsu nupp lehel suvalisse kohta. Samuti saame käsunupust valida suvalise kuju .

5. samm: paremklõpsake loodud nuppu ja minge valikule Atribuudid .

6. samm: selle alusel saame vaikenime muuta ükskõik milleks. Siin oleme valinud Run Environ, nagu allpool näidatud.

7. samm: paremklõpsake nüüd samal nupul ja valige VBA aknas avamiseks käsk Kuva kood .

7. samm: selles saame käsu nupu eelmonteeritud alamprotseduuri.

Kood:

 Privaatne alamklahv CommandButton2_Click () End Sub

8. samm: valige leht, kuhu tahame funktsiooni Environ rakendada.

Kood:

 Privaatne alamklahv CommandButton2_Click () Sheets ("Sheet1") End Sub

9. samm: seejärel valige vahemiku lahtrid, kus me tahame väljundit näha.

Kood:

 Privaatne alamklahv CommandButton2_Click () lehed ("Sheet1"). Range ("C3") = End Sub

10. samm: kasutage funktsiooni Environ koos väljaga, mille tahame saada. Siin tahame näha kasutajat USERNAME.

Kood:

 Privaatne alamkäskButton2_Click () lehed ("leht1"). Vahemik ("C3") = keskkond ("KASUTAJA NIMI") Lõpp alamkaust

11. samm: avage nüüd IF-ELSE silmus, kus kirjutage tingimus, kui vahemiku lahter E3 on JAH, siis andke mulle teade volitatud kasutajana.

Kood:

 Privaatne alamkäsklus Button2_Click () Lehed ("Leht1"). Vahemik ("C3") = Keskkond ("KASUTAJA NIMI") Kui Lehed ("Leht1"). Vahemik ("E3") = "Jah", siis MsgBox "Volitatud kasutaja!" Lõpu alam

12. samm: muudes keeltes andke mulle sõnum volitamata kasutajana, nagu allpool näidatud.

Kood:

 Privaatne alamkäsklus Button2_Click () Lehed ("Leht1"). Vahemik ("C3") = Keskkond ("KASUTAJA NIMI") Kui Lehed ("Leht1"). Vahemik ("E3") = "Jah", siis MsgBox "Volitatud kasutaja!" Else MsgBox "Volitamata kasutaja" End If End Sub

13. samm: Nüüd koostame oma koodi samm-sammult, vajutades funktsiooniklahvi F8, et näha, kas viga on või mitte. Kui kõik on hästi, siis väljuge VBA aknast ja tühjendage vahekaardi Arendaja kujundusrežiim, nagu allpool näidatud.

14. samm: Nüüd käivitame oma makro, klõpsates käsunupul nimega „Käivita keskkond“. C3-s näeme, et volitatud kasutajanimi on trükitud kui Game2 ja seejärel kinnitatakse sama kaks korda. Kord teateboksi ääres ja teine ​​lahtris E3.

See tähendab, et kasutajanimi, mida Sheet2-s nimetatakse Game2-ks, on kehtiv ja volitatud mõlemad.

VBA keskkond - näide nr 2

On veel üks viis, kuidas saada täielikku teavet meie opsüsteemi kohta. See töötab samal viisil, nagu nägime näites 1. Selleks toimige järgmiselt.

1. samm: avage moodul vahekaardil Insert.

2. samm: määratleme nüüd jaotises Valik selgesõnaliselt funktsioonid, mida tahame näha.

Kood:

 Valiku selgesõnaline funktsioon CompName () End Function

3. samm: kui soovite näha arvuti nime, kasutage suvalist sõna, mis määratleb arvuti. Siin oleme valinud CompName'i ja kasutame funktsiooni Environ koos arvuti nimega .

Kood:

 Valiku selgesõnaline funktsioon CompName () CompName = Environ ("ComputerName") End Function

4. samm: avame veel ühe funktsiooni, mille abil näeme ajutist failitee, nagu allpool näidatud.

Kood:

 Valik Selgesõnaline funktsioon CompName () CompName = Environ ("ComputerName") End Function Funktsioon Temp () End Function

5. samm: kasutage taas suvalist sõna, mis määratleb faili tempo, näiteks TempDir ja lisage funktsioon Environ funktsiooniga TEMP .

Kood:

 Valik Selgesõnaline funktsioon CompName () CompName = Environ ("ComputerName") End Function Funktsioon Temp () TempDir = Environ ("Temp") End Function

6. samm: Pärast seda avage alamprotseduur, milles me kasutame mõlemat funktsiooni, mille me eespool defineerisime, et näha nende üksikasju.

Kood:

 Valik Selgesõnaline funktsioon CompName () CompName = Environ ("ComputerName") End Function Funktsioon Temp () TempDir = Environ ("Temp") End Function Sub Enviro () End Sub

7. samm: määratlege muutuja Pikk, milles näeme üksikasju.

Kood:

 Valik Selgesõnaline funktsioon CompName () CompName = Environ ("ComputerName") End Function Funktsioon Temp () TempDir = Environ ("Temp") End Function Sub Sub Enviro () Dim A as Long End Sub

8. samm: avage Järgmine ahel ja andke muutujale A pikkus, kui pikk on tähemärgipiirang. Siin on see seatud 50-le.

Kood:

 Valik Selgesõnaline funktsioon CompName () CompName = Environ ("ComputerName") End Function Funktsioon Temp () TempDir = Environ ("Temp") End Function Sub Sub Enviro () Dim A Nii pikk, kui A = 1 kuni 50 End Sub

9. samm: kasutage nüüd muutuja A jaoks funktsiooni Debug Print ja koos keskkonnafunktsiooniga, nagu allpool näidatud.

Kood:

 Valik Selgesõnaline funktsioon CompName () CompName = Environ ("ComputerName") End Function Funktsioon Temp () TempDir = Environ ("Temp") End Function Sub Sub Enviro () Dim A Nii kaua, kui A = 1 kuni 50 Debug.Print Environ (A ) Järgmine lõpp - alam

10. samm: kompileerige koodi iga samm ja avage vahekaardil Vaade vahetu aken.

11. samm. Käivitage nüüd kood, klõpsates menüüriba all asuvat nuppu Esita.

12. samm: koheses aknas näeme operatsioonisüsteemi täielikke üksikasju, mis on seotud meie väljakuulutatud funktsioonidega.

Excel VBA keskkonnafunktsioonide plussid

  • See tundub keeruline, kuid seda on lihtne rakendada.
  • See annab täieliku teabe arvuti ja opsüsteemi kohta.
  • Saame loetleda kõik konkreetsed üksikasjad ja vastavalt meie nõuetele.
  • Samuti näeme, kes on volitatud kasutajad süsteemi kasutama ja redigeerima.

Asjad, mida meeles pidada

  • VBA keskkond ei piirdu ülaltoodud näidetes näidatud protsessiga. VBA Environi abil saame veel palju üksikasju opsüsteemi kohta, näiteks mis tahes tee, asukoht, kaust või fail, isegi suvaline failisuurus.
  • Kui mõni väärtus, mille sisestame, ei ole keskkonna stringi tabel, saame lõpuks nullpikkuse stringi.
  • Kui oleme kodeerimise lõpetanud, salvestage fail makrovormingus Exceli vormingusse, et mitte kaotada koodi.

Soovitatavad artiklid

See on VBA keskkonna keskkond. Siin arutatakse, kuidas kasutada keskkonnakomplekti Excel VBA-s koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA IF-avaldused | Exceli mallid
  2. Kuidas kasutada Exceli VBA sortimisfunktsiooni?
  3. VBA Kuigi silmus (näited Exceli malliga)
  4. VBA loendur (näited)

Kategooria:

VBA