una - como imprimir en excel varias hojas

Fórmula de Excel que imprime el color de la celda(ColorIndex o RGB)

Question

¿Existe, en Excel, una Fórmula que recupera el ColorIndex (o RGB) de una celda?

Encontré la siguiente función:

CELL(info_type, the_cell)

documentado aquí , pero no tiene ninguna información de referencia para el color de la celda.

Es una información de color , pero es inútil para mí. De hecho, se describe de la siguiente manera:

"color" El valor 1 si la celda está formateada en color para valores negativos; de lo contrario, devuelve 0 (cero).

¿Alguna idea?

Además, resultó que la propiedad de VBA que hace esto es Cell.Interior.Color pero en realidad no estoy usando Macros, sino simples fórmulas de Excel. ¿Hay alguna forma de emular las funciones de VBA con una fórmula?

Answer 1

Aquí hay algunas funciones pequeñas para ti. Desde su hoja, presione Alt - F11 para llegar al editor de VBA, inserte un nuevo módulo, pegue el siguiente código, regrese a su hoja de trabajo y utilícelos por sus nombres, como in =FillColor(A1)

Los primeros dos son los prometidos "3-liners" que dan valores decimales para los colores de fuente y de fondo, aunque no son muy útiles.

El segundo par convierte el número decimal a RGB y devuelve una cadena de formato N, N, N

El tercer par son fórmulas de matriz : seleccione 3 celdas en una fila, ingrese la fórmula y presione Ctrl + Mayús + Entrar para obtener valores RGB numéricos en 3 celdas vecinas

Function FillColor(Target As Range) As Variant
FillColor = Target.Interior.Color
End Function
Function FontColor(Target As Range) As Variant
FontColor = Target.Font.Color
End Function
Function FillColorRGB(Target As Range) As Variant
Dim N As Double
N = Target.Interior.Color
FillColorRGB = Str(N Mod 256) & ", " & Str(Int(N / 256) Mod 256) & ", " & Str(Int(N / 256 / 256) Mod 256)
End Function
Function FontColorRGB(Target As Range) As Variant
Dim N As Double
N = Target.Font.Color
FontColorRGB = Str(N Mod 256) & ", " & Str(Int(N / 256) Mod 256) & ", " & Str(Int(N / 256 / 256) Mod 256)
End Function
Function FillColorRGBArray(Target As Range) As Variant
Dim N As Double, A(3) As Integer
N = Target.Interior.Color
A(0) = N Mod 256
A(1) = Int(N / 256) Mod 256
A(2) = Int(N / 256 / 256) Mod 256
FillColorRGBArray = A
End Function
Function FontColorRGBArray(Target As Range) As Variant
Dim N As Double, A(3) As Integer
N = Target.Font.Color
A(0) = N Mod 256
A(1) = Int(N / 256) Mod 256
A(2) = Int(N / 256 / 256) Mod 256
FontColorRGBArray = A
End Function

Una advertencia : cambiar el color de una celda no comienza el recálculo por las funciones / fórmulas anteriores, ya que no se supone que la recolocación de una celda genere recálculo. Tienes que iniciar manualmente un recálculo completo usando Ctrl + Alt + Shift + F9

Answer 2

La siguiente función mostrará el valor RGB de una celda seleccionada.

Function CellColorValue(CellLocation As Range)
Dim sColor As String
Application.Volatile
''Retrieve hex value into string sColor
sColor = Right("000000" & Hex(CellLocation.Interior.Color), 6)
''Return the string Version e.g. 255,255,255 RGB color value found in
''Excel cell. Use in built worksheet function to convert Hex to Decimal
''Use string function to separate Hex string into three parts
CellColorValue = Application.WorksheetFunction.Hex2Dec(Right(sColor, 2)) & "," & application.WorksheetFunction.Hex2Dec(Mid(sColor, 3, 2)) & "," & Application.WorksheetFunction.Hex2Dec(Left(sColor, 2))
End Function

Answer 3

por favor intente con abajo

Cambios realizados: vea el comentario en el código

Módulo

Public Function Performance_Message(NonPreferredAvg As Single _
, NonPreferredAvgname As String _
, PreferredAvg As Single _
, PreferredAvgname As String _
, Optional Outputtype As String _
) As Variant
Dim performancemessage As String
Dim averagedifference As Single
Dim stravgdif As String
Dim cellcolor As String
averagedifference = Abs(NonPreferredAvg - PreferredAvg)
stravgdif = FormatPercent(averagedifference, 2)
Select Case PreferredAvg
Case Is < NonPreferredAvg
performancemessage = PreferredAvgname & " Is " & stravgdif & " Less Than " & NonPreferredAvgname
cellcolor = 4 ''"green" ''Changes made
Case Is = NonPreferredAvg
performancemessage = PreferredAvgname & " Equals " & NonPreferredAvgname
cellcolor = 6 ''"yellow" ''''Changes made
Case Is > NonPreferredAvg
performancemessage = PreferredAvgname & " Is " & stravgdif & " Greater Than " & NonPreferredAvgname
cellcolor = 5 ''"blue" ''Changes made
Case Else
performancemessage = "Something Bad Happened"
End Select
If Outputtype = "color" Then
Performance_Message = cellcolor
Else
Performance_Message = performancemessage
End If
End Function

Hoja de cálculo

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myColor As Double
myColor = Target.Value ''''Changes made
Call SetPerformancecolor(Target, myColor)
End Sub
Private Sub SetPerformancecolor(Target As Range, myColor As Double)
Target.Interior.ColorIndex = myColor ''''Changes made
End Sub