清单前面的单元格打勾

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

1489737878869672.gif

完成这项工作两步，第一步，设置条件格式。选中A列，设置格式如图，

1489737948132641.jpg

第二步，ALT+F11,粘贴入下面的代码。Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenIf Len(Target) ThenTarget = vbStringElseTarget = 1End IfEnd IfEnd Sub其中第一次出现的1代表A列，可根据需要自行调整。可以设置A列居中对齐，16版默认的等线字体显示的对号不好看，可以换个字体。VBA那段代码，多选单元格会提示出错，点结束就好了。