Excel Chạy Rất Chậm

[EAKAR]

Tôi có file này không hiểu sao giờ bị chậm kinh khủng tôi không thể sử dụng được sheet CTDT, tôi đã xử lý objects, chuyển sang định dạng .xlsb cho dung lượng nhẹ, và một số cách nữa trên mạng hướng dẫn nhưng không tiến triển gì. Mong anh em trong diễn đàn hỗ trợ

 

[be_09]

Tôi có file này không hiểu sao giờ bị chậm kinh khủng tôi không thể sử dụng được sheet CTDT, tôi đã xử lý objects, chuyển sang định dạng .xlsb cho dung lượng nhẹ, và một số cách nữa trên mạng hướng dẫn nhưng không tiến triển gì. Mong anh em trong diễn đàn hỗ trợ

Bạn định dạng tá lã, âm binh nên xử lý hơi mệt.

 

[Mazak]

Mình có 1 file này chỉ hơn 232kb mà chạy cũng rất chậm

 

[nguyendinh2019]

Chào bạn!
Đã xóa toàn bộ Objects cho bạn rồi đây
Dùng Excel 2007 thì khó lòng mà xóa được (sẽ bị treo máy vì file này quá nhiều Objects)... Tuy nhiên, nếu bạn Save As thành xls, xong mở file bằng Excel 2003 là có thể xóa thoải mái
Xong chuyện lại Save As thành xlsx...
File của bạn sau khi xóa objects xong, dung lượng còn 135 KB

cứu e với. e kg xóa dc

Bài đã được tự động gộp: 26/2/19

Sheet H có 39697 Object dạng rectangle.
Sheet House có 13495 cái.

Bạn dùng code này để xoá chúng, mỗi lần xoá 1000 cái cho đỡ sốt ruột:

Sub del()
For i = 1 To 1000
   ActiveSheet.Shapes(i).Delete
Next
End Sub

Còn nếu can đảm muốn xem nó là cái giống gì thì chạy code này, thử với 100 cái:

Sub abc()
For i = 1 To 100
    With ActiveSheet.Shapes(i)
        .Left = 0
        .Top = Cells(i, 1).Top
        .Width = Cells(i, 1).Width
        .Height = Cells(i, 1).Height / 2
        .Fill.ForeColor.SchemeColor = 10
    End With
Next
End Sub

dán cái đoạn này vào đâu vậy a? chỉ cụ thể từng bước để dán vào dùm e với

 

[nguyendinh2019]

Sheet H có 39697 Object dạng rectangle.
Sheet House có 13495 cái.

Bạn dùng code này để xoá chúng, mỗi lần xoá 1000 cái cho đỡ sốt ruột:

Sub del()
For i = 1 To 1000
   ActiveSheet.Shapes(i).Delete
Next
End Sub

Còn nếu can đảm muốn xem nó là cái giống gì thì chạy code này, thử với 100 cái:

Sub abc()
For i = 1 To 100
    With ActiveSheet.Shapes(i)
        .Left = 0
        .Top = Cells(i, 1).Top
        .Width = Cells(i, 1).Width
        .Height = Cells(i, 1).Height / 2
        .Fill.ForeColor.SchemeColor = 10
    End With
Next
End Sub

dán cái đoạn này vào đâu vậy a? chỉ cụ thể từng bước để dán vào dùm e với

Tôi chỉ các bạn thêm 1 mẹo đễ nhận biết sự tồn tại của Object... Khi các bạn bấm Ctrl + G\Special\Objects, OK xong, nếu thấy mấy tính im re thì tất nhiên trong file có Object rồi, tuy nhiên rất khó nhìn thấy nó... Vậy lúc này các bạn hãy chọn và tô màu cho nó, sẽ phát hiện dc ngay...
Chẳng hạn như tô màu đỏ, khi ấy ta sẽ thấy có hàng đóng những chấm đỏ li ti trên bảng tính... Nhiều đến mức kéo Scroll bar ko chạy nỗi luôn... Nhưng khi bấm nút Delete trên bàn phím thì bảng tính tự nhiên trở nên mượt mà ngay!
----------------
Lưu ý thêm: Các Object thuộc thanh Control Toolbox thì ko xài chiêu này dc... Trước tiên bạn phải bật chế độ Design Mode lên, sau đó mới thực hiện các bước tôi đã nói ở trên... nếu ko thì dù Object có tồn tại, máy tính vẫn báo "No objects found"
Mến
ANH TUẤN

