File làm việc bị nặng treo máy.

Blue Softs Liên hệ QC

Thanhlam2425

Thành viên chính thức
Tham gia ngày
23 Tháng mười một 2018
Bài viết
96
Được thích
11
Nhờ các anh chị sử lý giúp em file này nó đang bị béo quá.Với chậm anh chị giúp em cho nó giảm cân với nhanh hơn ạ.
Em cảm ơn.
Do file nặng quá em gửi theo đường link.
 

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
11,974
Được thích
14,620
1/ Chỉnh lại mấy chỗ công thức có tham chiếu vòng.
1626929240428.png

2/ Dữ liệu tham chiếu ngoài quá nhiều, xem cái nào không dùng tới thì bỏ đi.
1626929395004.png
1626929289453.png

3/ Quá nhiều rác

1626929323083.png

4/ Công thức sau khi tính toán xong thì chuyển thành value, giữ lại công thức ở vài dòng cuối để sao chép khi có dữ liệu mới.
 

Thanhlam2425

Thành viên chính thức
Tham gia ngày
23 Tháng mười một 2018
Bài viết
96
Được thích
11
1/ Chỉnh lại mấy chỗ công thức có tham chiếu vòng.
View attachment 262814

2/ Dữ liệu tham chiếu ngoài quá nhiều, xem cái nào không dùng tới thì bỏ đi.
View attachment 262817
View attachment 262815

3/ Quá nhiều rác

View attachment 262816

4/ Công thức sau khi tính toán xong thì chuyển thành value, giữ lại công thức ở vài dòng cuối để sao chép khi có dữ liệu mới.
Em xóa Name rác nó chạy rất lâu mới xong được.Anh có biết vì sao không ạ.Xóa 1 cái mà phải đợi tới 1 phút à.
 

be_09

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,801
Được thích
9,591
Nghề nghiệp
Công chức
Em đã bỏ tắt toàn bộ rồi mà vẫn chậm không hiểu vì sao.
Do copy dữ liệu từ những File từ phần mềm xuất ra nên nó mang sang những thứ không mong muốn, trong File có quá nhiều Link đến File khác, chứa nhiều Name rác, Style rác. Xem hình để hiểu
 

File đính kèm

  • A_Rac.JPG
    A_Rac.JPG
    24 KB · Đọc: 12

Thanhlam2425

Thành viên chính thức
Tham gia ngày
23 Tháng mười một 2018
Bài viết
96
Được thích
11
Do copy dữ liệu từ những File từ phần mềm xuất ra nên nó mang sang những thứ không mong muốn, trong File có quá nhiều Link đến File khác, chứa nhiều Name rác, Style rác. Xem hình để hiểu
Em biết là nó quá nhiều rác nhưng mà khi xóa nó mất nhiều thời gian quá anh.Nó xóa 1 cái name mà mất 1 phút à.
 

OverAC

Đỗ Nguyên Bình
Thành viên BQT
Administrator
Tham gia ngày
30 Tháng năm 2006
Bài viết
2,643
Được thích
14,556
Code để xóa style không phải có sẳn của Excel và Name REF
Mã:
Sub StyleKill()
 Application.Calculation = xlCalculationManual
     Dim bienStyle As Style
     On Error Resume Next
     For Each bienStyle In ActiveWorkbook.Styles
         If Not bienStyle.BuiltIn Then
             If bienStyle.Name <> "1" Then bienStyle.Delete
         End If
     Next bienStyle
    Application.Calculation = xlCalculationAutomatic
 End Sub
Sub DeleteName()
    Application.Calculation = xlCalculationManual
    On Error Resume Next
    For Each nem In ActiveWorkbook.Names
        If InStr(1, nem, "#REF") > 0 Or InStr(1, nem, "/") > 0 Or InStr(1, nem, "\") > 0 Then
            Names(nem.Name).Delete
        End If
    Next
    Application.Calculation = xlCalculationAutomatic
End Sub
 

Thanhlam2425

Thành viên chính thức
Tham gia ngày
23 Tháng mười một 2018
Bài viết
96
Được thích
11
Code để xóa style không phải có sẳn của Excel và Name REF
Mã:
Sub StyleKill()
 Application.Calculation = xlCalculationManual
     Dim bienStyle As Style
     On Error Resume Next
     For Each bienStyle In ActiveWorkbook.Styles
         If Not bienStyle.BuiltIn Then
             If bienStyle.Name <> "1" Then bienStyle.Delete
         End If
     Next bienStyle
    Application.Calculation = xlCalculationAutomatic
 End Sub
Sub DeleteName()
    Application.Calculation = xlCalculationManual
    On Error Resume Next
    For Each nem In ActiveWorkbook.Names
        If InStr(1, nem, "#REF") > 0 Or InStr(1, nem, "/") > 0 Or InStr(1, nem, "\") > 0 Then
            Names(nem.Name).Delete
        End If
    Next
    Application.Calculation = xlCalculationAutomatic
End Sub
Cảm ơn anh chị nhé cho code vào nó xóa name vẫn chậm như vậy.Còn code xóa style thì không xóa được style lần nào cũng thông báo là đã xóa được căn đấy cái.
 

OverAC

Đỗ Nguyên Bình
Thành viên BQT
Administrator
Tham gia ngày
30 Tháng năm 2006
Bài viết
2,643
Được thích
14,556
File của bạn chứa rất nhiều yếu tố gây chậm:
1. Có quá nhiều Name rác, tôi đã xóa giúp, có hơn 3000 name rác
2. Có nhiều style không phải từ microsoft, tôi xóa hết những style kiểu này; có hơn 16000 style
3. Có hơn 400 object ở sheet đầu tiên, tôi xóa hết.
4. Có công thức tham chiếu vòng (circular reference) cái này bạn phải tự xử.
@Thanhlam2425

 

Thanhlam2425

Thành viên chính thức
Tham gia ngày
23 Tháng mười một 2018
Bài viết
96
Được thích
11
File của bạn chứa rất nhiều yếu tố gây chậm:
1. Có quá nhiều Name rác, tôi đã xóa giúp, có hơn 3000 name rác
2. Có nhiều style không phải từ microsoft, tôi xóa hết những style kiểu này; có hơn 16000 style
3. Có hơn 400 object ở sheet đầu tiên, tôi xóa hết.
4. Có công thức tham chiếu vòng (circular reference) cái này bạn phải tự xử.
@Thanhlam2425

Vâng em cảm ơn anh nhé.
 

be_09

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,801
Được thích
9,591
Nghề nghiệp
Công chức
Top Bottom