我已经创建了一个用户定义的函数来确定单元格是否以特定的颜色突出显示,它在某些情况下有效,但不是我需要的颜色;基本上,当该单元格永久突出显示该颜色时,该函数有效,但我将其基于条件格式,如果该单元格由于条件格式而是该颜色,则该函数不起作用。
Public Function Active(Rng As Range) As Boolean
If Rng.Interior.Color = RGB(217, 151, 149) _
Then Active = True
End Function
任何关于原因的帮助都将不胜感激。
我有一个包含任务列表的工作表,每行一个。A列是任务名称,B列是必须完成的日期,C列是必须完成的人员。列D用于指示何时完成此操作。如果此列包含任何内容,则整行的背景颜色应为灰色,否则应为白色。
我认为worksheet_change事件是处理这个问题的最好方法。我想我可以使用条件格式,但如果单元格被拖来拖去,它似乎很容易被破坏-我需要尽可能地“防弹”!
在伪代码中,我试图实现以下目标:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target includes a cell in column "D"
我试图使用VBA,当列标题中的文本与行中的文本相同时,行和列的交集单元格会用一些颜色突出显示。
示例:我尝试使用下面的代码,但没有给出所需的输出
Sub cellintersection()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = ActiveSheet
Dim cols As Range, rws As Range
Dim lastRow As Integer: lastRow = ws.Used
我一直在尝试创建一个函数,它将返回一个真值或假值,这个值的范围包含了该范围内的任何一个单元格的特定颜色。在这种情况下,颜色是红色(3)。我正在努力构建代码,以便如果范围内的一个单元格是红色的,那么返回的值将是True。
有人知道下面的代码有什么问题吗?
Function CheckIfRed(Cells As Range) As Boolean
Dim currentCell As Range
Dim counter As Long
For Each currentCell In Cells
If currentCell.Interior.Color = 3 Then
我在A和B列中有数据。B列的数据有点像'A‘列中的日期,但并不总是如此。例如:
A
Football
golf
running
baseball
House
bluehouse
New York
B
ball
house
Los Angeles
Bukarest
我需要在A列中搜索B中的值,以检查它们是否在那里(包括值的一部分,如“球”)。如果行匹配,我需要在A中将该行的背景颜色更改为红色或其他颜色。
我需要使用什么函数,以及如何使用?
我尝试过使用=match,但它匹配的是全值而不是部分值
我想写一个VBA,它可以改变以特定单词开头的单元格的颜色(“输入”、“错误”、“使用”、“充电号”)。“错误!输入与材料不匹配”。我对VBA很陌生,也尝试过不同的东西,但每次都被困住了,也会犯错误
“类型错配”。
到目前为止我得到的是:
Sub highlight()
Dim cell As Range
For Each cell In Range("D2:E2").EntireColumn
If cell.Value = "Enter" Then
我使用下面所示的代码将电子表格的第一行颜色变为灰色,这取决于单元格是否为空。例如,单元格A1不是空白,所以把它涂成灰色,单元格B1不是空白,所以把它涂成灰色,但是单元格C1是空白的,所以根本不要给它着色。到目前为止,我的脚本基于A1将整行涂成灰色。有什么替代办法吗?
Sub test()
Dim c As Integer
c = Application.WorksheetFunction.CountA(ActiveSheet.Range("A1"))
If c > 0 Then
ActiveSheet.Range("A1").EntireRow.I
我有一个宏,提示用户选择单元格-这些单元格可以是不相邻的-并将它们粘贴到用户选择的单元格中。我在网上某个地方找到了这个宏,它很棒。
我正在寻找添加字体颜色。被复制的单元格是特定的颜色,我需要能够在粘贴的单元格中保持颜色。任何帮助都将不胜感激!谢谢
Sub G()
Dim strFinal$
Dim cell As Range
Dim rngSource As Range
Dim rngArea As Range
Dim rngTarget As Range
Set rngSource = Application.InputBox("Select cells to merge"
我有今天的数据在D列,我想比较昨天的数据在F列,行。
下面是我用来比较和突出显示重复项的代码。
A)高亮显示我不想要的空白细胞。( B)我想处理一些异常,比如我不希望突出显示$0.00或特定文本“无数据”
Sub CompareAndHighlight()
Dim Myrng1 As Range, Myrng2 As Range, i As Long, j As Long
Application.ScreenUpdating = False
For i = 3 To Sheets("Sheet1").Range("D" & Rows.Count).
我在下面写的函数接受一个区域,我在其中设置了一些条件格式(用于字体颜色),另一个单元格区域用于比较颜色。函数是计算大区域中有多少个单元格具有与一个单元格区域相同的字体颜色。
Function CountColor(rng As Range, clr As Range) As Integer
Dim c As Range
Dim a As Integer
a = 0
For Each c In rng
If c.DisplayFormat.Font.Color = clr.Font.Color Then
a = a + 1
End
我正在尝试在Excel中创建一个宏,该宏将查找一系列单元格以确定其颜色。
下面是我得到的无效使用Null错误的代码:
Dim Result As Long
Result = Range("D8:N10").Interior.ColorIndex
SpreadSheet:
单元格包含多位字母代码,也可以为空。我正在尝试确定整个范围是否为特定的颜色(绿色),然后在另一个单元格中设置一个值。单元格中还有其他多行,我可以把它放进去,它起作用了,这是我在工作表中遇到的第一个生成错误的行。
我在表1上有值,我使用条件格式给出了背景颜色。
我只想复制颜色并将其粘贴到第2页的相应单元格中,而不粘贴值。
例如,如果工作表1单元格A1的特定值为红色,则将颜色转移到工作表2 A1。
我用两种颜色,红色和白色。红色代表更高的价值,白色代表较低的价值。
Sub copycolor()
Dim intRow As Integer
Dim rngCopy As Range
Dim rngPaste As Range
For intRow = 1 To 20
Set rngCopy = Sheet1.Range("A" &
下午,
我有一个下拉列表在我的预算表从G4:G 100与条件格式,以改变单元格颜色根据文字从下拉。
我似乎不能做的是连接在E4:E 100范围内的单元格具有与G4:G 100相同的细胞颜色?
我曾尝试在VBA中使用:
Sub Copy_Color()
Dim iColor As Long
Dim i As Long
For i = 4 To 100
iColor = Worksheets("Sheet15").Range("G" & i).Interior.Color
Worksheet
使用下面的代码,我能够使用使用后期绑定的VB.net应用程序来检测Excel中单元格的内部颜色。问题是,如果单元格有条件格式,我无法检测使用此代码的条件格式所应用的内部颜色的变化。
Dim x = objSheets.range("J" & RowCount).Interior.ColorIndex
如果是条件格式的结果,是否可以确定内部颜色?我该怎么做?
谢谢