Xem 5,049 Bạn đang xem bài viết Cách Xóa Các Định Dạng Thiết Kế Rác (Delete Styles) Trong Excel Phiên Bản 2010, 2013, 2021 được cập nhật mới nhất ngày 10/01/2022 trên website Hoisinhvienqnam.edu.vn. Hy vọng những thông tin mà chúng tôi đã chia sẻ là hữu ích với bạn. Nếu nội dung hay, ý nghĩa bạn hãy chia sẻ với bạn bè của mình và luôn theo dõi, ủng hộ chúng tôi để cập nhật những thông tin mới nhất. Cho đến thời điểm hiện tại, bài viết này đã đạt được 5,049 lượt xem. --- Bài mới hơn --- Tuyệt đỉnh Excel Trở thành bậc thầy Excel trong 16 giờ Một số styles (định dạng) rác, lạ hay thừa bạn có thể gặp như sau: Xóa thủ công bằng thao tác Delete Thao tác này phải làm thủ công, chỉ có thể xóa từng styles một, gây mất thời gian và không tối ưu nếu bạn có một lượng lớn styles cần phải xóa Xóa toàn bộ bằng lệnh VBA phục hồi style (định dạng) mặc định trong Excel Phương án này đòi hỏi người dùng phải biết sử dụng Macro trong VBA Sub RebuildDefaultStyles() 'The purpose of this macro is to remove all styles in the active 'workbook and rebuild the default styles. 'It rebuilds the default styles by merging them from a new workbook. 'Dimension variables. Dim MyBook As Workbook Dim tempBook As Workbook Dim CurStyle As Style 'Set MyBook to the active workbook. Set MyBook = ActiveWorkbook On Error Resume Next 'Delete all the styles in the workbook. For Each CurStyle In MyBook.Styles Select Case CurStyle.Name Case "20% - Accent1", "20% - Accent2", _ "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _ "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _ "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _ "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _ "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _ "Bad", "Calculation", "Check Cell", "Comma", "Comma ", "Explanatory Text", "Good", "Heading 1", "Heading 2", _ "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _ "Note", "Output", "Percent", "Title", "Total", "Warning Text" 'Do nothing, these are the default styles Case Else CurStyle.Delete End Select Next CurStyle 'Open a new workbook. Set tempBook = Workbooks.Add 'Disable alerts so you may merge changes to the Normal style 'from the new workbook. Application.DisplayAlerts = False 'Merge styles from the new workbook into the existing workbook. MyBook.Styles.Merge Workbook:=tempBook 'Enable alerts. Application.DisplayAlerts = True 'Close the new workbook. tempBook.Close End Sub Kết quả hiện thị: File Excel của chúng ta đã hoàn toàn được loại bỏ các styles ( định dạng) lạ, rác hay thừa, đồng thời khôi phục đúng mặc định ban đầu của trang tính Excel. Qua bài viết trên, Gitiho mong muốn cung cấp cho các bạn dân văn phòng (đặc biệt là người hay phải sử dụng Excel trong quá trình làm việc) một giải pháp tối ưu cả về mặt thời gian lẫn thao tác, khiến cho công việc xử lý hay thiết kế các bảng biểu, dữ liệu được trau chuốt, đồng nhất và đẹp mắt hơn. Với sứ mệnh: Mang cơ hội phát triển kỹ năng, phát triển nghề nghiệp tới hàng triệu người , đội ngũ phát triển chúng tôi đã và đang làm việc với những học viện, trung tâm đào tạo, các chuyên gia đầu ngành để nghiên cứu và xây dựng lên các chương trình đào tạo từ cơ bản đến chuyên sâu xung quanh các lĩnh vực: Tin học văn phòng, Phân tích dữ liệu, Thiết kế, Công nghệ thông tin, Kinh doanh, Marketing, Quản lý dự án Gitiho tự hào khi được đồng hành cùng:
Nếu bạn quan tâm đến các khóa tin học văn phòng của Gitiho, với mong muốn giỏi tin học để tăng năng suất làm việc lên gấp 5 lần, hãy truy cập ngay --- Bài cũ hơn --- Cập nhật thông tin chi tiết về Cách Xóa Các Định Dạng Thiết Kế Rác (Delete Styles) Trong Excel Phiên Bản 2010, 2013, 2021 trên website Hoisinhvienqnam.edu.vn. Hy vọng nội dung bài viết sẽ đáp ứng được nhu cầu của bạn, chúng tôi sẽ thường xuyên cập nhật mới nội dung để bạn nhận được thông tin nhanh chóng và chính xác nhất. Chúc bạn một ngày tốt lành! |
