Función de entorno Excel VBA
VBA Environ, donde Environment significa Environment, se utiliza para obtener cualquier información que exista en el sistema operativo. La función de entorno Excel VBA devuelve el valor como ruta, ubicación, nombre, extensión disponible en el sistema. Además de este entorno (sistema operativo) también contiene la información sobre el nombre de usuario, la autorización, el nombre de la carpeta, etc.
VBA Environ considera solo la expresión como una entrada. Donde esa expresión puede ser cualquier cosa. A continuación se muestra la sintaxis de Environ.
¿Cómo utilizar la función de entorno en Excel VBA?
A continuación se muestran los diferentes ejemplos para usar la función Entorno en Excel VBA.
Puede descargar esta plantilla Excel de VBA Environ aquí - Plantilla Excel de VBA EnvironVBA Environ - Ejemplo # 1
Hay diferentes formas de obtener información del sistema operativo a través de VBA Environ. Uno de ellos lo veremos en este ejemplo. A continuación se muestra la lista de posibles usuarios autorizados de mi sistema que pueden ser VERDADERO o FALSO. Hemos mencionado estos nombres en Sheet2.
Siga los pasos a continuación para usar la función de entorno en VBA:
Paso 1: Ahora con la ayuda de VBA Environ, encontraremos cuál de estos es el nombre de usuario autorizado correcto del sistema operativo actual. Sheet1 es el lugar donde encontraremos el nombre de usuario correcto del sistema en la celda C3.
Paso 2: debajo del encabezado " ¿Autorizado? "Veremos si el nombre de usuario está autorizado o no con la función If y CountIf como se muestra a continuación. Si el nombre de usuario es válido y autorizado, obtendremos SÍ, si es válido pero no autorizado, obtendremos No. Para el nombre de usuario no autorizado e inválido, todavía obtendremos No.
Paso 3: ahora en la hoja de cálculo de Excel, cree un botón de comando que esté disponible en la pestaña Desarrollador en el Control Active X del menú Insertar como se muestra a continuación.
Paso 4: ahora cree un botón de comando en cualquier lugar de la hoja. También podemos elegir cualquier forma sobre el botón de comando.
Paso 5: haz clic derecho en el botón creado y ve a la opción Propiedades .
Paso 6: Debajo de eso, podemos cambiar el nombre predeterminado a cualquier cosa. Aquí hemos elegido Ejecutar entorno como se muestra a continuación.
Paso 7: Ahora haga clic derecho en el mismo botón y seleccione Ver código para ir a la ventana de VBA.
Paso 7: En eso, obtendremos el subprocedimiento precompilado del botón de comando.
Código:
Private Sub CommandButton2_Click () End Sub
Paso 8: Seleccione la hoja donde queremos aplicar la función Entorno.
Código:
Subcomando privadoButton2_Click () Hojas ("Hoja1") Fin Sub
Paso 9: Luego seleccione las celdas de rango donde queremos ver la salida.
Código:
Private Sub CommandButton2_Click () Hojas ("Sheet1"). Range ("C3") = End Sub
Paso 10: Ahora use la función Entorno con el campo que queremos obtener. Aquí queremos ver USERNAME.
Código:
Subcomando privadoButton2_Click () Hojas ("Hoja1"). Rango ("C3") = Entorno ("NOMBRE DE USUARIO") Fin Sub
Paso 11: Ahora abra un bucle IF-ELSE donde escriba la condición si la celda de rango E3 es SÍ y luego envíeme el mensaje como Usuario autorizado.
Código:
Private Sub CommandButton2_Click () Hojas ("Hoja1"). Rango ("C3") = Entorno ("NOMBRE DE USUARIO") Si Hojas ("Hoja1"). Rango ("E3") = "Sí" ¡Entonces MsgBox "Usuario autorizado!" End Sub
Paso 12: en Else, dame el mensaje como Usuario no autorizado como se muestra a continuación.
Código:
Private Sub CommandButton2_Click () Hojas ("Hoja1"). Rango ("C3") = Entorno ("NOMBRE DE USUARIO") Si Hojas ("Hoja1"). Rango ("E3") = "Sí" ¡Entonces MsgBox "Usuario autorizado!" Else MsgBox "Usuario no autorizado" End End End Sub
Paso 13: Ahora compilaremos nuestro código paso a paso presionando la tecla de función F8 para ver si hay algún error o no. Si todo está bien, salga de la ventana de VBA y deseleccione el modo Diseño de la pestaña Desarrollador como se muestra a continuación.
Paso 14: Ahora ejecutaremos nuestra macro haciendo clic en el botón de comando llamado "Ejecutar entorno". Veremos, en C3, el nombre de usuario autorizado se imprime como Game2 y luego el mismo se confirma dos veces. Una vez por el cuadro de mensaje y otro en la celda E3.
Esto significa que el nombre de usuario que se menciona en Sheet2 como Game2 es válido y está autorizado para ambos.
VBA Environ - Ejemplo # 2
Hay otra manera por la cual podemos obtener la información completa sobre el sistema operativo que tenemos. Esto funciona de la misma manera que hemos visto en el ejemplo-1. Para esto, siga los pasos a continuación:
Paso 1: abra un módulo desde la pestaña del menú Insertar.
Paso 2: Ahora, en Opción explícita, definiremos las funciones que queremos ver.
Código:
Opción Función explícita CompName () Función final
Paso 3: suponga que si desea ver el nombre de la computadora, use cualquier palabra que defina la computadora. Aquí hemos elegido CompName y usamos la función Entorno con " Nombre del equipo ".
Código:
Opción Función explícita CompName () CompName = Environ ("ComputerName") Función final
Paso 4: Abramos otra función por la cual veremos la ruta del archivo temporal como se muestra a continuación.
Código:
Opción Función explícita CompName () CompName = Environ ("ComputerName") Función final Función Temp () Función final
Paso 5: Ahora use nuevamente cualquier palabra que defina la ruta del archivo Temp, como TempDir e inserte la función Environ con TEMP .
Código:
Opción Función explícita CompName () CompName = Environ ("ComputerName") Función final Función Temp () TempDir = Environ ("Temp") Función final
Paso 6: Después de eso, abra el subprocedimiento en el que utilizaremos ambas funciones que definimos anteriormente para ver sus detalles.
Código:
Opción Función explícita CompName () CompName = Environ ("ComputerName") Función final Función Temp () TempDir = Environ ("Temp") Función final Sub Enviro () End Sub
Paso 7: Defina una variable como Long en la que veremos los detalles.
Código:
Opción Función explícita CompName () CompName = Environ ("ComputerName") Función final Función Temp () TempDir = Environ ("Temp") Función final Sub Enviro () Dim A como Long End Sub
Paso 8: Abra un bucle For-Next y asigne la longitud a la variable A por cuánto tiempo será el límite de caracteres. Aquí lo hemos configurado como 50.
Código:
Opción Función explícita CompName () CompName = Environ ("ComputerName") Función de finalización Función Temp () TempDir = Environ ("Temp") Función de finalización Sub Enviro () Dim A As Long For A = 1 to 50 End Sub
Paso 9: Ahora use Debug Print para la variable A y con la función Environ como se muestra a continuación.
Código:
Opción Función explícita CompName () CompName = Environ ("ComputerName") Función de finalización Función Temp () TempDir = Environ ("Temp") Función de finalización Sub Enviro () Dim A As Long For A = 1 a 50 Debug.Print Environ (A ) Siguiente Fin Sub
Paso 10: compile cada paso del código y abra una ventana inmediata desde la pestaña del menú Ver.
Paso 11: Ahora ejecuta el código haciendo clic en el botón Reproducir ubicado debajo de la barra de menú.
Paso 12: Veremos, en la ventana inmediata, detalles completos del sistema operativo relacionados con las funciones que hemos declarado que se obtienen.
Ventajas de la función de entorno Excel VBA
- Parece complejo, pero es fácil de implementar.
- Proporciona los detalles completos de la computadora y el sistema operativo.
- Podemos enumerar cualquier detalle específico, así como nuestros requisitos.
- También podemos ver quiénes son los usuarios autorizados para usar y editar el sistema.
Cosas para recordar
- El entorno VBA no se limita al proceso que se muestra en los ejemplos anteriores. Podemos obtener muchos más detalles del sistema operativo, como cualquier ruta, ubicación, carpeta o archivo, incluso cualquier tamaño de archivo, también con la ayuda de VBA Environ.
- Si algún valor que ingresamos no es una tabla de cadena de entorno, entonces terminaremos obteniendo una cadena de longitud cero.
- Una vez que hayamos terminado con la codificación, guarde el archivo en formato macro de habilitación de Excel para evitar perder el código.
Artículos recomendados
Esta es una guía de VBA Environ. Aquí discutimos cómo usar la función de entorno en Excel VBA junto con ejemplos prácticos y una plantilla de Excel descargable. También puede consultar nuestros otros artículos sugeridos:
- Declaraciones VBA IF | Plantillas Excel
- ¿Cómo utilizar la función de clasificación de Excel VBA?
- VBA While Loop (Ejemplos con plantilla de Excel)
- Contador de VBA (ejemplos)