Tag: 颜色

Excel：Interior.ColorIndex为同一个索引生成不同的值: 我想设置一个单元格的范围有一个灰色的内部。我想要的灰色是在黑色和白色的后面（上排，左起第三个）。我手动设置一个单元格的内部颜色，然后使用vba到ColgIndex的MsgBox。它提出了19，但是，当我设置一个单元格的Interior.ColorIndex属性等于19，单元格不是灰色，但灰白色/奶油色。下面的代码实际上将单元格（单元格A1）的颜色从灰色更改为了： Dim r As Range Set r = Range("A1") Dim n As Integer n = r.Interior.ColorIndex r.Interior.ColorIndex = n 任何人都可以解释吗？

VBA根据内容文件types设置单元格的填充颜色: 我正在尝试读取Excel列中的文档列表，并根据文件的types更改单元格的颜色。但我做不到。任何解决scheme Public Sub Master() Dim TdCel As Range, FCell As Range Set TdCel = Range("A1:A25") For Each FCell In TdCel If FCell.Text = "*.pdf" Then FCell.Interior.ColorIndex = 10 ElseIf FCell.Value = "*.*.doc" Then FCell.Interior.ColorIndex = 9 ElseIf FCell.Value = "*.jpg" Then FCell.Interior.ColorIndex = 8 Else FCell.Interior.Color = vbWhite End If Next End Sub

如何根据重复的cloumn值来显示色彩: 我有一个名为order＃的Excel列，它有重复值的订单号，因为每个订单有一个或多个项目，所以如果订单有3个项目，订单＃将重复三次，依此类推。我想用两种颜色来区分不同的命令，所以如果第一个命令＃是“1”就是红色，第二个“2”会是黄色，第三个“3”会再次是红色，第四个是“4” “会是黄色的，等等。 +———-+——–+ | order# | item# | +———-+——–+ | 1 | 11 | | 2 | 12 | | 2 | 22 | +———-+——–+

Excel VBA修改: 我有一个函数的VBA代码，如果它们具有特定的背景填充颜色（由引用单元格给出），则计数或相加单元格： Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range Dim lCol As Long Dim vResult lCol = rColor.Interior.ColorIndex If Count = True Then For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = WorksheetFunction.Count(rCell) + vResult End If Next rCell Else For Each rCell In rRange […]

如何使用button更改文本框的背景颜色: 我正在尝试创build一个Excel文件，其中有一个用于更改文本框的填充颜色的macros。当用户点击一个button（表单控件）时，这个macros将被激活。我对VBA（以及一般编程）相当陌生，而且在编写代码时遇到了麻烦。我已经通过其他论坛，并尝试应用我所读的，但似乎每个人都使用不同的代码结构和/或语法来解决问题。我的代码的逻辑基本如下：用户点击button激活macros： If TextBox1 BackColor = RGB (191, 191, 191) Then TextBox1 BackColor = RGB(242, 242, 242) Else if TextBox BackColor = RGB(242, 242, 242) Then TextBox1 BackColor = RGB(191, 191, 191)

如何获得一个负格的实际颜色？: 我的一些单元格格式为#,##0;[Red](#,##0) ，使负数显示为红色。我想将内容和格式复制到PowerPoint中。如何识别单元格显示的颜色，以便我可以复制可见的外观？我不想重新实现parsing格式的逻辑，如果我不需要，也可以做出否定的决定，因为不是所有的单元格都将被格式化。如果我不能通过在VBA中明确设置颜色来实现，是否可以使用复制和粘贴方法将Excel中的单元格复制到PowerPoint中表格中的单元格中？其实这会比做手工更好 – 我已经尝试过，但我不能在什么对象的嵌套级别做粘贴。我发现如何粘贴Excel范围作为一个新表，但没有粘贴单个单元格与格式化到现有的PowerPoint表引用大量的参考。在TextRange级别粘贴不会粘贴颜色，但会粘贴其他设置（如粗体）。

使用C＃优化设置大型Excel电子表格中的单元格颜色: 我有一个非常大的Excel电子表格大约200 MB的大小，12列和一百万行。有5种不同types的细胞可以通过查找每个特定的string模式来识别。我希望这5个桶中的每一个都有不同的内部颜色。而且每个细胞types的范围都不是连续的。这是我所尝试过的，它的工作原理，但是很痛苦。将使用的范围转储到variables数组，循环遍历数组，标识每个单元桶types，并根据它所属的桶的types为每个单元格设置一次内部颜色索引。将使用的范围转储到variables数组，循环遍历数组，标识每个单元桶types并使用联合创build一个新的范围，每种types的范围只设置一次内部颜色索引。这两种方法都需要大约90分钟才能使细胞着色。任何其他方式来优化这个？

VBA Excel：ColorIndex兼容性的RGB范围: 我有一个在Excel 2007中创build的macros，它允许一个值取决于源文件的字体颜色，如下所示（这段代码是循环的一部分）： If Worksheets("Source1").Cells(i, j).Font.Color = RGB(165, 165, 165) Or Worksheets("Source1").Cells(i, j).Font.Color = RGB(117, 146, 60) Then Worksheets("Result").Cells(UnusedRow, 15).Value = "Closed" Else Worksheets("Result").Cells(UnusedRow, 15).Value = "Active" End If 这工作没有问题。但是，奇怪的是，同一源文件中的相同单元格在使用Excel 2013打开时具有不同的RGB值：2007年的RGB（165,165,165）在2013年变为RGB（166,166,166），而RGB（117,146 ，60）在2007年成为RGB（118,147,60）。这就是为什么我想为字体颜色中的每个数字使用一个小范围，例如源文件中的RGB（x，y，z）： If x => 164 And x <= 167 And y => 164 And y <= 167 And z => 164 And […]

根据列中的数据更改制表符的颜色: 如何根据D列中的数据更改Excel 2010中的选项卡的颜色？即…如果D列中的某个单元格包含“F”或“f”，则将选项卡更改为红色，如果D列中的单元格包含“PWE”或“pwe”，则将选项卡更改为黄色，然后如果“P”或“p”变为绿色，如果没有这些，则不要更改标签颜色。帮助…谢谢！ Sub tabby() If Range("D:D").Text = "F" Or "f" Then ActiveWorkbook.Tab.Color = RGB(255, 0, 0) ElseIf Range("D:D").Text = "PWE" Or "pwe" Then ActiveWorkbook.Tab.Color = RGB(255, 255, 0) ElseIf Range("D:D").Text = "P" Or "p" Then ActiveWorkbook.Tab.Color = RGB(0, 255, 0) Else ActiveWorkbook.Tab.Color = RGB(0, 0, 0) End If End Sub

在Excel中生成HEX颜色: 我将数据保存在Excel中作为计算累积结果的数字（所有累积值的总和为100）。 *********************************** *Result*Cumulative* RGB * * 230 * 30 * HEX (darkest) * * 100 * 10 * HEX (lightest)* * … * … * … * *********************************** 我想写函数/生成颜色“代码”hex将是累计值的结果。最高的颜色应该是最黑的颜色，最低的颜色应该是最浅的颜色。我需要将这个结果CSV导出到另一个程序，所以不可能使用build in function来生成颜色。