Code vba định dạng cột theo điều kiện (3 người xem)

[zerocoldtn]

- Tôi có rất nhiều file excel muốn định dạng về 1 loại để dễ dàng quản lý, truy xuất, nếu làm thủ công thì tốn rất nhiều thời gian, gửi lên diễn đàn móng các ACE GPE viết dùm code hoặc có thể chỉ để tham khảo code vba một cách nhanh chóng, nội dung như hình bên dưới, gửi file đính kèm. Mong các AC chỉ giúp nhé!

 

[phulien1902]

Có thể là:

Sub Dinhdang()
   Columns("A:C").NumberFormat = "General"
    Columns("D:D").NumberFormat = "@"
    Columns("E:E").NumberFormat  = "0.000"
    Columns("F:F").NumberFormat = "[$-F400]h:mm:ss AM/PM"
End Sub

 

[zerocoldtn]

Có thể là:

Sub Dinhdang()
   Columns("A:C").NumberFormat = "General"
    Columns("D:D").NumberFormat = "@"
    Columns("E:E").NumberFormat = "000"
    Columns("F:F").NumberFormat = "[$-F400]h:mm:ss AM/PM"
End Sub

Cột E không ra như trong file anh ạ, có cách khác không vậy anh?

 

[phulien1902]

Cột E không ra như trong file anh ạ, có cách khác không vậy anh?

Đã sửa lại, bạn thử.

 

[zerocoldtn]

Đã sửa lại, bạn thử.

Đã làm được và rút lại còn thời gian rất ít. Cám ơn anh phulien1902