uocmo_kchodoi
Moderator
- Xu
- 132
Đây là một lỗi nhiều bạn gặp phải nhưng do không biết cách sửa nên rất mất thời gian, công sức. Sau đây mình sẽ hướng dẫn các bạn cách sửa chữa lỗi này nhé!
HIỆN TƯỢNG: Khi các bạn mở một file Excel, thực hiện rất nhiều thao tác về định dạng như kẻ bảng, thay đổi font chữ, cỡ chữ, màu chữ, màu nền cho ô … Tuy nhiên khi lưu file đó, tắt đi rồi mở file đó lên, thì tất cả những thay đổi trước đó đều bị mất. Dường như các bạn chưa hề thực hiện thao tác gì về định dạng đối với file này, mặc dù các thay đổi khác như thêm dữ liệu, đặt công thức … vẫn được thêm vào bình thường.
CÁCH KHẮC PHỤC:
Để khắc phục hiện tượng này, các bạn chạy đoạn code VBA sau, lưu ý nếu chưa biết cách chạy đoạn code VBA như thế nào, các bạn có thể xem hướng dẫn tại đường link này: https://vnkienthuc.com/vba-la-gi-hu...-va-cach-them-cac-add-ins-trong-excel.t77197/
Sub StyleKill()
Dim styT As Style
Dim intRet As Integer
On Error Resume Next
For Each styT In ActiveWorkbook.Styles
If Not styT.BuiltIn Then
If styT.Name <> "1" Then styT.Delete
End If
Next styT
End Sub
Chúc các bạn thành công!
HIỆN TƯỢNG: Khi các bạn mở một file Excel, thực hiện rất nhiều thao tác về định dạng như kẻ bảng, thay đổi font chữ, cỡ chữ, màu chữ, màu nền cho ô … Tuy nhiên khi lưu file đó, tắt đi rồi mở file đó lên, thì tất cả những thay đổi trước đó đều bị mất. Dường như các bạn chưa hề thực hiện thao tác gì về định dạng đối với file này, mặc dù các thay đổi khác như thêm dữ liệu, đặt công thức … vẫn được thêm vào bình thường.
CÁCH KHẮC PHỤC:
Để khắc phục hiện tượng này, các bạn chạy đoạn code VBA sau, lưu ý nếu chưa biết cách chạy đoạn code VBA như thế nào, các bạn có thể xem hướng dẫn tại đường link này: https://vnkienthuc.com/vba-la-gi-hu...-va-cach-them-cac-add-ins-trong-excel.t77197/
Sub StyleKill()
Dim styT As Style
Dim intRet As Integer
On Error Resume Next
For Each styT In ActiveWorkbook.Styles
If Not styT.BuiltIn Then
If styT.Name <> "1" Then styT.Delete
End If
Next styT
End Sub
Chúc các bạn thành công!
Sửa lần cuối:
