Lỗi mất định dạng và font chữ

[HuongLan040609]

Mọi người giúp e sửa lỗi mất định dạng và font chữ của file excel này với, e cảm ơn nhiều ạ!

 

[vanle33]

Mọi người giúp e sửa lỗi mất định dạng và font chữ của file excel này với, e cảm ơn nhiều ạ!

Tỉ dụ cho cô:
Sheet 'NT Hải Vĩnh' / chọn các cell bạn cho là lỗi font / chọn font Times New Roman / là OK.

 

[HuongLan040609]

Tỉ dụ cho cô:
Sheet 'NT Hải Vĩnh' / chọn các cell bạn cho là lỗi font / chọn font Times New Roman / là OK.

Sửa lỗi như vậy thì quá OK rồi ạ!!! Nhưng làm thế nào để sửa được các định dạng về dòng, cột mà không phải ngồi làm cho từng Sheet và không bị lại lỗi này trong các lần sau ý ạ??? Còn về lỗi font chữ thì chỉ cần Ctrl + A rồi chọn Times New Roman thì quá đơn giản rồi ạ!

 

[phulien1902]

Sửa lỗi như vậy thì quá OK rồi ạ!!! Nhưng làm thế nào để sửa được các định dạng về dòng, cột mà không phải ngồi làm cho từng Sheet và không bị lại lỗi này trong các lần sau ý ạ??? Còn về lỗi font chữ thì chỉ cần Ctrl + A rồi chọn Times New Roman thì quá đơn giản rồi ạ!

Bạn muốn xử lý tất cả các Sheets đồng thời, bạn dùng cái dưới đây:

Sub Dinhdang_Font_TimesNewRoman()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws.UsedRange
            .Font.Name = "Times New Roman"
        End With
    Next
End Sub

 

[vanle33]

Sửa lỗi như vậy thì quá OK rồi ạ!!! Nhưng làm thế nào để sửa được các định dạng về dòng, cột mà không phải ngồi làm cho từng Sheet và không bị lại lỗi này trong các lần sau ý ạ??? Còn về lỗi font chữ thì chỉ cần Ctrl + A rồi chọn Times New Roman thì quá đơn giản rồi ạ!

+) Cô hỏi thế nào thì mọi người trả lời như vậy. Nội dung #1 và #3 có giống nhau đâu.
+) File không phải lỗi font mà đang là sai font --> chọn lại font đúng là ok.
+) Có thể dùng cách đặt font Unicode (hoặc font gì gì đó) cho tất cả các workbooks mới cho tiện.