ongtrungducmx25
Thành viên gạo cội
- Tham gia
- 5/2/07
- Bài viết
- 2,077
- Được thích
- 1,987
- Nghề nghiệp
- GV
Bạn ghi 1 macro sắp xếp, chỉnh lại vùng sắp xếp cho phù hợp và ghi vào Sub Workbook_SheetChangelàm sao để cho excel sắp xếp tự động khi mình gõ họ&tên vào cell? em có một file chỉ tự động loại bỏ khoảng trắng và lấy chữ hoa đầu từ thôi, pác nào biết thêm cách VBA cho nó tự động tư sắp xếp luôn được không!
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
myValue = LCase(Application.WorksheetFunction.Trim(Target.Value))
If myValue <> "" Then
i = 0
Do
Mid(myValue, i + 1, 1) = UCase(Mid(myValue, i + 1, 1))
i = InStr(i + 1, myValue, " ")
Loop While i > 0
Target.Value = myValue
[COLOR=Blue] Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal[/COLOR]
End If
End Sub
em chỉ nhập khoảng 30-40 em thôi trong một sheet, ủa sao cái code trên chỉ sắp xếp theo họ không zậy em muốn sắp xếp theo tên từ A-Z cơ!