Tag: 亮点

条件格式：根据条件突出显示行: 假设我有下面的表格： Date Value 5/27/2017 5 6/10/2017 7 6/24/2017 8 7/8/2017 5 7/22/2017 10 我想突出显示最近的那一行，意思是最接近今天的那一行。我知道我需要使用Excel的条件格式化function，所以我创build了从这个函数派生的指标列_inRange ： =IF(AND(A2 <= TODAY()), TODAY() < A3), 1, 0) 新表格： date值_inRange 5/27/2017 5 0 6/10/2017 7 0 6/24/2017 8 1 7/8/2017 5 0 7/22/2017 10 0 所以，在_inRange等于1的地方，行应该被突出显示。我可以正确突出显示_inRange单元格，但突出显示整行时遇到困难。任何人都可以提供方向吗？我看着这个Exceljet的post，但显然留下了问题。编辑：我改变_inRange布尔（我不认为布尔TRUE / FALSE与1-0是主要问题，虽然），我仍然有问题： Date Value _inRange 5/27/2017 5 FALSE […]

突出显示值连续3次相同的单元格: 我试图突出显示H列中的值连续3次相同的单元格，例如一个一个 ñ P P P ñ 乙乙 3 P将突出显示红色，但不是2 A或2B。不pipe这个在VBA中是可行的，还是使用一个我不知道的公式，但是我一直在试图让我的头脑一段时间。我相信它可能很简单，我只是陷入循环任何帮助将非常感激

通过确认查找并突出显示macros: 我有这个macros下面的工程很好find一个数字，并确认是否正确（然后突出显示）。首先它询问您寻找的号码，然后input号码，然后点击确定。然后，如果它find了号码，那么你将有机会说是否或取消（以防万一他们是多个号码，你正在寻找，而不是正确的）。如果你点击是，它会突出显示该单元格。问题：如果您正在查找的号码不在表单上，macros将出错。如果你打“不”，我希望它寻找下一个号码，如果他们没有下一个号码，那么就退出。（这个button也可以被称为“下一步”，因为它可以更准确地描述情况。任何帮助将不胜感激！谢谢！ Sub find_highlight() Dim w As Variant Dim FoundCell As Range Dim ans As String Do w = InputBox("What to find?") Cells.Find(What:=(w), After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate Select Case MsgBox("Is this the number?", vbYesNoCancel) Case vbNo Case vbYes With Selection.Interior .ColorIndex = 6 […]

VBA如果单元格长度不足，高亮显示消息: 我正在尝试编写一个macros来检查Excel电子表格中的特定列，查找长度小于9个字符但大于2的条目，如果find，则显示一条消息并突出显示find该值的单元格。这可能会发生多次。我写了下面的代码： Sub Highlight() Dim c As Range Dim LR As Integer Dim intCell As Long LR = Worksheets("Basket").Cells(Rows.Count, 6).End(xlUp).Row For intCell = 1 To 8 For Each c In Range("G20:G" & LR).Cells If Len(c.Value) < 9 And Len(c.Value) > 2 Then MsgBox "One or more of the codes is invalid. Correct the highlighted […]

突出显示特定行中使用的单元格: 我正在写一个VBA文件，需要做一些奇怪的事情。如果J列中的单元格包含特定值，则需要突出显示该行（而不是整行，只是行的已用部分）。我已经想通了，除了我的代码是突出显示整个行，我只想要突出显示该行中使用的单元格。任何人都可以build议吗？下面的代码 'Yellow Highlight……….THIS IS HIGHLIGHTING THE WHOLE ROW….WHY!!!!! WHY!!!!!!!!!!! Sheets("EMM").Activate With Sheets("EMM") For Lrow = 1 To ActiveSheet.UsedRange.Rows.Count With .Cells(Lrow, "J") If Not IsError(.Value) Then If .Value = "Desk to adjust" Then .EntireRow.Interior.ColorIndex = 6 End If End If End With Next Lrow End With

如何使用VBA在Excel中突出显示从开始到结束date的区域？: 我在列A和列B中给出了开始和结束date。然后，我select一个我想查看的范围，并生成从C1开始的一行date，并且可以在任何时候结束。我需要突出显示从开始date到结束date到给定date右侧的行。有没有办法做到这一点？我不知道从哪里开始…请帮忙。例如，我想看看范围从2015年5月2日至5/5/2015而不是零我需要这个领域突出显示。 ABCDEFG 1 start end 5/2/2015 5/3/2015 5/3/2015 5/4/2015 5/52015 2 5/1/2015 5/3/2015 00000000000000000 3 5/2/2015 5/2/2015 00000000 4 5/4/2015 5/5/2015 0000000000000000

突出显示在VBA中searchWord: 我想要一个代码来突出显示search到的每个单词。我已经有了一个代码，除了第30行之后，它开始突出显示所有内容。为了清晰起见，我将添加图片。我不知道我的代码有什么问题，或者我可以修复的。这是我的代码。 Sub Highlight() Application.ScreenUpdating = False Dim Rng As Range Dim cFnd As String Dim xTmp As String Dim x As Long Dim m As Long Dim y As Long cFnd = ComboBox1.Value y = Len(cFnd) For Each Rng In Selection With Rng m = UBound(Split(Rng.Value, cFnd)) If m > 0 […]

自动突出显示代码: 我从谷歌这个代码。我想知道如何才能使代码不会删除用户所做的以前或新的突出显示。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 With Target ' Highlight the entire row and column that contain the active cell .EntireRow.Interior.ColorIndex = 36 .EntireColumn.Interior.ColorIndex = 36 End With Application.ScreenUpdating = True End […]

通过双击高亮显示MS Excel 2007中的单元格: 我希望用户能够突出显示每一行上的一个单元格这段代码突出了Excel 2007中的单元格，但是我的问题是，我不能编写代码来限制用户只突出显示一行中的一个单元格，这里是代码： Private Sub Worksheet_BeforeDoubleClick( _ ByVal Target As Range, Cancel As Boolean) ' This macro is activated when you doubleclick ' on a cell on a worksheet. ' Purpose: color or decolor the cell when clicked on again ' by default color number 3 is red If Target.Interior.ColorIndex = 3 Then ' […]