56 lines
1.0 KiB
Markdown
56 lines
1.0 KiB
Markdown
|
---
|
|||
|
|
title: Excel
|
|||
|
|
updated: 2022-02-14 06:58:59Z
|
|||
|
|
created: 2022-01-08 13:18:07Z
|
|||
|
|
---
|
|||
|
|
|
|||
|
|
# 位反
|
|||
|
|
|
|||
|
|
无直接函数，可间接实现
|
|||
|
|
bitxor为位异或，Byte取反即与0xFF（255）异或
|
|||
|
|
|
|||
|
|
# 高亮相同数值的单元格
|
|||
|
|
|
|||
|
|
方法有二
|
|||
|
|
|
|||
|
|
一，选择待处理区域，新建条件格式，规则为“使用公式确定要设置格式的单元格”，公式为`=A1=CELL("contents")`，设置高亮背景色。关闭后点选单元格按F9刷新即可。
|
|||
|
|
|
|||
|
|
二，需要宏支持。宏代码如下
|
|||
|
|
|
|||
|
|
```vb
|
|||
|
|
|
|||
|
|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
|
|||
|
|
|
|||
|
|
If Target.Count <> 1 Then Exit Sub
|
|||
|
|
|
|||
|
|
Dim rng As Range
|
|||
|
|
|
|||
|
|
Dim cnt
|
|||
|
|
|
|||
|
|
cnt = 0
|
|||
|
|
|
|||
|
|
If Target.Count = 1 And Target <> "" Then
|
|||
|
|
|
|||
|
|
Cells.Interior.ColorIndex = -4142
|
|||
|
|
|
|||
|
|
For Each rng In UsedRange
|
|||
|
|
|
|||
|
|
If rng = Target.Value Then
|
|||
|
|
|
|||
|
|
cnt = cnt + 1
|
|||
|
|
|
|||
|
|
rng.Interior.ColorIndex = 44
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
If cnt = 1 Then Target.Interior.ColorIndex = -4142
|
|||
|
|
|
|||
|
|
'If cnt > 1 Then MsgBox (cnt)
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
```
|