求助！！！怎么自动把选中单元格一样内容的单元格填充成黄色？不是单一的条件哦，因为点击选中会变动的。

黄光孝

怎么自动把选中单元格一样内容的单元格填充成黄色？不是单一的条件哦，因为点击选中会变动的。

WPS表格数据筛选

4天前广东省

2 +1

全部评论 6

墨云轩

创作者俱乐部成员

回答：可以用条件格式来做，具体可以看看我社区发的帖子https://bbs.wps.cn/topic/46769

4天前 · 河北省

黄光孝

这个我用过了，是半自动的，有自动的吗？

4天前 · 广东省

会飞的鱼

KVP函数专家、创作者俱乐部成员

JS function Workbook_SheetSelectionChange(Sh, Target) { Cells.FormatConditions.Delete(); var ra = Cells.FormatConditions.Add(1, 3, "=" + Target.Cells(1).Address()); ra.Interior.Color = 65535; }

4天前 · 辽宁省

会飞的鱼

KVP函数专家、创作者俱乐部成员

VBA Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.FormatConditions.Delete Cells.FormatConditions.Add Type:=1, Operator:=3, Formula1:="=" & Target(1).Address Cells.FormatConditions(1).Interior.Color = 65535 End Sub

4天前 · 辽宁省

Mr Chen

WPS寻令官 | 创作者俱乐部成员

回答：这个应该需要结合宏实现，可以尝试让AI写一段VBA代码实现 Option Explicit ' 主过程：为活动工作表添加点击高亮功能 Sub AddCellHighlighting() Dim ws As Worksheet Set ws = ActiveSheet ' 清除可能存在的旧事件 ClearOldEvents ws ' 为工作表添加SelectionChange事件 EnableWorksheetEvents ws MsgBox "单元格点击高亮功能已启用！" & vbCrLf & _ "点击任意单元格，相同内容的单元格将高亮显示黄色。" & vbCrLf & _ "再次点击或选择其他区域可取消高亮。", vbInformation End Sub ' 启用工作表事件 Sub EnableWorksheetEvents(ws As Wor

4天前 · 甘肃省

wils

创作者俱乐部成员

大概 function Workbook_SheetSelectionChange(Sh, Target) { for (const i of Sh.UsedRange) { i.Interior.ColorIndex = xlNone if (Target.Value2 === i.Value2) { i.Interior.ColorIndex = 6 } } }

4天前 · 海南省

黄光孝

帖子 1
回复 1
点赞 3