Em có file excel này của em rất chậm và đơ, tuần trước làm vẫn bình thường mà sang tuần này không ai làm nổi.
1 số máy mở lên thì đơ không mở được, 1 số thì mở được nhưng làm các thao tác rất chậm.
Các bác xem giúp em bị lỗi gì và sửa giúp em được không ạ.
Em cảm ơn.
pass file: ht
Em có file excel này của em rất chậm và đơ, tuần trước làm vẫn bình thường mà sang tuần này không ai làm nổi.
1 số máy mở lên thì đơ không mở được, 1 số thì mở được nhưng làm các thao tác rất chậm.
Các bác xem giúp em bị lỗi gì và sửa giúp em được không ạ.
Em cảm ơn.
pass file: ht
Góp ý cho bạn: Có 2 nguyên nhân chính làm cho File chạy ì ạch.
1/ Sheet LDD sơi chứa quá nhiều Shapes (xem hình), nhấn Ctrl + G > Spacial > chọn Objects > OK xong nhấn nút Delete (để xóa tất cả các Shapes).
2/ Sử dụng quá nhiều sheet có chứa hàm, phần nào dùng rồi thì Paste > Value và chỉ chừa hàm vài dòng cuối.
3/ Giải pháp khác là chuyển sang dùng VBA và nên đăng bài trong Box Lập trình với Excel, tiêu đề có thể là "Giúp thiết kế lại File với 1 sheet mẫu Lệnh điều động và lưu dữ liệu vào 1 sheet theo dõi".
- Lệnh điều động chỉ làm 1 sheet mẫu và dùng nó để in và lưu dữ liệu vào sheet theo dõi.
- Các thứ khác cũng làm sheet mẫu và lưu theo dõi (bạn theo dõi quá nhiều sheet), làm tăng dung lượng File vô ích mà việc tổng hợplại vô cùng khó khăn.
Bạn nên nhờ các thành viên trợ giúp, khi được trợ giúp xong rồi thì đem File này biểu diễn cho người ta xem khi thấy nhanh, lẹ, hiệu quả chắc chắn sẽ được áp dụng cho Công ty.
Nếu bạn báo cáo chưa rành rọt người ta không hiểu chắc là khó được chấp thuận.
Em có file excel này của em rất chậm và đơ, tuần trước làm vẫn bình thường mà sang tuần này không ai làm nổi.
1 số máy mở lên thì đơ không mở được, 1 số thì mở được nhưng làm các thao tác rất chậm.
Các bác xem giúp em bị lỗi gì và sửa giúp em được không ạ.
Em cảm ơn.
pass file: ht
Góp ý cho bạn: Có 2 nguyên nhân chính làm cho File chạy ì ạch.
1/ Sheet LDD sơi chứa quá nhiều Shapes (xem hình), nhấn Ctrl + G > Spacial > chọn Objects > OK xong nhấn nút Delete (để xóa tất cả các Shapes).
2/ Sử dụng quá nhiều sheet có chứa hàm, phần nào dùng rồi thì Paste > Value và chỉ chừa hàm vài dòng cuối.
3/ Giải pháp khác là chuyển sang dùng VBA và nên đăng bài trong Box Lập trình với Excel, tiêu đề có thể là "Giúp thiết kế lại File với 1 sheet mẫu Lệnh điều động và lưu dữ liệu vào 1 sheet theo dõi".
- Lệnh điều động chỉ làm 1 sheet mẫu và dùng nó để in và lưu dữ liệu vào sheet theo dõi.
- Các thứ khác cũng làm sheet mẫu và lưu theo dõi (bạn theo dõi quá nhiều sheet), làm tăng dung lượng File vô ích mà việc tổng hợplại vô cùng khó khăn.
Em làm theo cách trên của bác nhưng không được ạ. Đã tất cả sheet có shapes những vẫn bị đơ ạ. File năm 2018 cũng nguyên như vậy nhưng lại mở bình thường. Em không biết do đâu ạ.
Có cao nhân nào sửa giúp em được không ?
Cảm ơn bác. Đây là file bên kế toán bị lỗi nhờ em xem có phải virus không?
Em làm iT chuyên sửa phần cứng máy tính và hỗ trợ 1 số thôi chứ không đi sâu vào Excel được nhiều.
@chuyentau91
File của bạn bị đơ có thể là do trong file có 1 số ô công thức có liên kết tới 1 file bên ngoài.
Bạn thử làm theo cách sau xem có hết hay không :
- Tạo 1 sheet mới, đặt tên sheet là "TEST"
- Copy doạn code dưới đây
- Nhấn alt + F11 --> nhấn alt + I + M --> nhấn ctrl + V
- Nhấn alt + Q
- Nhấn alt + F8 chạy macro
Chờ 1 lát, kết quả sẽ điền vào sheet TEST
Trong sheet TEST : Cột A là tên sheet có liên kết ngoài, các ô bên cột C tương ứng là địa chỉ các ô có liên kết ngoài
Bạn vào các ô trong các sheet đó, xóa thử các dữ liệu rồi đóng file & mở lại xem còn bị đơ hay không. Nếu không còn đơ thì đúng lỗi là do liên kết ngoài sẽ dễ xử lý hơn
Mã:
Option Explicit
Sub TimLienKet()
Dim Ws As Worksheet
Dim Rng As Range
Dim MString
With CreateObject("Scripting.Dictionary")
For Each Ws In Worksheets
For Each Rng In Ws.UsedRange
MString = Rng.Formula
If InStr(MString, "C:\") Then
.Item(Ws.Name) = .Item(Ws.Name) & "|" & Rng.Address
End If
Next Rng
Next Ws
Sheets("TEST").UsedRange.Clear
Sheets("TEST").Range("a1").Resize(.Count, 1) = WorksheetFunction.Transpose(.keys())
Sheets("TEST").Range("c1").Resize(.Count, 1) = WorksheetFunction.Transpose(.items())
End With
End Sub
@chuyentau91
File của bạn bị đơ có thể là do trong file có 1 số ô công thức có liên kết tới 1 file bên ngoài.
Bạn thử làm theo cách sau xem có hết hay không :
- Tạo 1 sheet mới, đặt tên sheet là "TEST"
- Copy doạn code dưới đây
- Nhấn alt + F11 --> nhấn alt + I + M --> nhấn ctrl + V
- Nhấn alt + Q
- Nhấn alt + F8 chạy macro
Chờ 1 lát, kết quả sẽ điền vào sheet TEST
Trong sheet TEST : Cột A là tên sheet có liên kết ngoài, các ô bên cột C tương ứng là địa chỉ các ô có liên kết ngoài
Bạn vào các ô trong các sheet đó, xóa thử các dữ liệu rồi đóng file & mở lại xem còn bị đơ hay không. Nếu không còn đơ thì đúng lỗi là do liên kết ngoài sẽ dễ xử lý hơn
Mã:
Option Explicit
Sub TimLienKet()
Dim Ws As Worksheet
Dim Rng As Range
Dim MString
With CreateObject("Scripting.Dictionary")
For Each Ws In Worksheets
For Each Rng In Ws.UsedRange
MString = Rng.Formula
If InStr(MString, "C:\") Then
.Item(Ws.Name) = .Item(Ws.Name) & "|" & Rng.Address
End If
Next Rng
Next Ws
Sheets("TEST").UsedRange.Clear
Sheets("TEST").Range("a1").Resize(.Count, 1) = WorksheetFunction.Transpose(.keys())
Sheets("TEST").Range("c1").Resize(.Count, 1) = WorksheetFunction.Transpose(.items())
End With
End Sub
