Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a5")) Is Nothing Then
Application.Proper (Target)
End If
End Subthầy xem hộ em code sai ở đâu mà n không chạy đk ah
e viết thiếu target.value = application.proper(target.value)
nó toàn chạy đè lung tung thôi thầy ah
Chào bạn bạn đang muốn làm thế nào vậy? có phải muốn viết hoa không.
Đúng rồi thầy.thi thoảng máy e còn đơ luôn
ý bạn là cần viết hoa chữ đầu đúng không? bạn cần viết ra 1 ổ khác không viết trực tiếp trên ô đang chạy