清单前面的单元格打勾

闲着没事翻到了Excel2016中提供的模版，里面有个度假项目核对清单，中间有一个小功能就是点击会出现对号的，然后就把这个功能截取了下来，效果如图，点击出现对号，再点取消。

完成这项工作两步，

第一步，设置条件格式。

选中A列，设置格式如图，

第二步，ALT+F11,粘贴入下面的代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then

        If Len(Target) Then

            Target = vbString

        Else

        Target = 1

        End If

    End If

End Sub

其中第一次出现的1代表A列，可根据需要自行调整。

可以设置A列居中对齐，16版默认的等线字体显示的对号不好看，可以换个字体。

VBA那段代码，多选单元格会提示出错，点结束就好了。