Hỏi về lập trình vb lấy 7 ký tự đầu tiên khi nhập liệu (1 người xem)

[lamchanphieu]

Mong các bạn nào biết vui lòng giúp đỡ !

 

[Let'GâuGâu]

Mong các bạn nào biết vui lòng giúp đỡ !

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 10 Then
    Target.Value = Trim(Left(Target.Value, 7))
End If
Application.EnableEvents = True

End Sub

 

[lamchanphieu]

Hay quá, mình xin cảm ơn bạn nhiều nhé!

 

[lamchanphieu]

mà bạn ơi sao mình điền xong thì được rồi, nhưng khi phủ khối xóa thì bị báo lỗi
này như hình bên dưới, mong bạn xem lại

 

[lamchanphieu]

hình bị lỗi run-time error 13

 

[HungQuoc49]

mà bạn ơi sao mình điền xong thì được rồi, nhưng khi phủ khối xóa thì bị báo lỗi
này như hình bên dưới, mong bạn xem lại

Thử sửa thế này xem sao

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
If Target.Column = 10 Then
For Each Rng In Target
Rng.Value = Trim(Left(Rng.Value, 7))
Next Rng
End If
Application.EnableEvents = True
End Sub

 

[giaiphap]

mà bạn ơi sao mình điền xong thì được rồi, nhưng khi phủ khối xóa thì bị báo lỗi
này như hình bên dưới, mong bạn xem lại

Thì bạn thêm code kiểm tra số ô đang chọn, cho dù bạn chọn cả cột luôn và xóa cũng chẳng sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If (Target.Column = 10) And (Target.Cells.Count = 1) Then
    Target.Value = Trim(Left(Target.Value, 7))
End If
Application.EnableEvents = True
End Sub

 

[lamchanphieu]

cả 2 code đều được hết, mình cảm ơn 2 bạn nhiều nhé!