请问怎么用VBA代码截取固定长度

有情8

请问各位老师，我想在F列扫描条码时，当扫入的条码字符长度大于14位时，自动从左截取14位，比中扫入的上=0231119000123789，自动截取后显示=0231119000123。之前用了如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, b As Integer
a = ActiveCell.Column
b = Len(ActiveCell)
If a = 6 Then
If b > 14 Then
ActiveCell.Value = Left(ActiveCell, 14)
End If
End If
End Sub
打到下一个单元格后，还是没有自动截取，重新选中后deactivate才截取成功，这是怎么回事，运行速度很慢。麻烦大神为我修改一下代码，谢谢！


附件.zip (1.91 MB, 下载次数: 1)

2020-3-26 21:04 上传

点击文件名下载附件

北疯。驴二

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Left(Target.Value, 14)
    Application.EnableEvents = True
End Sub

有情8

北疯。驴二 发表于 2020-3-27 11:20
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column  6 Then Exit Sub
    Appl ...

老师，感觉截取得很慢，回车后要等许久才反应过来，是怎么回事？
还有个问题是，我之前已经有了Private Sub Worksheet_Change(ByVal Target As Range)了，代码直接粘贴在里面就可以了吗