Nhờ a kiểm tra file này giúp e nó có Objects không a? Nó đơ hoài em không làm việc được luôn. Bị trắng hết màn hình

 

[ptm0412]

Nhờ a kiểm tra file này giúp e nó có Objects không a? Nó đơ hoài em không làm việc được luôn. Bị trắng hết màn hình

Sheet KH DUC TUAN 4-02-2019 có 1.600 object

dán cái đoạn này vào đâu vậy a? chỉ cụ thể từng bước để dán vào dùm e với

Nhấn Alter F11, bên trái chọn workbook đang mở và sheet cần xóa, dán vào bên phải và nhấn F5:



TB: Bạn xem thêm bài #30: https://www.giaiphapexcel.com/diendan/threads/excel-chạy-rất-chậm.8471/post-300335

 

[tieugia7]

Nhờ các bạn giúp đỡ với! mình theo hướng dẫn của mọi người và sử dụng đoạn code VB để làm và nó ra thông báo như vậy? sau khi ấn oke là nó treo máy luôn! nhờ mọi người đưa ra giải pháp giúp mình với, chứ chỉ động 1 cái là thao tác bị đơ ngay

 

[leonguyenz]

Nhờ các bạn giúp đỡ với! mình theo hướng dẫn của mọi người và sử dụng đoạn code VB để làm và nó ra thông báo như vậy? sau khi ấn oke là nó treo máy luôn! nhờ mọi người đưa ra giải pháp giúp mình với, chứ chỉ động 1 cái là thao tác bị đơ ngay

Không chẩn bệnh qua hình ảnh được đâu bạn.

 

[tieugia7]

Không chẩn bệnh qua hình ảnh được đâu bạn.

Mình đã chạy file code như trên này để loại bỏ Object nhưng nhiều quá không chạy nổi bạn à!

PHP:Copy.
Sub del2()
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
For i = ActiveSheet.Shapes.Count to 1 step -1
ActiveSheet.Shapes(i).Delete
Next
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
End Sub
PHP:Copy.
Sub del3()
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
For Each Shp in ActiveSheet.Shapes
Shp.Delete
Next
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
End Sub
Câu lệnh MsgBox là thông báo số object còn lại trước và sau khi chạy code.

Mình đã làm theo hướng dẫn này

 

[leonguyenz]

Mình đã chạy file code như trên này để loại bỏ Object nhưng nhiều quá không chạy nổi bạn à!

PHP:Copy.
Sub del2()
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
For i = ActiveSheet.Shapes.Count to 1 step -1
ActiveSheet.Shapes(i).Delete
Next
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
End Sub
PHP:Copy.
Sub del3()
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
For Each Shp in ActiveSheet.Shapes
Shp.Delete
Next
MsgBox "Còn " & ActiveSheet.Shapes.Count & " ku"
End Sub
Câu lệnh MsgBox là thông báo số object còn lại trước và sau khi chạy code.

Mình đã làm theo hướng dẫn này

Hơn 170k objects mà bạn không khai báo tường minh cho biến Shp và không tắt cập nhật màn hình là đã làm chậm tốc độ xử lý của code.
Thử làm thủ công trước xem: Ctrl+G (hoặc F5) > Go to Special > Objects > OK > phím Delete.

 

[be_09]

Nhờ các bạn giúp đỡ với! mình theo hướng dẫn của mọi người và sử dụng đoạn code VB để làm và nó ra thông báo như vậy? sau khi ấn oke là nó treo máy luôn! nhờ mọi người đưa ra giải pháp giúp mình với, chứ chỉ động 1 cái là thao tác bị đơ ngay

