Vba双击单元格以突出显示然后双击另一个单元格删除第一个单元格突出显示

Question

我在上一个问题中发现，当从一系列单元格（例如 A1 到 A4）双击时，如何将一个单元格（例如 A1）复制到另一个单元格（例如 B1）。我还找到了如何突出显示双击的单元格（A1）。当我双击 A2 时，它的值会替换 B1 中已经存在的值。现在 A1 和 A2 都被突出显示，而不仅仅是 A2 被突出显示。我希望第二次双击以从第一次双击中删除突出显示。 我使用的vb是

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)

If Not Intersect(target, Range("A1:A4")) Is Nothing Then
Cancel = True
target.Copy
Range("B1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If

With target.Interior
    If Not .ColorIndex = xlNone Then
        .ColorIndex = xlNone
    ElseIf Not Intersect(target, Range("A1:A4")) Is Nothing Then
        .ColorIndex = 15
    ElseIf Not .ColorIndex = 15 Then
        .ColorIndex = xlNone
    End If
End With
Cancel = True

End Sub

任何帮助都会很棒

Answer 1

假设您只想突出显示一个单元格并且单元格中没有其他格式，您可以在每次双击开始时清除所有格式：

target.Parent.UsedRange.ClearFormats

或者，您可以将先前的单元格位置存储在公共变量中，然后在新单击时删除格式：

Public PreviousCell As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)

If Not PreviousCell Is Nothing Then PreviousCell.Interior.ColorIndex = xlNone

.... your code here ....

Set PreviousCell = target

End Sub