我正在嘗試在 Excel 中鍛煉 Levenshtein 距離。要填充單元格，我們需要考慮至少三個單元格（左、左上和上）。如果突出顯示，很容易找到這三個中的最小值。
每當我將游標放在任何空單元格上時，我都想突出顯示這三個單元格。如下圖所示。當我將游標放在 C3 上時；B2、B3 和 C2 應突出顯示。
我找到了一個 VBA 腳本。但它突出顯示游標單元格的整個行和列。我不熟悉 VBA，因此無法按照我的方式修改行和列。
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20200430
Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
這就是它的作用
uj5u.com熱心網友回復：
作業表 SelectionChange：突出顯示單元格
Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Cells(1)
If .Row = 1 Then Exit Sub
If .Column = 1 Then Exit Sub
If IsEmpty(.Cells) Then
.Worksheet.UsedRange.Interior.ColorIndex = xlNone
Union(.Offset(-1, -1).Resize(2), .Offset(-1)) _
.Interior.Color = vbYellow
End If
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/471476.html