字体定制
清单前面打勾
2025-11-22 09:52:05
追风Office
40 人阅读
完成这项工作两步，
第一步，设置条件格式。
选中A列，设置格式如图，
第二步，ALT+F11,F7粘贴入下面的代码。
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
=1Then
IfLen(Target)Then
Target=vbString
Else
Target=1
If
If
Sub
其中第一次出现的1代表A列，可根据需要自行调整。
可以设置A列居中对齐，16版默认的等线字体显示的对号不好看，可以换个字体。
VBA那段代码，多选单元格会提示出错，点结束就好了。