En este artículo, crearemos una función definida por el usuario para averiguar el número que falta en un rango a través de VBA en Microsoft Excel.
Función definida por el usuario: Microsoft Excel le permite crear su propia función según el requisito, lo llamamos Función definida por el usuario. Y podemos usar funciones definidas por el usuario como funcionan otras funciones en Excel.
Tomemos un ejemplo para entender: -
Tenemos datos en los que tenemos valores para cada ID de código, y queremos verificar el valor faltante entre 1 y 99, si en el rango faltan valores, entonces qué valores faltan todos y si todos los valores están disponibles, entonces el resultado debe ser todos los valores están disponibles.
Escribiremos el código VBA para averiguar los números que faltan, siga los pasos que se indican a continuación:
- Abra la página de VBA presione la tecla Alt + F11
- Insertar un módulo
- Luego, vaya nuevamente al menú de inserción y haga clic en procedimiento, donde obtendrá el procedimiento si no sabe cómo debe iniciarse la macro.
- Escriba el código mencionado a continuación:
Función Missing_Number (Myrange como rango) Dim Número (1 a 99) Como entero en caso de error Continuar siguiente para cada celda en Myrange Número (Cell.Value) = 1 Siguiente en caso de error Ir a 0 Missing_Number = "Falta:" Para I = 1 a 99 If Not Number (I) = 1 Then Missing_Number = Missing_Number & I & "," End If Next I If Len (Missing_Number) = 9 Then Missing_Number = Left (Missing_Number, Len (Missing_Number) - 2) End If End Function
- Presione la tecla F5 en el teclado
- Utilice esta función de macro como fórmula
- = Missing_Number (D3: KO3) presione enter en el teclado
De esta manera, podemos devolver los valores faltantes de los datos para cada fila usando VBA en Microsoft Excel
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico