在Excel中用鼠标点击改变单元格的颜色

Question

我正在尝试创建一个工作表，我们的员工可以点击一个单元格来突出显示他们正在执行任务，然后当他们完成任务时再点击它，如果他们需要清除突出显示，再点击它第三次。到目前为止，我已经提出了下面的工作，除了我必须点击另一个单元格，再次回到相同的一个，否则它将尝试编辑该单元格。我只想1点击颜色变化，另点击相同的单元格颜色变化2，另点击相同的单元格颜色变化3。有什么办法可以做到这一点吗？

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 = 6

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

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

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

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

    End If    
End Sub

Answer 1

在同一工作表中添加具有此代码的BeforeDoubleClick事件：

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

    Cancel = True
    Worksheet_SelectionChange Target

End Sub