Excel VBA -ympäristötoiminto

VBA Environ, jossa Environ tarkoittaa ympäristöä, käytetään kaiken tiedon saamiseen, joka on käyttöjärjestelmässä. Excel VBA Environ -toiminto palauttaa arvot, kuten polun, sijainnin, nimen, järjestelmässä käytettävissä olevan laajennuksen. Tämän ympäristön lisäksi (käyttöjärjestelmä) on myös tietoja käyttäjänimestä, valtuutuksesta, kansion nimestä jne.

VBA Environ pitää vain lauseketta syötteenä. Missä tuo ilmaus voi olla mikä tahansa. Alla on ympäristön syntaksi.

Kuinka käyttää ympäristötoimintoa Excel VBA: ssa?

Alla on erilaisia ​​esimerkkejä Excel VBA -ympäristötoiminnon käyttämisestä.

Voit ladata tämän VBA Environ Excel -mallin täältä - VBA Environ Excel Template

VBA-ympäristö - esimerkki # 1

On olemassa erilaisia ​​tapoja saada käyttöjärjestelmätietoja VBA Environ -sovelluksen kautta. Yksi niistä näemme tässä esimerkissä. Alla on luettelo järjestelmäni mahdollisista valtuutetuista käyttäjistä, jotka voivat olla Tosi tai Väärä. Olemme maininneet nämä nimet Sheet2: ssä.

Noudata alla olevia vaiheita käyttääksesi ympäristötoimintoa VBA: ssa:

Vaihe 1: Nyt VBA Environ -palvelun avulla löydämme, mikä näistä on nykyisen käyttöjärjestelmän oikea valtuutettu käyttäjänimi. Sheet1 on paikka, josta löydämme järjestelmän oikean käyttäjänimen solusta C3.

Vaihe 2: Otsikko ” Valtuutettu? ”Katsotaan, onko käyttäjänimi valtuutettu vai ei If- ja CountIf-toimintojen kanssa alla esitetyllä tavalla. Jos käyttäjätunnus on kelvollinen ja valtuutettu, niin saamme KYLLÄ, jos kelvollinen, mutta ei valtuutettu, saamme Ei. Sekä luvattomalle että virheelliselle käyttäjänimelle saamme edelleen Ei.

Vaihe 3: Luo nyt excel-taulukossa komentopainike, joka on käytettävissä Kehittäjä- välilehdessä Lisää-valikon Active X -ohjaimessa, kuten alla.

Vaihe 4: Luo nyt komentopainike mihin tahansa arkin kohtaan. Voimme valita minkä tahansa muodon myös komentorivin yli.

Vaihe 5: Napsauta hiiren kakkospainikkeella luodtua painiketta ja siirry Ominaisuudet-asetukseen .

Vaihe 6: Tämän perusteella voimme muuttaa oletusnimen mille tahansa. Tässä olemme valinneet Run Environ alla olevan kuvan mukaisesti.

Vaihe 7: Napsauta hiiren kakkospainikkeella samaa painiketta ja valitse Näytä koodi siirtyäksesi VBA-ikkunaan.

Vaihe 7: Siinä saadaan komentopainikkeen esivalmistettu alaproseduuri.

Koodi:

 Yksityinen alikomento Button2_Click () End Sub

Vaihe 8: Valitse arkki, johon haluamme käyttää Environ-toimintoa.

Koodi:

 Yksityinen alikomento Button2_Click () Sheets ("Sheet1") End Sub

Vaihe 9: Valitse sitten alueen solut, joissa haluamme nähdä tulosteen.

Koodi:

 Yksityinen alikomento Button2_Click () Sheets ("Sheet1"). Range ("C3") = End Sub

Vaihe 10: Käytä nyt Environ-toimintoa kentän kanssa, jonka haluamme saada. Täällä haluamme nähdä käyttäjän käyttäjän.

Koodi:

 Yksityinen alikomento Button2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub

Vaihe 11: Avaa nyt IF-ELSE-silmukka, jossa kirjoita ehto, jos etäisyyssolu E3 on KYLLÄ, niin anna minulle viesti valtuutettuna käyttäjänä.

Koodi:

 Yksityinen alikomento Button2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") Jos Sheets ("Sheet1"). Range ("E3") = "Yes" Sitten MsgBox "Valtuutettu käyttäjä!" End Sub

Vaihe 12: Anna muualla minulle viesti luvattomana käyttäjänä alla kuvatulla tavalla.

Koodi:

 Yksityinen alikomento Button2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") Jos Sheets ("Sheet1"). Range ("E3") = "Yes" Sitten MsgBox "Valtuutettu käyttäjä!" Else MsgBox "Luvaton käyttäjä" End If End Sub

Vaihe 13: Nyt kootamme koodimme askel askeleelta painamalla toimintonäppäintä F8 nähdäksesi onko virhe. Jos kaikki on hyvä, poistu sitten VBA-ikkunasta ja poista Suunnittelutila -vaihtoehto Kehittäjä-välilehdeltä alla olevan kuvan mukaisesti.

Vaihe 14: Nyt ajamme makroomme napsauttamalla komentopainiketta nimeltä “Suorita ympäristö”. Nähdään, että C3: ssa valtuutettu käyttäjänimi tulostetaan nimellä Game2 ja sitten sama vahvistetaan kahdesti. Kerran viestiruudun vieressä ja muut solussa E3.

