SecretLibra
Thành viên mới
- Tham gia
- 2/6/09
- Bài viết
- 5
- Được thích
- 0
Mình đang cần đánh 1 list danh sách có họ và tên, vì nhiều và muốn tiết kiệm thời gian + công sức, mình muốn làm 1 code cho cột c3:c30000 khi đánh "nguyễn văn a" sẽ tự động thành "Nguyễn Văn A", mình có làm 1 code nhưng đánh 1 chút thì excel bị lỗi rồi restart lại chương trình, mình dùng excel 2013, code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("c3:c3000")) Is Nothing Then
Target.Value = Application.Proper(Application.Trim(Target.Value))
End If
Application.EnableEvents = True
End Sub
Xin cảm ơn rất nhiều!
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("c3:c3000")) Is Nothing Then
Target.Value = Application.Proper(Application.Trim(Target.Value))
End If
Application.EnableEvents = True
End Sub
Xin cảm ơn rất nhiều!
