I'm looking to store an RGB colour in a variable in an Excel VBA project, to set the background color of various cell/ranges throughout a sub. I want to set the colour once in a variable, so if I decide to change it throughout I only need to do it in one place.

The RGB value is a string, whereas in order to pass it as .Color, I need it to be a Long (Color = rgb(255, 0, 0)). I am aware solutions exist where using Debug window is recommended to retrieve ?rgb(255,0,0), however, I would like to automate the process.

2019年7月17日 · The good news is that you can assign any rgb value at all to those 56 slots (which are called ColorIndexs). When you set a cell's color using the Color property this causes Excel to use the nearest "ColorIndex". Example: Setting a cell to RGB 10,20,50 (or 3281930) will actually cause it to be set to color index 56 which is 51,51,51 (or 3355443).

2016年11月2日 · Terá de usar o VBA para isso, teste o código abaixo para a célula A1: Range("A1").Interior.Color = RGB(127,187,199) Se desejar fazer isso para todas as células, terá de usar a função Worksheet_Change de todas as planilhas algo do tipo:

2014年11月4日 · Sub ColorirMapa() Dim Microareas As Range Dim Celula As String For Each Microareas In Range (“Microareas”) Celula = Cells (Microareas.Row, 4) ActiveSheet.Shapes(Microareas).Fill.ForeColor.RGB = Range(Celula).Interior.Color Next …

Tengo un mapa en vectores, separado cada municipio el cual se colorea según datos de una tabla, esto se hace por medio de una macro. Funciona bien pero quiero cambiar los colores ya que son muy fuertes y quiero poder poner colores pastel o …

Como en la pregunta no se aprecia ningún código en VBA sugiero revisar este post: Excel VBA - Cambiar el Formato de Color Para una Parte del Texto ahí emplean lo siguiente ActiveCell.Characters(Empieza=25, Longitud=12).Font.Color=RGB(255,0,0) (el 25 y 12 corresponde a las dimensiones obtenidas en la celda E2) creo que eso podría ponerte en ...

Espero que este código te sea de utilidad: Option Explicit Private Sub cmdagacc_Click() Dim wb As Workbook, h1 As Worksheet, h2 As Worksheet Dim R1 As Range Dim Evn As String Dim FilaI As Long, FilaF As Long, LastRow As Long Set wb = ThisWorkbook 'es importante hacer referencia al libro además de la hoja, por si hay otros libros con hojas del mismo nombre Set h1 = wb.Sheets("MEMORIAS ACTO ...

2019年2月25日 · That "arbitrary" number is a mathematical combination of the RGB values (B256^2 + G256 + R) and a conversion of the hex color value to a decimal number (base 16 to base 10), depending on which way you want to look at it.

2018年6月27日 · The code below gives the HEX and RGB value of the range whether formatted using conditional formatting or otherwise. If the range is not formatted using Conditional Formatting and you intend to use iColor function in the Excel as UDF. It won't work. Read the below excerpt from MSDN.