マウスのクリックでセルの色を変更する

Question

Excel 2003では、マウスのクリックだけでセルの色を変更したいと思います。これは私がやったことですが、私の質問は、セルを2回目のマウスクリックで元の色に戻す方法です。私は、セルの色を白から緑に変更し、各マウスクリックで再び元に戻したいと考えています。

Answer 1

これは私が自分のシートの1つに使用しているものです。基本的に、ユーザーはセルをダブルクリックしてユーザーフォームを表示します。彼らは補正を提出するときに黄色のセルを強調表示します。間違えた場合は、ダブルクリックしてハイライトを削除します。必要なものについては、以下のコードの中程を抜け出すことができます。以下のコメントあたり

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

Application.EnableEvents = False 

    Dim TargRow As Variant 
    Dim TargCol As Variant 

    TargRow = Target.Row 
    TargCol = Target.Column 

    Header = 8 
    FirstCol = 0 
    LastCol = 13 
    CommentCol = 13 

    If TargRow > Header And TargCol > FirstCol And TargCol < LastCol Then 
     'If the cell is clear 
     If Target.Interior.ColorIndex = xlNone Then 
      Cancel = True 

      'Then change the background to yellow 
      Target.Interior.ColorIndex = 6 
      Corrections.Show 

      'Else if the cell background color is already yellow 
      ElseIf Target.Interior.ColorIndex = 6 Then 

      'Then clear the background 
      Target.Interior.ColorIndex = xlNone 
     End If 
    End If 

    'This is to prevent the cell from being edited when double-clicked 
    Cancel = True 

    Application.EnableEvents = True 
End Sub 

EDITED CODE：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    'If the target cell is clear 
    If Target.Interior.ColorIndex = xlNone Then 

     'Then change the background to the specified color 
     Target.Interior.ColorIndex = 4 

     'But if the target cell is already the specified color 
     ElseIf Target.Interior.ColorIndex = 4 Then 

     'Then clear the background color 
     Target.Interior.ColorIndex = xlNone 

    End If 

End Sub