Vbaをダブルクリックしてハイライトし、別のセルをダブルクリックして最初のセルのハイライトを削除します。

Question

前の質問で、範囲からダブルクリックしたときにセル（A1）を別のセル（B1）細胞（例えば、A1〜A4）。私はダブルクリックされたセル（A1）を強調表示する方法も発見しました。私がA2をダブルクリックすると、値はB1の値に置き換えられます。 A1とA2の両方が強調表示される代わりに強調表示されます。最初のダブルクリックからハイライトを削除するには、2回目のダブルクリックが必要です。私が使用している 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 

あるすべてのヘルプはあなたが唯一の1つのセルは強調表示されるようにしたいとあなたの細胞の書式は他を持っていないと仮定すると、

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