在excel里如何用vba或函数实现选中区域内的某特定颜色单元格触发vba程序?

比如说,触发给选定区域某特定颜色单元格添加批注?

函数不能识别颜色,但是可以用自定义来实现 请参考Get.Cell参数追问

最好用vba啦,能说说具体怎么实现吗?谢谢,

追答

vba我不会 你可以用自定义名称来添加Get.Cell,切忌不要用绝对锁定地址.具体操作请自行搜索Get.Cell使用方法.

温馨提示:内容为网友见解,仅供参考
无其他回答

excel利用VBA只能点击某种颜色的单元格
假设工作表是sheet1,A1单元格填充色是黄色,其他还有若干黄色的单元格。下面的宏实现只能选中黄色单元格,如果点击其他颜色单元格,则自动跳到A1单元格。下属代码放入Sheet1的代码区:Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Interior.ColorIndex <> 6 Then [A1].Activate...

excel中如何实现在选中某一个单元格后使其改变背景颜色,在鼠标移开后...
1、确定需要满足变色单元格的区域(如A1:D10)2、第一轮判定:打开Excel,按Alt+F11进入VB界面,双击左侧【工程-VBAProject】窗口中的“Sheet1(Sheet1)”进入代码窗口,粘贴如下代码后保存代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim i As Range For Each i In Range("A...

excel 选择一个单元格 所在行列变色 怎么设置啊?
1、ALT+F11,进入VBE编辑器 2、双击Sheet1标签,粘贴如下代码:Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE".Item(1).Interior.ColorIndex = 9 En...

如何用vba或函数实现Excel选区内每一行的或列的最后一个非空单元格批 ...
Sub tt()For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1Cells(i, "iv").End(1).Interior.ColorIndex = 6NextFor j = Selection.Column To Selection.Column + Selection.Columns.Count - 1Cells(65536, j).End(3).Interior.ColorIndex = 6NextEnd Sub ...

在excel里如何用vba定位同行最后一个着色单元格(指定颜色)所在的列?
打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。这段代码返回每行最后一个红色单元格的列号(数字);代码中Msgbox ... 这一部分可以换成你需要的处理。Sub ys(...

如何用VBA实现查找特定的字符串并将该单元格变色
For j = 1 To 100'列数从1到100循环 If InStr(UCase(Cells(i, j).Value), "ABC") Then'先将单元格转换为大写,再判断其中是否含有“ABC"字符串 ActiveSheet.Cells(i, j).Interior.Color = 65535 '如果含有,则将当前工作表的当前单元格填充底色 End If Next Next End Sub ...

excel里如何用VBA实现单击一个单元格A1后在指定区域内(B2:C7)的单元...
excel里用VBA实现单击一个单元格A1后在指定区域(B2:C7)的单元格变色。这个可以实现,但是单击了A1后需要下次变色的话,那么要先选其他单元格后再次单击A1单元格才会实现,所以建议插入一个按钮来实现更方便些,操作步骤如下:1、在VBE中编辑好代码,按Alt+F11组合键打开VBE编辑器;2、依次单击“插入...

excel选中行变色的效果以及实现选中行变色的VBA代码
excel选中行变色的操作步骤如下:在工作表名称上单击右键,比如"Sheet1"工作表,选择“查看代码”,复制下面的代码,然后关闭VBE编辑器,回到excel工作表测试效果,任意单击一个单元格,相应的选中行将变色。Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells...

在EXCEL VBA中当单元格字体颜色改变时,自动触发一个事件。这个事件,如 ...
在 Excel VBA 中,您可以使用 Worksheet_SelectionChange 事件来监测单元格字体颜色的改变。以下是示例代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim selCell As Range For Each selCell In Target If selCell.Font.ColorIndex <> xlAutomatic Then '此处是您自定义的代码 MsgBo...

如何用vba控制excel单元格内数值的颜色?
使用VBA事件:VBA编辑框中,点击工作表,输入如下代码。Private Sub Worksheet_Change(ByVal Target As Range)Target.Interior.Color = vbRedEnd Sub

相似回答