Góp ý cho bạn:
1/ Bạn có bao giờ đưa con đi bác bác sỹ khám bệnh mà chỉ nói là nó bị nóng, sốt chưa?
2/ Để khám thì bác sỹ phải thực hiện một loạt các thao tác: Đo thân nhiệt, khám vòm họng, khám răng, xem chân tay, thân thể xem có chỗ nào trầy xước, chỗ nào có mẫn đỏ, chỗ nào có ung nhọt, nêu không tìm ra được gì thì bác sỹ hỏi tiếp cách đây vài hôm nó có bị té hay không?
3/ Như vậy để biết chắc đứa nhỏ bị cái gì thì bác sỹ phải xem xét tất cả mọi mặt rồi mới phán.
4/ Trường hợp của bạn đưa cái hình lên chẳng nói được điều gì. Trong File có hơn 170 ngàn Objects thì tôi xử lý cách khác chứ không dùng code để xóa nó vì phải chờ quá lâu.

Bài đã được tự động gộp: 5/6/20

Hơn 170k objects mà bạn không khai báo tường minh cho biến Shp và không tắt cập nhật màn hình là đã làm chậm tốc độ xử lý của code.
Thử làm thủ công trước xem: Ctrl+G (hoặc F5) > Go to Special > Objects > OK > phím Delete.

Hơn 170 ngàn Objects nếu máy yếu làm kiểu đó nó treo máy luôn em ơi.
Nếu sử dụng code chắc phải mất 15 phút. Nếu có File thì anh giải quyết bằng cách khác mà không xóa các Objects.

 

[tieugia7]

Góp ý cho bạn:
1/ Bạn có bao giờ đưa con đi bác bác sỹ khám bệnh mà chỉ nói là nó bị nóng, sốt chưa?
2/ Để khám thì bác sỹ phải thực hiện một loạt các thao tác: Đo thân nhiệt, khám vòm họng, khám răng, xem chân tay, thân thể xem có chỗ nào trầy xước, chỗ nào có mẫn đỏ, chỗ nào có ung nhọt, nêu không tìm ra được gì thì bác sỹ hỏi tiếp cách đây vài hôm nó có bị té hay không?
3/ Như vậy để biết chắc đứa nhỏ bị cái gì thì bác sỹ phải xem xét tất cả mọi mặt rồi mới phán.
4/ Trường hợp của bạn đưa cái hình lên chẳng nói được điều gì. Trong File có hơn 170 ngàn Objects thì tôi xử lý cách khác chứ không dùng code để xóa nó vì phải chờ quá lâu.

Bài đã được tự động gộp: 5/6/20

Hơn 170 ngàn Objects nếu máy yếu làm kiểu đó nó treo máy luôn em ơi.
Nếu sử dụng code chắc phải mất 15 phút. Nếu có File thì anh giải quyết bằng cách khác mà không xóa các Objects.

Cảm ơn bạn đã góp ý rất nhiều! Mình đúng là có thiếu sót nhiều thật!
Bạn nói:
(Hơn 170 ngàn Objects nếu máy yếu làm kiểu đó nó treo máy luôn em ơi.
Nếu sử dụng code chắc phải mất 15 phút. Nếu có File thì anh giải quyết bằng cách khác mà không xóa các Objects.)
Có cách xử lý khác? hi vọng bạn giúp đỡ chỉ mình với!

 

[be_09]

Cảm ơn bạn đã góp ý rất nhiều! Mình đúng là có thiếu sót nhiều thật!
Bạn nói:
(Hơn 170 ngàn Objects nếu máy yếu làm kiểu đó nó treo máy luôn em ơi.
Nếu sử dụng code chắc phải mất 15 phút. Nếu có File thì anh giải quyết bằng cách khác mà không xóa các Objects.)
Có cách xử lý khác? hi vọng bạn giúp đỡ chỉ mình với!

Thì nén File đó và gửi lên, nếu gửi lên không được thì đưa lên một trang chia sẽ rồi gán Link vào diễn đàn.
Thông thường để xử lý File nặng người ta phải kiểm tra gần 10 thứ có liên quan rồi mới quyết định đến vấn đề xử lý từ cái nhỏ nhặt nhất, cuối cùng mới xử lý cái vụ Objects (cái lớn nhất), xử lý File nặng (dung lượng lớn) giống như trường hợp ta bứng một cái cây, trước tiên phải dọn dẹp xung quanh gốc, leo lên cây tỉa cành, nhánh, đào bới xung quanh gốc, chặt rễ bao quanh, tìm rễ cọc (rễ trụ) chặt đứt nó khâu cuối cùng dùng cần cẩu câu lên xe..

 

