Tag: 突出显示

突出显示不同工作表上两个范围之间的重复项

我试图find一种更有效的方法来突出显示不同工作表上两个范围之间的重复单元格。 下面的代码是非常缓慢的： Sub HighlightDuplicates() Application.DisplayAlerts = False lrU = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row lrPT = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row Dim rng1, rng2, cell1, cell2 As Range Set rng1 = Worksheets("Sheet1").Range("DL4:DL" & lrU) Set rng2 = Worksheets("Sheet2").Range("E3:M" & lrPT) For Each cell1 In rng1 For Each cell2 In rng2 If cell1.Value = cell2.Value Then cell1.Font.Bold = True cell1.Font.ColorIndex = 2 […]

代码以突出显示Excel中特定列中的特定单词

我正在寻找在特定列中search特定关键字并将其突出显示为黄色的Excel代码。 并能够做到这一点的多个列，每个与它自己的不同的关键字。 例： search关键字“河”的列A search关键字“ocean”的B列 search关键字“海”的C列 每次只有特定列中突出显示唯一关键字，即使它也可能出现在其他列中。 该代码将包含从“列A”到“列CV”的100列，并允许为每列插入唯一关键字。 这可能吗？ 通过search论坛，我发现在Excel中突出显示特定单词的代码，但是没有一个将search范围缩小到一列，并从其他列中排除该关键字。 这个代码，find一个字，并把它的颜色变成红色，有一个类似的核心思想： Sub colorText() Dim cl As Range Dim startPos As Integer Dim totalLen As Integer Dim searchText As String Dim endPos As Integer Dim testPos As Integer ' specify text to search. searchText = "river" ' loop trough all cells in selection/range For Each cl […]

Excel VBA – 跳过已经突出显示的行

下面的excel vba代码将顶行中的date与列E和F中的开始和结束date进行比较。然后突出显示单元格，以在每行中生成彩条。 如何跳过已突出显示的行，并在input有效date后自动创build彩色栏？ 预先感谢您提供的任何帮助。 Set Rng = Range(Range("E7"), Range("E" & RowS.Count).End(xlUp)) 'The start end dates are in columns E and F DateRng.Resize(Rng.Count + 1).Interior.ColorIndex = xlNone For Each Dn In Rng For Each Ac In DateRng If Ac >= Dn And Ac <= Dn.Offset(0, 1) Then Ac.Offset(Dn.Row – 2 – 0).Interior.ColorIndex = Range("D4").Value Ac.Offset(Dn.Row – […]

如果满足三个条件，如何突出显示一行？

如果满足以下条件： 对于第10行和第100行之间的任何给定行，包括： 列A中的单元格不是空的 B列中的单元格不是空的 O列中的单元格是空的 我想强调一个特定的单元格（比方说A1）。 例： 我填充A10和E10，同时让O10空着，然后单元格A1被突出显示。 如果我然后填充单元格O10，单元格A1中的高光消失。 我可以继续下一行。 任何时候任何行都应该产生这些行为。 谢谢！

如果在Range（“M7：Q500”）或（“C7：C500”）Excel VBA中发生任何更改，则突出显示整行

我已经build立了一个代码，但我知道这是完全错误的。 我的目标是在（“M7：Q500”）或（“C7：C500”）中进行更改时突出显示整行，并根据更改的位置突出显示行。 前单元格M7（更改）突出显示整个7行 If Not Intersect(Target, Range("M7:Q500") Or ("C7:C500")) Is Nothing Then Cell.Interior.ColorIndex = 3 End If

比较两张表中的值，突出显示相似性，运行但不起作用

好吧，我正在做一个银行注册，我有一个工作表（“存款和贷款”），我正在比较一个内部创build的报告（“六月PB INS”）的银行对帐单。 对于银行对账单中的每个项目，我在内部报表中search具有匹配date（第1列）的行，包含公司描述符（string1），并与金额（银行对帐单第2列中的第3列内部报告第15栏）。 如果存在匹配，我想突出显示银行对账单工作表中的行，并且要在第7列中标记与之匹配的内部报表行的地址。 “守则”似乎没有任何缺陷，但没有做出任何改变。 Option Compare Text Sub HighlightMatches() Dim Sht1LastRow As Long, Sht2LastRow As Long Dim lastrow As Long Dim iPBINS As Long, iPBINScount As Long, iDeposits As Long, iDepositscount As Long Dim string1 As Variant Sht1LastRow = Sheets("Deposits And Credits").Cells(10000, 1).End(xlUp).Row Sht2LastRow = Sheets("June PB INS").Cells(100000, 1).End(xlUp).Row iPBINS = 2 iDeposits = […]

着色细胞擅长pandas

我需要一些帮助。 所以我有这样的事情 import pandas as pd path = '/Users/arronteb/Desktop/excel/ejemplo.xlsx' xlsx = pd.ExcelFile(path) df = pd.read_excel(xlsx,'Sheet1') df['is_duplicated'] = df.duplicated('#CSR') df_nodup = df.loc[df['is_duplicated'] == False] df_nodup.to_excel('ejemplo.xlsx', encoding='utf-8') 所以基本上这个程序将ejemplo.xlsx （以西class牙语为例，只是文件的名称）加载到df （ DataFrame ）中，然后检查特定列中的重复值。 它删除重复项并再次保存文件。 该部分正常工作。 问题是，而不是删除重复，我需要突出显示包含他们的不同颜色的单元格，如黄色。

如何在Excel中突出显示选定的文本

我想写一个VBA函数来突出显示excel单元格中的特定文本。 这可能吗？ 我一直在使用谷歌search，但目前还不清楚。 为了澄清，我想search一个文本值（实际上是一个值列表）的特定列，并突出显示黄色匹配的文本。 注意：这是我最终做的： Sub Colors() Dim searchString As String Dim targetString As String Dim startPos As Integer searchString = "abc" targetString = Cells(2, 1).Value startPos = InStr(targetString, searchString) If startPos > 0 Then Cells(2, 1).Characters(startPos, Len(searchString)).Font.Color = vbRed End If End Sub

VSTO：绘制在Excel工作表之上

我已经用C＃写了一堆方便的Excel加载项，而且一切都很好。 但是我一直无法弄清楚的一点是，如果可以在工作表控件上放置graphics（位图，形状等），例如通过在其绘图事件处理程序中附加一个函数。 我不想以任何方式实际更改文档，只是暂时突出显示事物，以指示我的加载项如何查找和解释表单中的数据。 我想要做的最简单的事情就是在特定范围内绘制边框。 我可以通过创build一堆透明的顶层窗口来尝试将它们自己夹到文档窗口中，但是这真是一个糟糕的解决scheme，而且我认为窗口也会阻碍用户input。

使用VBAselect和突出显示Excel行

我如何告诉Excel通过行号来突出显示行。 例如，假设我想突出显示第6,10,150,201行。 谢谢。