软件:wps
功能:wps宏编辑器
目标:编写自动处理excel处理的JS宏
其他实现的方法有:VB环境编辑, python excel库实现,RPA机器人
1.JS宏所在位置:wps-开发工具-JS宏
2.需求智能实现鼠标点击一个单元格,相同内容的所有单元格都变色
VBA版本(WPS需要付费使用):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A2:Z43").Interior.ColorIndex = xlNone '清除单元格里原有底纹颜色
'当选中的单元格个数大于1时,重新给Target赋值
If Target.Count > 1 Then
Set Target = Target.Cells(1)
End If
'当选中的单元格不包含指定区域的单元格时,退出程序
If Application.Intersect(Target, Range("A2:Z43")) Is Nothing Then
Exit Sub
End If
Dim rng As Range '定义一个Range型变量
'遍历单元格
For Each rng In Range("A2:Z43")
If rng.Value = Target.Value Then
rng.Interior.ColorIndex = 39
End If
Next
End Sub