[tieugia7]

Thì nén File đó và gửi lên, nếu gửi lên không được thì đưa lên một trang chia sẽ rồi gán Link vào diễn đàn.
Thông thường để xử lý File nặng người ta phải kiểm tra gần 10 thứ có liên quan rồi mới quyết định đến vấn đề xử lý từ cái nhỏ nhặt nhất, cuối cùng mới xử lý cái vụ Objects (cái lớn nhất), xử lý File nặng (dung lượng lớn) giống như trường hợp ta bứng một cái cây, trước tiên phải dọn dẹp xung quanh gốc, leo lên cây tỉa cành, nhánh, đào bới xung quanh gốc, chặt rễ bao quanh, tìm rễ cọc (rễ trụ) chặt đứt nó khâu cuối cùng dùng cần cẩu câu lên xe..

Bạn à! do thông tin file của mình cần rất quan trọng và cần bảo mật của công ty nên không thể up lên mạng được! Bạn có cách nào xử lý giúp mình xóa object hiệu quả không thì giúp mình với! file bên mình chủ yếu là dạng Text nên mọi người gửi file về toàn copy paste nên mới gây ra lỗi này thôi, nên mình xác định chỉ có lỗi OBJECT này là chủ yếu! Mong bạn thật sự giúp mình nhé! mình cảm ơn rất nhiều

 

[be_09]

Bạn à! do thông tin file của mình cần rất quan trọng và cần bảo mật của công ty nên không thể up lên mạng được! Bạn có cách nào xử lý giúp mình xóa object hiệu quả không thì giúp mình với! file bên mình chủ yếu là dạng Text nên mọi người gửi file về toàn copy paste nên mới gây ra lỗi này thôi, nên mình xác định chỉ có lỗi OBJECT này là chủ yếu! Mong bạn thật sự giúp mình nhé! mình cảm ơn rất nhiều

Vậy thì xóa (Delete) hết dữ liệu chỉ chừa cái tiêu đề rồi tải lên, người ta chỉ giúp bắt bệnh chứ đâu cần dữ liệu.

 

[tieugia7]

Vậy thì xóa (Delete) hết dữ liệu chỉ chừa cái tiêu đề rồi tải lên, người ta chỉ giúp bắt bệnh chứ đâu cần dữ liệu.

đậy bạn nhé! mình xóa hết trong rồi... có gì nhờ bạn nhé!
Tiện thể nhờ bạn chỉ mình khắc phục chi tiết cái nhé!

 

[be_09]

đậy bạn nhé! mình xóa hết trong rồi... có gì nhờ bạn nhé!
Tiện thể nhờ bạn chỉ mình khắc phục chi tiết cái nhé!

Nhận xét về File này:
1/ Trong File nó hiểu sử dụng hết 16384 và đến 13505 dòng.
2/ Bạn không nên tô viềng cả cột từ A: AL (38 cột).
3/ Bạn không nên tô màu cả dòng.
4/ Trong File có 172.621 Objects.
Bây giờ tôi bận rồi để tối tôi rảnh thì mới chỉ cách xử lý.

 

[tieugia7]

Nhận xét về File này:
1/ Trong File nó hiểu sử dụng hết 16384 và đến 13505 dòng.
2/ Bạn không nên tô viềng cả cột từ A: AL (38 cột).
3/ Bạn không nên tô màu cả dòng.
4/ Trong File có 172.621 Objects.
Bây giờ tôi bận rồi để tối tôi rảnh thì mới chỉ các xử lý.

View attachment 238753

Mong bạn giải quyết được và mong hồi âm sớm! Cảm ơn bạn rất nhiều

 

[taotronics2020]

File excel bị chậm do nhiều nguyên nhân lắm.

Cách xử lý về phía file excel thì bạn lên google gõ từ khóa " khắc phục excel chạy chậm " rồi chọn 1 trong 3 kết quả đầu, làm theo hướng dẫn là được

Xử lý về phía máy tính : Bạn xem lại xem máy tính mình có làm sao không rồi tính tiếp ^^