Tag: 颜色

如何正确格式化这个在vba中

这工作正常，但我想学习如何正确格式这更像一个正常的function与什么xlsmacros生成的代码看起来像。 在这里我正在过滤所有在这个列中有黄色的行。 sheet.UsedRange.AutoFilter field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor 这不起作用 sheet.UsedRange.AutoFilter(1,RGB(255,255,0),xlFilterCellColor) 这也不是 sheet.UsedRange.AutoFilter(1,RGB(255,255,0),xlFilterCellColor,,)

excel vba生成具有不同字体颜色的格式单元格

我想用vba生成一个特定布局的excel表单。 我的一个子程序是字体颜色。 它看起来像这样： Sub SetFont(cell1, cell2 As range, fcolor As String) range(cell1, cell2).Select If fcolor = "w" Then With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With ElseIf fcolor = "b" Then With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With End If End Sub 但它不起作用。 字体总是以黑色生成。 我不知道为什么。

如何在Excel VBA中将纯色应用于数据栏？

我的数据栏在执行VBA命令时看起来很好（可靠）。 但是，保存文件并重新打开后，数据栏会自动更改为渐变。 我如何避免这种情况？ 保存并重新打开文件之前： 保存并重新打开文件后： 这是我使用的代码： Dim DB As Databar Set DB = Range("K2:K10").FormatConditions.AddDatabar With DB .BarFillType = xlDataBarSolid .BarBorder.Type = xlDataBarBorderSolid With .BarBorder.Color .Color = 15698432 End With With .BarColor .Color = 15698432 .TintAndShade = 0 End With End With With DB.BarColor .Color = 15698432 .TintAndShade = 0 End With With Range("K2:K10").FormatConditions(1) .MinPoint.Modify newtype:=xlConditionValueAutomaticMin […]

将填充颜色放在特定的单元格中

我的程序循环遍历表单中的每一行数据。 然后，当它错误，我想填充颜色在特定的单元格。 有没有一种方法来填充颜色的单元格而不使用范围？ On Error GoTo Stop 'doing something Exit Sub Stop: Msgbox("Error!") 'something like this to fill the cell Sheets("Data").Cells(rowdata,1).Color = red

在Excel中根据文本值设置单元格颜色 – VBA

我正在编写一个脚本来在机器上运行ping 。 该脚本使用主机名查找文本文件，并返回列A中的主机名和列B中的ping （上或下）状态。 我需要列B颜色更改为绿色，如果向上和红色，如果向下。 代码没有问题： '# call excel applicationin visible mode Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2 '# Define Labels objExcel.Cells(1, 1).Value = "Machine Name" objExcel.Cells(1, 2).Value = "Results" '# Create file system object for reading the hosts from text file Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") […]

VBA如果一个单元格中的前6个字符不等于01/01 /那么

我希望你能帮上忙。 我在下面有一段代码，它似乎没有正常工作 我想要的代码是这样的 如果列L的整个长度中的任何单元格的前6个字符不包含01/01 /，则使用内部颜色27突出显示该单元格 正如您在Screen Shot 1中看到的那样，列L中的每个单元格都用内部颜色27突出显示，只有单元格L2和L5应该着色。 我的代码如下，可以修改为只突出显示不包含01/01 /的单元格作为列L中的前6个字符 > PS条件格式化方法不是一个选项 与往常一样，所有的帮助，不胜感激。 屏幕截图1 我的代码 Sub Colour_If() RowCount = Cells(Cells.Rows.Count, "L").End(xlUp).Row For Each n In Range("L2:L" & RowCount) n = Left(n, 6) If n <> "01/01/" Then Range("L2:L" & RowCount).Interior.ColorIndex = 24 End If Next n End Sub

以简单的方式导出到Excel（但不是CSV）

昨天我发现了这个如何通过简单地生成HTML将数据导出到Excel电子表格。 看起来像一个简单的导出格式化单元格的方法，而不能使用CSV格式。 我的想法是在Java应用程序中处理一些数据，将结果导出到Excel电子表格中，并利用Excel的function进一步分析数据，绘制图表等（避免重新实现Excel的强大function）。 但是，在输出数据之前，我想为某些单元格的背景着色。 Excel的“条件格式”function是不够的（加上，我不想手动）。 我发现在Java应用程序中准备具有所有格式的电子表格，并从Excel中转​​到此处非常方便。 在“ How-To”中提到的方法很简单，运行良好，除了两个问题。 我希望你们中的一些人可能以前有过这方面的经验，并且能够为这个问题提供一些启示。 当我在Firefox中打开XLS文件时，像<td bgcolor="#ff2323">这样的单个单元格着色将完全符合我的要求，但是Excel会将颜色更改为我认为他们称之为“网页安全”的调色板。 这意味着，不是有256种不同的红色，我得到了“红色”，“紫红色”，“粉红色”，“橙色”，“淡黄色”和“白色”。 有没有办法阻止这种颜色转换发生？ 当我打开XLS文件（实际上只是HTML里面的内容）时，看起来不错，但是分开单个单元格的细灰线消失了，我无法弄清楚如何“打开”它们。 那是什么？ 问题1是我真正想要解决的主要问题。

改变scatterplot vba excel中特定点的颜色

我想改变散点图左上angular的点的颜色。 我写了一个macros，没有发生错误，但颜色没有改变：/ Sub Kolorowanie() ActiveSheet.ChartObjects("Chart 1").Activate a = ActiveChart.SeriesCollection(1).Values b = ActiveChart.SeriesCollection(1).XValues For i = LBound(a) To UBound(a) If a(i) < 0 And b(i) > 0 Then ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(i).Select With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Solid End With Else End If Next i End Sub 任何想法，为什么它不工作？

根据存储在其他单元格中的RGB值dynamic更改单元格的背景颜色

我想在Excel中写一个函数，根据存储在其他三个单元格中的值设置活动单元格的背景颜色（这三个单元格中的每一个存储的数值都是从0到255，取决于颜色R， G或B）。 所以A1单元是150，B1单元是220，C1单元是90（即RGB（150,220,90））。 我需要D1单元格的颜色是之前宣布的RGB（某种绿色），而且，如果我将函数放在D2中，它将select存储在A2，B2和C2中的RGB，等等… 这可以实现吗？

这是什么颜色的代码？

我正在查看一个将文本放在excel头文件中的代码片段： headerText.Append(@"&""Calibri""&20&K04-024HEADER-TEXT"); &""Calibri""修改字体， &20修改尺寸， &K04-024修改颜色（以海军）。 问题是这是什么样的颜色代码（ K04-024 ）？ 我以前见过各种types的东西，但没有这样的东西。 我试过搜谷歌，找不到任何关于它的东西。 编辑： 这是使用Spreadsheet Gear将C＃文本放入Excel头文件。 事实certificate： &K01+047是中等灰色的颜色。 这些数字是通过检查一个XML excel文档，看看excel在内部使用什么颜色。 编辑：对于RGB比例： K04-024转换为R:045 G:107 B:181 K01+047转换为R:120 G:120 B:120