khanh_pdc2000
Thành viên mới
- Tham gia
- 16/6/08
- Bài viết
- 48
- Được thích
- 6
Bạn đã hỏi tại đây:Có anh em nào giúp e sắp xếp dữ liệu khi mình nhập vào 1 ô nào đó. file kèm theo
Không biết mục đích của bạn dùng để làm gì. Mình thấy việc này cũng chẳng có gì thú vị, danh sách ít thì không sao, nếu danh sách nhiều thì mới nhập dữ liệu cho 1 hàng nào đó xong, chưa kịp kiểm tra xem nhập đúng không thì chẳng biết hàng vừa nhập "chạy" đi đâu mất. Lúc đó thì hơi mệt đấy.Có anh em nào giúp e sắp xếp dữ liệu khi mình nhập vào 1 ô nào đó. file kèm theo
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Or Target.Column > 6 Then Exit Sub
If WorksheetFunction.Count(Intersect([C:F], Target.EntireRow)) = 4 Then _
Target.CurrentRegion.Sort [B1], xlDescending
End Sub