Tag: rgb

用variables改变形状的颜色: 我遇到了改变形状颜色的问题。我有这个颜色数据库 BK = RGB(0, 0, 0) 'Black BN = RGB(140, 78, 2) 'Brown RD = RGB(239, 2, 2) 'Red OG = RGB(255, 192, 0) 'Orange YE = RGB(255, 255, 0) 'Yellow GN = RGB(0, 176, 80) 'Green BU = RGB(0, 176, 240) 'Blue VT = RGB(112, 48, 160) 'Violet GY = RGB(113, 113, 113) […]

通过HEX或RGB定义Excel自定义数字格式颜色: 是否可以通过HEX或RGB定义自定义数字格式，如下所示？ [Black][>5]0.0;[Red][<0]-0.0;[Color34]0.0 我正在寻找深橙色（＃FF9900），并且[Orange]不起作用。我已经尝试了56种颜色的全部光谱，正如本文所build议的那样，或者是以名字命名的less数颜色，但没有一种甚至接近正确的橙色阴影。内置的几个Excel不包含橙色： [BLACK][GREEN][RED][BLUE][CYAN][MAGENTA][WHITE][YELLOW]

R，XLConnect：用RGB代码设置颜色: 我遇到了以下问题。大量的数据被写入Excel文件。在书面的Excel表格中，我想将单元格颜色设置为非预定义的值（这是写入单元格的数字的函数）。例如：给定单元格中的数字越高，单元格越绿。我知道解决scheme存在的包xlsx （见这里和这里）。但是我已经在整个项目中使用了XLConnect ，并且不想转换到目前为止所有的代码。目前，我使用下面的代码来设置单元格颜色： # create the excel workbook wb <- loadWorkbook("FILENAME.xls", create=TRUE)` # Create a CellStyle with yellow solid foreground CellColor <- createCellStyle(wb) setFillPattern(CellColor, fill = XLC$"FILL.SOLID_FOREGROUND") setFillForegroundColor(CellColor, color = XLC$"COLOR.YELLOW") # apply the CellStyle to a given cell, here: (10,10) setCellStyle(wb, sheet=SHEETNAME, row=10, col=10, cellstyle=CellColor) # save […]

更改ActiveCell的字体颜色和背景颜色: 请有人可以帮助我。我有两个函数在Excel中的VBA。一个是改变活动单元格的字体颜色，它完美的作品。二是改变活动单元格的背景色，拒绝工作。在stackoverflow还有另外一个类似的查询，我正在使用该方法，但这根本不会工作。我究竟做错了什么？我想从Excel中引用3个具有数字值的单元格来查看颜色将在飞行中。更改ActiveCell字体颜色（工作） Public Function FontColour(R, G, B) ActiveCell.Font.Color = RGB(R, G, B) End Function 更改ActiveCell颜色（不工作） Public Function CellColour(R, G, B) ActiveCell.Interior.ColorIndex = RGB(R, G, B) End Function

VBA Excel – 设置行背景取决于单元格的值: 我在Excel中有这样的行： Subject VariableName VariableValue Color vColor_Chart1 RGB(217,217,217) Color vColor_Chart2 RGB(210,110,42) 我想创buildmacros来改变行背景依赖于VariableValue列中的单元格值。我现在有这样的代码： Sub SetBackground() Dim rngRange As Range Dim rngRow As Range Dim rgbCell As Range Set rngRange = Range("A2:K13") For Each rngRow In rngRange.Rows Set rgbCell = Range("E" & rngRow.Row) ' E it is column of VariableValue in my sheet rngRow.Interior.Color = rgbCell.Value 'here […]

在R中转换颜色代码: 我有＃0A68A6或＃0A428C格式的颜色代码，依此类推。在R中有一个简单的方法将它们转换成长的Excel颜色代码（对于10905600和9191946以上的例子）？

使用VBA在Excel电子表格中将单元格颜色更改为RGB值: 实际上，我已经在30列（每个值在他们自己的单元格）中获得了10组RGB值，在这些列下面的8行中有不同的RGB值。我想要做的是将10个单元格的单元格在这30个单元格的右侧进行着色，以在这些行的所有8个单元格中显示10种颜色的视觉表示（基于它们的RGB值集合）。我已经看到了一些VBA例子，它们做类似的事情，但更多的是在一组RGB值上。我想我可以创build像以下这样的function，但似乎并不奏效。也许一个Sub例程将需要这样做，但不知道从哪里开始。任何帮助或方向将不胜感激。 Function RGB_Color(R As Integer, B As Integer, G As Integer) RGB_Color = Application.ThisCell.Interior.Color = RGB(R, G, B) End Function

在Excel中，根据单元格中的值设置RGB颜色: 我有一个macros为我画了一堆图表。我想要做的是dynamic改变Data series color 。我使用RGB颜色古怪和函数.ForeColor.RGB 。当我直接使用它.ForeColor.RGB = RGB(88, 88, 88) – 一切工作正常。但是，当我尝试从一个cell color .ForeColor.RGB = Sheets(1).Cells(1, 1)我得到了错误Type missmatch 。在Cell(1,1)我有价值： RGB(0, 0, 0) 。如何从cell为Data seriesselectcolor ？下面的macros和Excel窗口。 Sub Macro1() ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.FullSeriesCollection(1).Select MsgBox Sheets(1).Cells(1, 1) With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = Sheets(1).Cells(1, 1) '.ForeColor.RGB = RGB(88, 88, 88) .Transparency = […]

从单元格中读取颜色为图表上色: 在vba中，我想从工作表中的单元格中读取颜色，以在条形图中为特定的条形着色。我的问题是，我有4F9F92格式的颜色，但阅读它makro我需要使用从单元格的Excel颜色代码4076202。有没有办法在vba代码中转换两种格式…？我知道在眼前的窗口我可以做到 ?rgb(170,50,62) 这导致 4076202 在vba代码中，我使用以下命令读取颜色 ser.Points(p).Interior.Color = arr(s, p) 其中s和p是通过具有不同颜色代码的arrays运行的两个运行variables。有没有什么机会，我可以设置一个函数，每个单元格，我input一个值，如4F9F92自动转换为格式4076202，这样的makro可以阅读它？

为什么Excel的RGB值倒退？: 这个function就是一个例子。请注意，RGB值实际上是BGR值。为什么excel这样做？ Function GetRGB(ByVal cell As Range) As String Dim R As String, G As String Dim b As String, hexColor As String hexCode = Hex(cell.Interior.Color) 'Note the order excel uses for hex is BGR. b = Val("&H" & Mid(hexCode, 1, 2)) G = Val("&H" & Mid(hexCode, 3, 2)) R = Val("&H" & Mid(hexCode, […]