Excel中输入1时单元格显示为勾

时间:2023-03-08 19:39:54

如图:

aaarticlea/png;base64,iVBORw0KGgoAAAANSUhEUgAAAUAAAACLCAIAAACfqtc+AAAGCklEQVR4nO3cbU7jOhiG4Wxl9oJmQ7Osij2cTbQgEIgKBAKBWELOj2ZmMon9xnGbN37i+xJS1Q8SO/GdDEdHbVoAspq1BwAgHwEDwggYEEbAgDACBoQRMCCMgAFhBAwI6wL+/v5edxwL2eq8UA97DXcBf319uQzG21bnhXrYa7gL+PPz02Uw3rY6L9TDXsNdwB8fHy6D8bbVeaEe9hruAn5/f3cZjLetzgv1sNdwF/Db25vLYNq2ba+urtz25Tmvqlz9a+3hbJm9hruAX19fXQbTtr4Be86rNv3zSMPLsddwF/DLy4vLYNr298XbZ1+e86oNAfuw13AX8PPzs8tgujPtdr7d5lUhAvZhr+Eu4OPx6DIY74Dd5lUh/gb2Ya/hLuCnpyeXwfxN1+esu82rQtyBfdhruAv48fHRZTDel223eVVocAZpeCH2Gu4Cfnh4cBiK/zXbZ151ImAf9hruAr6/v3cYiv8p95lXnQjYh72Gu4Dv7u4chuJ/yn3mVSf+BvZhr+Eu4Nvb26XHMfjT1+cvYYd51Yn/E8uNvYa7gG9ublwG422r80I97DXcBbzf710G422r80I97DXcHA6H/X6/AyCouwPvdrv2v2Z7P03Dl35Bm72GCRgomkLATdM2BAwEEDAgrPiAF6uXgLEBBAwIKzvgJeslYGwAAQPCCg544XoJGBtAwICwUgNevl4CxgYQMCCsmID7xbrUS8DYgDICbno/BAwkKyDgQbde9RIwNqCAgIMxEzCQoLCAfX8IGOoIGBA2EfCfr9RpABTJCvj0wB0YKBMBA8IUAm5W+EaOLbUdnEvKBNc9CHl7T/8tiVM8OUgCzjxwQsZzOb1ScsPZ+10u4Ll/f16EfsCL1WsEvKV629F0+k/LbDhxVMGQ0i/K9mEZbz92HVzO+WenloDN/8hnXXSXvgQEt2PcAcar+fxV6Bl54mHPG4l97mKH2vgAAa9Zbz/guUfN+PDcBZex/djT/vUo+Jk/DY+rTl/343cXnW/KGAYjiWV/qYBjx/myEjdOwBNHJGX5zj2s6dJXYeLrGQNI2UgJAY8/ScCrBrxwvcGAZ/0zyVjcFzm1k/GkLNbBRoJ3p7w5xkZyjsSAjZutfUxs9n49A867YAXePT1UEnDwLJYZcOKd2Vhz/Q8UFXBeXcEXJxb31AEc7J2Ay6p3EPBgQacsI+NEXjBgY2vGYg1OZLxNu8/sGLKljCT9xfPHHNza0gHP2iwB/3MUZqVo3B9ia2vuuTHuP4MdTd5PgtvcWMD2QUjcV+wz4yNGwJFiXertB2wcjrzFfX7AifGkBzz3Djz3WhZ7a5YmLrZH40DNPUfpr1w23fQLpf27gXdPD/V8pU5ewJNPMxi30PTXxwF4BjzrgmXvwh5MylXsIgHHdnSO4IV17q9H3z091POVOosGnH0HbiMnOP0z/bf6SccCTg/JeH25gIP358TI575iXP7OF7ye5m0h/O7poZ6v1ElcyuPz2l9Gg4U1+K3EsxLb/vhpyi7sJRi7EBjbGQ81uOuFAm5D479gwLHTF/xkcMAZ8jZVWMC+P5PLMSjjKK8uFvB46U9OMP0IZByr7MM+2XPKmTWOQ+zp6uuBgGccDl3jboNLMHH6y13IYpudWKYXOo+z9l7IBX3iyPCVOkDhrIBPD/XcgQEtBAwII2BAGAEDwggYEEbAgDACBoQRMCCMgAFhBAwII2BAGAEDwggYEEbAgDACBoQRMCCMgAFhBAwImwj4+vr6x6+fP379zP/CDwBLsgI+Ho+ngFe/W3IHBsYIGBBGwIAwAgaEETAgjIABYQQMCCNgQBgBA8IIGBBGwIAwAgaEETAgjIABYQQMCCNgQBgBA8IIGBA2ETBfqQMUzgr49MCX2gFlImBAGAEDwggYEEbAgDACBoQRMCCMgAFhBAwII2BAGAEDwggYEEbAgDACBoQRMCCMgAFhBAwII2BA2ETAh8Nhv9/vdrv8L/wAsCQr4NMDd2CgTAQMCCNgQBgBA8IIGBBGwIAwAgaEETAgjIABYQQMCCNgQBgBA8IIGBBGwIAwAgaEETAgzF7D/wPFX8el/hHS9AAAAABJRU5ErkJggg==" alt="" />

 Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
For i = To
If Cells(i, ) = Then '判断是否在第1列(a列)输入数据.
Value = "√"
End If Next
End With
Next
Application.EnableEvents = True
End Sub