Funzione Excel VBA Environ
VBA Environ in cui Environ sta per Environment viene utilizzato per ottenere qualsiasi informazione presente nel sistema operativo. La funzione Excel VBA Environ restituisce il valore come percorso, posizione, nome, estensione disponibile nel sistema. Oltre a questo ambiente (sistema operativo) contiene anche informazioni su nome utente, autorizzazione, nome della cartella, ecc.
VBA Environ considera solo l'espressione come input. Dove quell'espressione può essere qualsiasi cosa. Di seguito è riportata la sintassi di Environ.
Come utilizzare la funzione Environ in Excel VBA?
Di seguito sono riportati i diversi esempi per utilizzare la funzione Environ in Excel VBA.
Puoi scaricare questo modello di VBA Environ Excel qui - Modello di VBA Environ ExcelVBA Environ - Esempio n. 1
Esistono diversi modi per ottenere informazioni sul sistema operativo tramite VBA Environ. Uno di questi vedremo in questo esempio. Di seguito è riportato l'elenco dei possibili utenti autorizzati del mio sistema che può essere VERO o FALSO. Abbiamo citato questi nomi in Sheet2.
Seguire i passaggi seguenti per utilizzare la funzione Environ in VBA:
Passaggio 1: Ora con l'aiuto di VBA Environ, troveremo quale di questi è il nome utente autorizzato corretto del sistema operativo corrente. Foglio1 è il luogo in cui troveremo il nome utente corretto del sistema nella cella C3.
Passaggio 2: sotto l'intestazione " Autorizzato? "Vedremo se il nome utente è autorizzato o meno con la funzione If e CountIf come mostrato di seguito. Se il nome utente è valido e autorizzato allora avremo SÌ, se valido ma non autorizzato otterremo No. Sia per il nome utente non autorizzato che non valido, otterremo comunque No.
Passo 3: Ora nel foglio di lavoro Excel, crea un pulsante di comando che è disponibile nella scheda Sviluppatore sotto il controllo X attivo del menu Inserisci come mostrato di seguito.
Passaggio 4: ora crea un pulsante di comando in qualsiasi punto del foglio. Possiamo anche scegliere qualsiasi forma sul pulsante di comando.
Passaggio 5: fare clic con il pulsante destro del mouse sul pulsante creato e selezionare l'opzione Proprietà .
Passaggio 6: Sotto questo, possiamo cambiare il nome predefinito in qualsiasi cosa. Qui abbiamo scelto Run Environ come mostrato di seguito.
Passaggio 7: Ora fai clic con il pulsante destro del mouse sullo stesso pulsante e seleziona Visualizza codice per accedere alla finestra VBA.
Step 7: In questo, avremo la sub procedura predefinita del pulsante di comando.
Codice:
Private Sub CommandButton2_Click () End Sub
Passaggio 8: selezionare il foglio in cui si desidera applicare la funzione Environ.
Codice:
Sottotitoli privati CommandButton2_Click () Sheets ("Sheet1") End Sub
Passaggio 9: Quindi selezionare le celle dell'intervallo in cui si desidera visualizzare l'output.
Codice:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = End Sub
Passo 10: ora usa la funzione Environ con il campo che vogliamo ottenere. Qui vogliamo vedere USERNAME.
Codice:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub
Passaggio 11: Ora apri un ciclo IF-ELSE in cui scrivi la condizione se l'intervallo di cella E3 è SÌ, quindi inviami il messaggio come Utente autorizzato.
Codice:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") Se Sheets ("Sheet1"). Range ("E3") = "Sì" Quindi MsgBox "Utente autorizzato!" End Sub
Passaggio 12: In altro modo dammi il messaggio come Utente non autorizzato come mostrato di seguito.
Codice:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") Se Sheets ("Sheet1"). Range ("E3") = "Sì" Quindi MsgBox "Utente autorizzato!" Altrimenti MsgBox "Utente non autorizzato" End If End Sub
Passo 13: Ora compileremo il nostro codice passo dopo passo premendo il tasto funzione F8 per vedere se c'è qualche errore o meno. Se tutto va bene, esci dalla finestra VBA e deseleziona la modalità Progettazione dalla scheda Sviluppatore come mostrato di seguito.
Passaggio 14: Ora eseguiremo la nostra macro facendo clic sul pulsante di comando denominato "Esegui ambienti". Vedremo, in C3, il nome utente autorizzato viene stampato come Game2 e lo stesso viene confermato due volte. Una volta dalla finestra di messaggio e altro nella cella E3.
Ciò significa che il nome utente menzionato in Sheet2 come Game2 è valido e autorizzato entrambi.
VBA Environ - Esempio n. 2
C'è un altro modo in cui possiamo ottenere le informazioni complete sul sistema operativo che abbiamo. Funziona come abbiamo visto nell'esempio 1. Per questo, seguire i passaggi seguenti:
Passaggio 1: aprire un modulo dalla scheda del menu Inserisci.
Passaggio 2: ora in Opzione esplicita, definiremo le funzioni che vogliamo vedere.
Codice:
Opzione Funzione esplicita NomeComp () Fine funzione
Passaggio 3: supponiamo che, se si desidera visualizzare il nome del computer, utilizzare qualsiasi parola che definisce il computer. Qui abbiamo scelto CompName e utilizziamo la funzione Environ con " Nome computer ".
Codice:
Opzione Funzione esplicita CompName () CompName = Environ ("ComputerName") Funzione finale
Passaggio 4: apriamo un'altra funzione con la quale vedremo il percorso del file temporaneo come mostrato di seguito.
Codice:
Opzione Funzione esplicita CompName () CompName = Environ ("ComputerName") Funzione finale Funzione Temp () Funzione finale
Passo 5: Ora usa di nuovo qualsiasi parola che definisce il percorso del file Temp, come TempDir e inserisci la funzione Environ con TEMP .
Codice:
Opzione Funzione esplicita CompName () CompName = Environ ("ComputerName") Funzione finale Funzione Temp () TempDir = Environ ("Temp") Funzione finale
Passaggio 6: Dopodiché aprire la sottoprocedura in cui utilizzeremo entrambe le funzioni che abbiamo definito sopra per vedere i loro dettagli.
Codice:
Opzione Funzione esplicita CompName () CompName = Environ ("ComputerName") End Function Funzione Temp () TempDir = Environ ("Temp") End Function Sub Enviro () End Sub
Step 7: Definisci una variabile come Long in cui vedremo i dettagli.
Codice:
Opzione Funzione esplicita CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A As Long End Sub
Step 8: Apri un ciclo For-Next e dai la lunghezza alla variabile A per quanto tempo sarà il limite di caratteri. Qui lo abbiamo impostato come 50.
Codice:
Opzione Funzione esplicita CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A A Long Da A = 1 a 50 End Sub
Passo 9: ora usa Debug Print per la variabile A e con la funzione Environ come mostrato di seguito.
Codice:
Opzione Funzione esplicita CompName () CompName = Environ ("ComputerName") End Function Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A fino a A = da 1 a 50 Debug.Print Environ (A ) Sottotitolo successivo
Passaggio 10: compilare ogni passaggio del codice e aprire una finestra immediata dalla scheda del menu Visualizza.
Passo 11: Ora esegui il codice facendo clic sul pulsante Riproduci situato sotto la barra dei menu.
Step 12: Vedremo, nella finestra immediata, i dettagli completi del sistema operativo relativi alle funzioni che abbiamo dichiarato essere recuperate.
Pro della funzione Excel VBA Environ
- Sembra complesso, ma è facile da implementare.
- Fornisce i dettagli completi del computer e del sistema operativo.
- Siamo in grado di elencare qualsiasi dettaglio specifico, nonché secondo i nostri requisiti.
- Possiamo anche vedere chi è l'utente autorizzato a utilizzare e modificare il sistema.
Cose da ricordare
- VBA Environ non è limitato al processo mostrato negli esempi precedenti. Siamo in grado di ottenere molti più dettagli del sistema operativo come qualsiasi percorso, posizione, cartella o file, anche di qualsiasi dimensione del file, anche con l'aiuto di VBA Environ.
- Se qualsiasi valore che inseriamo non è una tabella di stringhe di ambiente, finiremo per ottenere una stringa di lunghezza zero.
- Una volta terminata la codifica, salvare il file in macro abilitare il formato Excel per evitare di perdere il codice.
Articoli consigliati
Questa è una guida a VBA Environ. Qui discutiamo come usare la funzione Environ in VBA di Excel insieme ad esempi pratici e template Excel scaricabili. Puoi anche consultare i nostri altri articoli suggeriti:
- Dichiarazioni VBA IF | Modelli Excel
- Come utilizzare la funzione di ordinamento VBA di Excel?
- VBA While Loop (esempi con modello Excel)
- Contatore VBA (esempi)