Nhờ viết code định dạng canh lề phải hoặc trái theo điều kiện (2 người xem)

[Cerise]

Gửi các anh chị diễn đàn GPE,
Tôi có một bảng tính danh sách học viên. Tôi muốn định dạng cột Giới tính: "Nu" canh lề phải, "Nam" canh lề trái; tương tự đối với cột Nơi sinh thì "TpHCM" canh lề phải, các tỉnh thành còn lại canh trái như trong file đính kèm.
Mong anh chị em giúp đỡ, chân thành cảm ơn!

 

[nghiaphuc]

Gửi các anh chị diễn đàn GPE,
Tôi có một bảng tính danh sách học viên. Tôi muốn định dạng cột Giới tính: "Nu" canh lề phải, "Nam" canh lề trái; tương tự đối với cột Nơi sinh thì "TpHCM" canh lề phải, các tỉnh thành còn lại canh trái như trong file đính kèm.
Mong anh chị em giúp đỡ, chân thành cảm ơn!

Bạn dùng code này nhé:
[GPECODE=vb]Sub CanhLe()
Dim lR As Long, Cll As Range
With Sheets("M")
lR = .Cells.Find("*", SearchDirection:=2).Row
.Range("E2:F" & lR).HorizontalAlignment = xlGeneral
For Each Cll In .Range("E2:E" & lR)
If Cll = "TpHCM" Then Cll.HorizontalAlignment = xlRight
If Cll.Offset(, 1) = "Nu" Then Cll.Offset(, 1).HorizontalAlignment = xlRight
Next
End With
End Sub[/GPECODE]

 

[ndu96081631]

Bạn dùng code này nhé:
[GPECODE=vb]Sub CanhLe()
Dim lR As Long, Cll As Range
With Sheets("M")
lR = .Cells.Find("*", SearchDirection:=2).Row
.Range("E2:F" & lR).HorizontalAlignment = xlGeneral
For Each Cll In .Range("E2:E" & lR)
If Cll = "TpHCM" Then Cll.HorizontalAlignment = xlRight
If Cll.Offset(, 1) = "Nu" Then Cll.Offset(, 1).HorizontalAlignment = xlRight
Next
End With
End Sub[/GPECODE]

- Đầu tiên canh lề trái cho 2 cột NoiSinh và GioiTinh
- AutoFilter cột NoiSinh theo điều kiện TpHCM rồi canh lề phải cho dữ liệu đã Filter
- ShowAll cột NoiSinh
- AutoFilter cột GioiTinh theo điều kiện Nu rồi canh lề phải cho dữ liệu đã Filter
----------------------
Làm bằng tay bài này cũng ra kết quả trong 20s (viết code thì... y vậy mà làm, không For.. Next gì ráo! Ẹc... Ẹc...)

 

[nghiaphuc]

- Đầu tiên canh lề trái cho 2 cột NoiSinh và GioiTinh
- AutoFilter cột NoiSinh theo điều kiện TpHCM rồi canh lề phải cho dữ liệu đã Filter
- ShowAll cột NoiSinh
- AutoFilter cột GioiTinh theo điều kiện Nu rồi canh lề phải cho dữ liệu đã Filter
----------------------
Làm bằng tay bài này cũng ra kết quả trong 20s (viết code thì... y vậy mà làm, không For.. Next gì ráo! Ẹc... Ẹc...)

Hehe, những kẻ dở ẹc thì cứ cố tỏ ra mình lợi hại vậy đó bác. Cứ tưởng đâu For...Next là ngon ăn, hóa ra...