VSTO: obtener propiedades de celda de Excel en "bulk"

Question

Al obtener valores de un rango en Excel, es mucho más eficiente obtener los valores en "bulk" (como una matriz 2D) que recorrer cada fila y columna. Por ejemplo:

Dim range = Globals.Table.Range("A1:E5") 
Dim values(,) As Object = range.Value 

Con 25 células que no hace mucha diferencia, pero con 10.000 filas por 20 columnas ciertamente lo es. Hasta aquí todo bien.

Mi pregunta es: ¿alguien ha encontrado una forma de hacer el mismo tipo de búsqueda "a granel" para otras propiedades? Por ejemplo, quiero encontrar qué celdas están coloreadas de cierta manera. Me encantaría hacer algo como "range.Interior.Color", pero eso devuelve solo un valor de, no una matriz de valores. Y así termino bucleando, que es probablemente 100 o incluso 1000 veces más lento. Para mesas grandes, esto es realmente un asesino.

PD: Parece que .Fórmula se comporta igual que .Valor: puedo buscar varias a la vez. Pero todavía tengo que engatusar a los colores para que se jueguen bien.

¡Agradezco su ayuda!

Answer 1

No creo que pueda obtener esas propiedades como una matriz debido a cómo Excel almacena esa información. Excel no almacena el formato de cada celda individualmente, sino que almacena una combinación particular de formatos junto con una "lista" interna de los rangos que usan ese formato.

Puede obtener una idea de cómo se almacena el formato creando un archivo de prueba pequeño con varios formatos y guardándolo como formato XML (en 2010 al menos, debe usar "XML Spreadsheet 2003").

Esto article también puede ayudar.

Answer 2

"Quiero encontrar que las células se colorean de cierta manera"

en VBA puede ejecutar una rutina rápida utilizando el método Find que busca por formato. Por ejemplo, para encontrar todas las celdas con el mismo color de fuente de celda y el mismo color de interior que la celda en A1. Supongo que se puede usar algo similar en VSTO

Sub FindFormat() 
    Dim rng1 As Range 
    Dim rng2 As Range 
    Dim strAddress As String 
    With Application.FindFormat 
     .Interior.ColorIndex = [a1].Interior.ColorIndex 
     .Font.Color = [a1].Font.Color 
    End With 
    Set rng1 = Cells.Find("", [a1], xlFormulas, , , , , , True) 
    If Not rng1 Is Nothing Then 
     strAddress = rng1.Address 
     Set rng2 = rng1 
     Do 
      Set rng1 = Cells.Find("", rng1, xlFormulas, , , , , , True) 
      Set rng2 = Union(rng1, rng2) 
     Loop While rng1.Address <> strAddress 
     MsgBox "Range similar format to A1 is " & rng2.Address 
    End If 
End Sub