Cómo examinar celdas con una macro
¿Le gustaría evaluar celdas y determinar cuántas celdas están llenas en un rango y cuántas no? La siguiente figura muestra un ejemplo:
El marcador A1: B7 contiene algunas celdas vacías y algunas celdas llenas. Si desea evaluar esto en una macro, puede utilizar el siguiente código de programa:
Sub CountsFilledCells ()
Dim Número tan largo
Dim Number2 tan largo
Área de atenuación como rango
Dim a As String
Establecer área = Selección
Número = Application.CountA (área)
Count2 = area.Cells.Count - número
a = MsgBox ("En la selección actual están" _
& Número & "celdas llenas y" & número2 _
& "Celdas vacías", VbOKOnly, "evaluar celdas")
End Sub
La macro establece la función CountA para contar el número de celdas que no están en blanco en un rango. El resultado guarda la variable número. Para determinar el número de celdas llenas, este valor se resta del número de celdas totales examinadas. La macro guarda este valor en Número 2.
Después del inicio, el código del programa determina el número de celdas llenas y vacías en la marca activa y muestra el resultado en una ventana:
Si desea procesar un rango de su elección en lugar de la selección actual, adapte la asignación de valor a la variable zona a. Se usa en la macro con la propiedad Selección conectado. Si desea definir un rango usted mismo, reemplace el colocar-Asignación a la variable zona por una expresión de la siguiente forma:
Establecer rango = Rango ("A1: B5")
La especificación de rango siempre se refiere a la hoja de trabajo activa. Si desea abordar otra hoja de trabajo, colóquela delante del DistanciaComando las referencias a los métodos Libros de trabajo y Hojas reparado.
