Tag: 颜色

如何在Excel VBA中将所有单元格颜色从一个工作簿复制到另一个工作簿？: 我有两个具有相同表名和相似数据的大型工作簿。源表格有一堆应用于单元格的颜色，我必须将这些颜色复制到目标工作表中各自的单元格。我试过这个build议：如何从一个工作簿复制Excel配色scheme到另一个但它似乎没有做任何事情。这是我写的代码，但它locking了很长一段时间。它看起来适合你吗？ Sub CopyColors() Dim x As Workbook Dim y As Workbook Dim SomeSheet As Worksheet Dim SomeRange As Range Set x = Workbooks.Open(" c:/PATH/Source.xlsm ") Set y = Workbooks.Open(" c:/PATH/Destination.xlsm ") y.Colors = x.Colors For Each SomeSheet In x.Worksheets For Each SomeRange In SomeSheet.Cells y.Sheets(SomeSheet.Name).Range(SomeRange.Address).Interior.ColorIndex = SomeRange.Interior.ColorIndex Next SomeRange […]

使用自动填充function时保持单元格的颜色（Excel）: 我有一个Excel中的公式，我想拖动到其他单元格使用自动填充。但是，下面的单元格有独特的颜色，我不想删除它们。是否有一个简单的方法自动填充我的公式和保持颜色的细胞？先谢谢你。

Excel中的条件颜色编码: 我有一个关于Excel和VBA的相当简单的问题，但是因为我是VBA的新手，我不知道如何实现它。我有一整列完整的颜色代码。该列中的单元格表示R，G或Y. 我需要一个将遍历该列的macros，将所有表示“R”的单元格改为红色填充，将所有表示“Y”的单元格填充为黄色，并将所有表示“G”的单元格改为有一个绿色的填充。我知道这也可以通过简单的按字母sorting行，然后手动更改颜色来完成，但我正在寻找一种自动的方式来做到这一点。

