Tag: 颜色
XlsxWriter – 设置网格线的颜色
我想知道是否可以在添加图表时设置主要或次要网格的颜色。 该文档显示了一个设置'visible' : True/False的例子'visible' : True/False和'dash_style' ，但是当我传递一个'color'参数时，没有改变。 我假设“行”的网格线实例没有“颜色”参数，但是我要求如果我错过了解决scheme。 chart.set_x_axis({ 'major_gridlines': { 'visible': True, 'line': {'width': 1.25, 'dash_type': 'dash', 'color' : 'red'} }, })
Excel VBA – 不同颜色的颜色重复范围
我在工作中需要重复执行一些大的excel文件，并决定首次使用VBA来使我的生活更轻松。 我在互联网上find了一个代码，修改了它并将其修改为我自己的工作表，并且工作正常。 我有一列ID，我需要find重复ID的范围和组合他们。 到目前为止，我手动做了这个，花了很多时间。 此代码有效地为重复范围着色，但每次出现新的范围时不会切换到不同的颜色。 假设我有这个：001 001 001 002 002 它会将001以蓝色着色，并将以蓝色着色002。 并不总是，但它发生，我不希望这一点。 这里是代码： Sub ColourDuplicates() Dim Rng As Range Dim Cel As Range Dim Cel2 As Range Dim Colour As Long Set Rng = Worksheets("Sheet1").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Rng.Interior.ColorIndex = xlNone Colour = 6 For Each Cel In Rng If WorksheetFunction.CountIf(Rng, Cel) > 1 […]
Excel：根据单元格中的input更改单元格中的文本颜色（包括更新）
我不是Excel或VBA的专家，但我尽我所能。 我有一个Excel文件，单元格D10空白或不空白。 基于单元格D10空白或不空白，我想格式化文本颜色和/或细胞填充其他细胞。 单元格D10可以在空白和非空白之间切换，并且颜色必须相应改变。 首先，我试图做到这一点，而不使用VBA： 这不是我所希望的。 所做的更改不适用于所选单元格中的所有单元格，并将单元格D10从空白更改为非空白并返回空白不起作用。 然后，我尝试了一些VBA，我不知道该怎么做。 有人能帮我一下吗？ Sub colourChange() If Range("D10") = ISBLANK Then Range("C18:I20").Font.Color = RGB(256, 256, 256) Range("C32:I33").Font.Color = RGB(256, 256, 256) End If If Range("D10") = Not (ISBLANK) Then Range("C18:I20").Font.Color = RGB(0, 0, 0) Range("C32:I33").Font.Color = RGB(0, 0, 0) End If End Sub 我如何使这个模块不断“开”？
Excel代码链接范围单元格的颜色到另一个
我正在build立一个住宅的堆叠计划，其中每个单元=具有特定颜色的单元types给予条件格式。 每个单位下面的2个表格反映了一个平方米的大小和$价值。 我只需要将单元格的颜色反映到下面的表格中。 我需要一个dynamic的解决scheme，宁愿避免vba（因为我不熟练），但将在必要时使用。 提前致谢！ 在这里find图片
简单的Excelmacros
嗨，我刚刚开始在Excelmacros上工作。 请让我知道在下面的代码中有什么错误： Sub color_red() Dim range As range For R = 1 To 20 If Cells(R, 1).Value = 1 Then range(R, R).Interior.ColorIndex = 3 Next R End Sub 显示“对象variables或未设置块variables”错误消息。 预先感谢您的指导。
通过制表符颜色将值移动到新的工作簿？
我有一个包含多个数据表的大型报告，以及大约12-20张报告。 我目前必须做的是移动/复制，所有的选项卡，然后通过复制和粘贴值来删除透视引用。 我已经用颜色编码了哪些应该组合在一起。 我当然是VBA新手，但想知道有人能帮我一把。 无论如何参考VBA中的标签颜色？ 如果有的话可以提供一个快速的代码，可以为我做这个。
Excel VBA检查单元格颜色与Activecell.Interior.color不起作用
我想检查一个单元格是否有一定的颜色。 如果为true，我想要这个消息框（“单元格匹配颜色”）。 否则，我希望有消息框（“单元格不匹配颜色”）。 Option Explicit Sub Autoselect() Dim Refcolor As Long Set Refcolor = RGB(220, 230, 241) If ActiveCell.Interior.Color = Refcolor Then MsgBox ("Cell Match Color") Else: MsgBox ("Cell does not match color") End Sub
根据条件格式确定单元格颜色的更改
所以我的目标是改变其中包含单词“Totals：”的string的颜色。 然后使用逻辑来突出显示单元格B1和C1。 我目前的代码可以改变颜色，但是当我使用逻辑它认为细胞没有填充。 Sub Macro6() ' ' Macro6 Macro ' 'ActiveWindow.SmallScroll Down:=-12 Range("A1:A381").Select Selection.FormatConditions.Add Type:=xlTextString, String:="Totals:", TextOperator:=xlContains ' Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority ' With Selection.FormatConditions(1).Font ' .Color = -16383844 ' .TintAndShade = 0 ' End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 '16777215 ' .TintAndShade = 0 End With 'Selection.FormatConditions(1).StopIfTrue = False 'lastrow = Sheet4.Cells(Sheet4.Rows.Count, "A").End(xlUp).Row […]
使用单元格颜色的Excel 2010 VBA
我正在尝试自动化突出显示过程，以显示某些行已完成。 这个过程工作得很好，但是在我的工作表的开始处，我试图让代码为表单创build一个“键”，以显示颜色的不同含义。 在该键中，白色，绿色和红色被用作尚未完成（白色），完成（绿色）和错误/不完整（红色）的标签。 灰色也用于私人pipe道。 我试图用相应的颜色来标记颜色，绿色为绿色，红色为红色等。我已经为第一行编写了代码，但是在绿色上并没有将“绿色”单元格颜色为绿色（它留下白色），并在“红色”它将单元格颜色为绿色。 这里是我使用的代码（我很抱歉，因为我是编码新手）： Sub SmartHighlight() Dim Counter As Integer Dim i As Integer Dim j As Integer Dim k As Range Dim Chkr As Integer Chkr = 0 xTitleId = "Smart Highlighter" MsgBox "This macro analyzes the given pipe data to highlight completed sections." For Each k In ActiveSheet.UsedRange.Rows Counter = 0 […]
如何指定范围而不是偏移量，excel VBA？
我想在下面的代码中给出一个范围而不是偏移量。 以下代码将范围（C5：F11）中的颜色复制到偏移i集，但是我想指定范围（M5：P11）。 我试图简单地更换偏移范围，但它不能正常工作。 请帮忙 Sub MatchColors2() For Each myCellColor In Range("C5:F11") myCellColor.Offset(0, 8).Interior.ColorIndex = myCellColor.Interior.ColorIndex Next End Sub 谢谢
