Qué se pueda visualizar fácilmente los Subtotales?

05/02/2004 - 17:30 por anonymous | Informe spam
Utilizo la función Range.Subtotal desde código VBA para
calcular SUBTOTALES
Ej: rango.Subtotal subtotales(i), xlSum, arraySumas, True,
False, xlSummaryBelow

El problema es que quiero que me coloree las filas en la
que pone los subtotales o aunque sea que todos los valores
de las filas de subtotales me los ponga en negrita. (cosa
de rápidamente visuallizar cuales son los subtotales)
Cómo puedo hacer esto????
 

Leer las respuestas

#1 Fernando Arroyo
05/02/2004 - 17:49 | Informe spam
Prueba con las siguientes instrucciones, aunque quizás tengas que modificarlas si el número de "niveles" no es 3

With ActiveSheet
.Outline.ShowLevels rowlevels:=2 'Establecer como nivel de visualización el 2 (los subtotales)
.UsedRange.SpecialCells(xlCellTypeVisible).Font.Bold = True 'Aplicar negrita a las celdas visibles del rango usado en la hoja
.Outline.ShowLevels rowlevels:=3 'Restablecer como nivel de visualización el 3 (el detalle)
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel


"anonymous" escribió en el mensaje news:a23501c3ec05$4fe141e0$
Utilizo la función Range.Subtotal desde código VBA para
calcular SUBTOTALES
Ej: rango.Subtotal subtotales(i), xlSum, arraySumas, True,
False, xlSummaryBelow

El problema es que quiero que me coloree las filas en la
que pone los subtotales o aunque sea que todos los valores
de las filas de subtotales me los ponga en negrita. (cosa
de rápidamente visuallizar cuales son los subtotales)
Cómo puedo hacer esto????

Preguntas similares