Excel 2010 – 细胞和形状着色 – 我的想法: Excel 2003有一个简单的… interior.colorindex和只有56个数字。但是，为了更好地控制，Excel 2010对此进行了更改。现在，当开发一个应该复制一个单元格颜色（在VBA中）的程序时，根据单元格内容将单元格的颜色设置为一个Excel形状…我失去了几个不同的对象，如下所示：对于手机： Sheets("Config").Range("E1").Interior.ThemeColor = 10 Sheets("Config").Range("E1").Interior.TintAndShade = -0.249977111117893 形状： Activesheet.shapes("R3").fill.forecolor.objectthemecolor = 7 Activesheet.shapes("R3").fill.forecolor.brightness = 0.6 Activesheet.shapes("R3").fill.forecolor.schemecolor = 42 Activesheet.shapes("R3").fill.forecolor.tintandshade (and this doesn't even work)

Excel：将单元格的颜色设置为另一个单元格的颜色: 如何确定一个单元格的颜色等于另一个单元格，例如：A4是C2是青色的青色。那么A2的橙色是橙色的橙色。

自动仅将颜色从一个单元格复制到另一个单元格–EXCEL VBA: 我有单元格017 ，由于公式和条件格式，此单元格的值和颜色不断变化。单元格O16由于公式而不断变化，但公式和值与单元格017不同。我想要的是，一旦单元格017的值已经改变，单元格O16包含与单元格O17相同的颜色。 VBA中应该有一个解决scheme。我希望你的帮助。编辑：用户simoco提出了Excel 2010及更高版本的解决scheme： Private Sub Worksheet_Calculate() Range("O16").Interior.Color = Range("O17").DisplayFormat.Interior.Color End Sub 不幸的是我使用Excel 2007，是否有和2007年的代码相当的？

当重放macros改变标签颜色时下标超出范围: 我logging了这样一个macros：更改工作表选项卡的颜色，然后将其设置为自动颜色。由此产生的代码是这样的： Sub Makro4() ' Makro4 Makro With ActiveWorkbook.Sheets("GBP").Tab .ThemeColor = xlThemeColorLight2 .TintAndShade = 0.399975585192419 End With With ActiveWorkbook.Sheets("GBP").Tab .ColorIndex = xlAutomatic .TintAndShade = 0 End With End Sub 当我重播它时，通过在即时窗口中写入makro4或将此代码放在工作表上的一个button上，它不起作用： Private Sub CommandButton1_Click() With ActiveWorkbook.Sheets("GBP").Tab .ThemeColor = xlThemeColorLight2 .TintAndShade = 0.399975585192419 End With With ActiveWorkbook.Sheets("GBP").Tab .ColorIndex = xlAutomatic .TintAndShade = 0 End With 'Makro4 End […]

Excel :: Writer :: XLSX :: Chart :: Line – 问题: 有没有办法使图表中的线条（最大温度和最小温度）之间的间隔着色？ #!/usr/local/bin/perl use warnings; use 5.014; use utf8; use Excel::Writer::XLSX; my $workbook = Excel::Writer::XLSX->new( 'spreadsheet.xlsx' ) or die $!; my $worksheet = $workbook->add_worksheet( 'One' ); my $ref = [ [ 'Day', 'Max. Temp.', 'Min. Temp' ], [ 1, -3.1, -6.4 ], [ 2, -2.3, -7.2 ], [ 3, -4.7, -6.8 ], [ 4, -3.1, -9.5 […]

在同一工作簿的不同工作表中计算特定颜色文本的单元格: 我有一个多张工作簿。一个是MASTER表格，其中包含各种信息的各个栏目的所有信息。还有其他的表格在整个MASTER表格中计算各种单元格，我已经使用COUNTIFS来完成这个工作，但是我想要做的是创build一个查询，根据一列中的文本颜色创build总和他们满足了在不同栏目中具有某些信息的要求。例如：这是各种人员的名单。每个人都属于不同的部分。他们还在不同的时间完成不同的培训课程（以BLACK字体为代表），有些正在等待某些培训课程（RED），有些正在接受培训（BLUE）我想要做的是在跟踪表上，有一个3单元格跟踪他们在一个给定的列中的每个颜色。虽然我熟悉COUNTIFS ，我也可以设置一个VB模块来创build一个函数来计算同一张纸上的单元格，但我似乎无法使它在不同的纸张上工作。

如何使用Excel的“= SUMPRODUCT（ – ISNUMBER（SEARCH …）”函数来排除“复杂的复合”结果？: 我试图validation产品说明列表，以突出显示产品颜色在其描述中使用的任何实例。我有一个颜色列表… Example: Blue Red Green Yellow Purple etc. 我正在使用以下公式来检测是否使用了其中一种颜色： =IF(SUMPRODUCT(–ISNUMBER(SEARCH(Table1[Colors],A1)))>0,"Cannot include a colour","") 其中Table1[Colours]包含我的颜色文本string列表， A1包含我的第一个产品说明。（ Dave Bruns @ ExcelJet对任何想要使用SUMPRODUCT / ISNUMBER / SEARCH组合的人都有很好的阅读。）如果产品说明包含在我的Table1[Colours]列表中指定的Table1[Colours]则公式将生成"Cannot include a colour"以提醒用户这是不允许的。例如：“Garmin先行者10运行运动表绿色 ” 我面临的第一个问题是，当我的当前公式处理产品说明包含复合词包含颜色… 例如：“ 黑莓 Z10智能手机” 这不正确地使描述无效，因为本文中的string"Black"不被用于描述产品的颜色。正如标题所示，我的主要问题在于取代复杂的复杂词汇。 …我的Table1[Colours]列表不仅仅包含基本的主颜色，次颜色和第三色，还包括珊瑚，紫红色和棕褐色等更具异国情调的颜色。当产品描述包含“Stand”这样的词时，会导致复杂化。为什么这是你可能想到的问题？立场包含我的一个奇特的颜色“谭” S- Tan- d 不幸的是，这也导致我的公式处理。（讨厌的权利？）我正在寻找的解决scheme是对现有公式的补充=IF(SUMPRODUCT(–ISNUMBER(SEARCH(Table1[Colors],A1)))>0,"Cannot include a colour","")可能出现的“复杂化合物”可以通过可接受单词的计数器列表（例如表Table2[Exceptions]或通过野外梳理search以匹配没有前缀或后缀的确切颜色（该选项将不得不考虑一个双色，用/例如“黑/红”隔开，所以用一些标点符号例外来进行拼接）？ …这一切都有点可怕和不方便。任何意见表示赞赏。 […]