Tämä tarkoittaa, että käyttäjänimi, joka mainitaan Sheet2: ssä nimellä Game2, on kelvollinen ja valtuutettu molemmille.

VBA-ympäristö - esimerkki 2

On myös toinen tapa, jolla voimme saada täydelliset tiedot olemassa olevasta käyttöjärjestelmästä. Tämä toimii samalla tavalla kuin olemme nähneet esimerkissä-1. Tätä varten noudata seuraavia vaiheita:

Vaihe 1: Avaa moduuli Lisää-valikko-välilehdeltä.

Vaihe 2: Määritämme nyt Option Explicit -kohdassa toiminnot, joita haluamme nähdä.

Koodi:

 Vaihtoehto Explicit Function CompName () End Function

Vaihe 3: Oletetaan, että jos haluat nähdä tietokoneen nimen, käytä mitä tahansa sanaa, joka määrittelee tietokoneen. Täällä olemme valinneet CompName -sovelluksen ja käytämme Environ- toimintoa “ Computer Name ” -kohdassa.

Koodi:

 Vaihtoehto eksplisiittinen toiminto CompName () CompName = Environ ("ComputerName") Lopeta toiminto

Vaihe 4: Avaa toinen toiminto, jolla näemme väliaikaisen tiedostopolun alla esitetyllä tavalla.

Koodi:

 Vaihtoehto eksplisiittinen toiminto CompName () CompName = Environ ("ComputerName") End Function Function Function Temp () End Function

Vaihe 5: Käytä nyt taas mitä tahansa sanaa, joka määrittelee Temp-tiedostopolun, kuten TempDir, ja lisää Environ- toiminto TEMP: llä .

Koodi:

 Vaihtoehto eksplisiittinen toiminto CompName () CompName = Environ ("ComputerName") Lopeta toiminto Toiminto Temp () TempDir = Environ ("Temp") End Function

Vaihe 6: Avaa sen jälkeen osaprosessori, jossa käytämme molempia edellä määriteltyjä toimintoja nähdäksesi niiden yksityiskohdat.

Koodi:

 Vaihtoehto eksplisiittinen toiminto CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () End Sub

Vaihe 7: Määritä muuttuja nimellä Pitkä, jonka sisällä näemme yksityiskohdat.

Koodi:

 Vaihtoehto eksplisiittinen toiminto CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Sub Enviro () Dim A As Long End Sub

Vaihe 8: Avaa Seuraava-silmukka ja anna pituus muuttujalle A, kuinka kauan merkkirajoitus on. Täällä olemme asettaneet sen 50: ksi.

Koodi:

 Vaihtoehto eksplisiittinen toiminto CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Sub Enviro () Dim A As Long for A = 1-50 End Sub

Vaihe 9: Käytä nyt Debug Print -muuttujaa muuttujan A ja ympäristötoiminnon kanssa alla olevan kuvan mukaisesti.

Koodi:

 Vaihtoehto eksplisiittinen toiminto CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Sub Enviro () himmenee A niin kauan kuin A = 1 - 50 Debug.Print -ympäristö (A ) Seuraava loppu Sub

Vaihe 10: Käännä jokainen koodin vaihe ja avaa välitön ikkuna Näytä-valikko-välilehdeltä.

Vaihe 11: Suorita nyt koodi napsauttamalla valikkopalkin alla olevaa Toista-painiketta.

Vaihe 12: Näemme välittömässä ikkunassa täydelliset käyttöjärjestelmän yksityiskohdat, jotka liittyvät toimintoihimme, jotka olemme hakeneet.

Plussat Excel VBA -ympäristötoiminnosta

  • Se näyttää monimutkaiselta, mutta on helppo toteuttaa.
  • Se antaa täydelliset tiedot tietokoneesta ja käyttöjärjestelmästä.
  • Voimme luetella kaikki yksityiskohdat ja vaatimuksemme mukaan.
  • Voimme myös nähdä, ketkä ovat valtuutettuja käyttäjiä järjestelmän muokkaamiseen.

Muistettavat asiat

  • VBA-ympäristö ei ole rajoitettu yllä olevissa esimerkeissä esitettyyn prosessiin. Voimme saada VBA Environ -sovelluksella paljon enemmän käyttöjärjestelmätietoja, kuten mikä tahansa polku, sijainti, kansio tai tiedosto, jopa mikä tahansa tiedostokoko.
  • Jos jokin syöttämämme arvo ei ole ympäristömerkkitaulukko, lopulta saamme nollapituisen merkkijonon.
  • Kun koodaus on valmis, tallenna tiedosto makrotiedostoon ottamalla käyttöön excel-muoto, jotta koodi ei häviä.

Suositellut artikkelit

Tämä on VBA Environ -oppaan opas. Tässä keskustellaan siitä, kuinka käyttää Environ Function -tapahtumaa Excel VBA: ssa, sekä käytännön esimerkkejä ja ladattavaa Excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA IF -lausunnot | Excel-mallit
  2. Kuinka käyttää Excel VBA -lajittelutoimintoa?
  3. VBA while Loop (esimerkkejä Excel-mallilla)
  4. VBA-laskuri (esimerkit)

Luokka:

VBA