滑鼠點到Excel表格任意位置，顔色就自動填充，你會麼？

有粉絲朋友留言，有個對賬需求，需要滑鼠點到哪裡，就能自動标記顔色

再次點選時，顔色如果有标記，則取消掉，那麼在Excel裡面如果快速制作？

很明顯，滑鼠點選事件，是不可能用函數公式來實作的，必須借助VBA來完成 。

1、非VBA方法

如果覺得VBA複雜的話，那就可以用到F4快捷鍵來完成了，F4快捷鍵有一個功能是重複上一次操作，是以首先我們給一個單元格标記顔色，然後當我們選中另外的單元格時，我們隻需要按下F4快捷鍵，那麼這個單元格也會同樣的标記顔色了

但是這種方法，還是需要滑鼠點選+鍵盤按鍵來完成

2、VBA方法

我們需要在開發工具中，選擇VBA（或者按ALT+f11），進入到VBA編輯頁面中，如下所示：

我們選擇worksheet，然後選擇Selectionchange事件

然後我們将代碼寫進這個事件中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [A1] = 1 Then

    If Selection.Interior.Color = 65535 Then
    Selection.Interior.Pattern = xlNone
    Else
    Selection.Interior.Color = 65535
    End If

End If

End Sub           

我們設定了一個開關按紐，當A1單元格的值為1的時候，才能實作點選變色，當然也可以把代碼中的值給改到其它的位置

然後就是對選中的資料區域顔色進行判斷，如果說有我們指定的顔色，則選區變成無顔色填充，否則就填充為我們指定的顔色

因為你使用了VBA代碼，是以你需要把表格另存為XLSM格式，防止代碼丢失，下次打開的時候用不了

關于這個小技巧，你學會了麼？自己動手試試吧！