Filas y columnas ocultas
Hola fejoal soy yo de nuevo...
Mi pregunta es la siguiente:
¿Cómo puedo contar las filas y columnas ocultas de una tabla de excel desde visual basic?...
Se supone que hago una selección con MyArea y de toda la selección quiero saber el numero de filas y columnas ocultas...
Un saludo de SpeedCAD... :-)
Mi pregunta es la siguiente:
¿Cómo puedo contar las filas y columnas ocultas de una tabla de excel desde visual basic?...
Se supone que hago una selección con MyArea y de toda la selección quiero saber el numero de filas y columnas ocultas...
Un saludo de SpeedCAD... :-)
1 Respuesta
Respuesta de fejoal
1
LAs siguientes son dos funciones definidas por usuario (UDF) que cuentan las filas y las celdas oculatas en un rango:
Function CuentaFilaO(MyRange As Range)
Dim rCell As Range
Dim vSum
For Each rCell In MyRange
If rCell.EntireRow.Hidden Then vSum = vSum + 1
Next rCell
Calculate
CuentaFilaO = vSum
End Function
Function CuentaColO(MyRange As Range)
Dim rCell As Range
Dim vSum
For Each rCell In MyRange
If rCell.EntireColumn.Hidden Then vSum = vSum + 1
Next rCell
Calculate
CuentaColO = vSum
End Function
---
Es decir que podrás ingresarlas como fórmulas en la hoja. Si la necesitabas como una rutina dentro de una macro toma el loop For...next y captura el valor d ela variable vSum.
Espero que te ayude.
Un abrazo!
Fernando
Function CuentaFilaO(MyRange As Range)
Dim rCell As Range
Dim vSum
For Each rCell In MyRange
If rCell.EntireRow.Hidden Then vSum = vSum + 1
Next rCell
Calculate
CuentaFilaO = vSum
End Function
Function CuentaColO(MyRange As Range)
Dim rCell As Range
Dim vSum
For Each rCell In MyRange
If rCell.EntireColumn.Hidden Then vSum = vSum + 1
Next rCell
Calculate
CuentaColO = vSum
End Function
---
Es decir que podrás ingresarlas como fórmulas en la hoja. Si la necesitabas como una rutina dentro de una macro toma el loop For...next y captura el valor d ela variable vSum.
Espero que te ayude.
Un abrazo!
Fernando
