Sửa Code copy sheet để có tốc độ cao hơn? (1 người xem)

[nqdn2010]

Tôi có 1 tập tin đính kèm, khi thực thi lệnh nó chạy như "rùa"; có lẽ do sheet chứa dữ liệu nhiều. Xin các Thầy chỉ ra nguyên nhân và cách khắc phục. Nếu có Code mới cải thiện tốc độ hơn thì quá tốt. Cám ơn!

 

[Bảy Dzõ]

Tôi có 1 tập tin đính kèm, khi thực thi lệnh nó chạy như "rùa"; có lẽ do sheet chứa dữ liệu nhiều. Xin các Thầy chỉ ra nguyên nhân và cách khắc phục. Nếu có Code mới cải thiện tốc độ hơn thì quá tốt. Cám ơn!

Bạn ơi, bạn kiểm tra lại cái "Tôi có 1 tập tin đính kèm" giùm nhé.... Thân

 

[nqdn2010]

Xin lỗi! Không biết bị gì, gởi hoài không được! Bạn xem lại "giùm" (Excel 2010)

 

[Crystal Rose]

Bạn ơi, mình mở file lên và click vào nút tạo trang nhưng không thấy phản ứng gì cả.

 

[nqdn2010]

Bạn ơi, mình mở file lên và click vào nút tạo trang nhưng không thấy phản ứng gì cả.

Lạ vậy mình vẫn mở bình thường, bạn thử lại nhé.(Mình Win 7 - Office Excel 2010)

 

[Crystal Rose]

Lạ vậy mình vẫn mở bình thường, bạn thử lại nhé.(Mình Win 7 - Office Excel 2010)

mình thử nhiều lần rồi. Mình cũng win7, office2010. Những file khác mình mở vẫn bình thường mà.

 

[nqdn2010]

mình thử nhiều lần rồi. Mình cũng win7, office2010. Những file khác mình mở vẫn bình thường mà.

Khó hiểu thật mình vừa mới thử! Bạn tạo CommandButton khác đi

 

[ptm0412]

Bạn copy vùng dữ liệu của sheet1 (Mon TD), paste vào 1 sheet mới, (nhớ đừng copy cả sheet), rồi xóa sheet cũ đi. Dùng sheet mới làm chuẩn để tạo sheet khác.

Cái sheet cũ của bạn bị lỗi gì đó mà tôi xóa dòng thừa không được, xóa cột thừa không được, trong khi chính dòng thừa, cột thừa sinh ra lỗi copy chậm.

Khuyến cáo:

Không tô màu nguyên dòng nguyên cột
Muốn xóa màu xanh đỏ tím vàng, thì chọn nofill, và chỉ chọn vùng cần xóa, không tô màu trắng và cũng không tô khối nguyên cột nguyên dòng.

 

[nqdn2010]

Cám ơn bạn nhiều, mình đã làm theo cách bạn chỉ:

Bạn copy vùng dữ liệu của sheet1 (Mon TD), paste vào 1 sheet mới, (nhớ đừng copy cả sheet), rồi xóa sheet cũ đi. Dùng sheet mới làm chuẩn để tạo sheet khác.

Cái sheet cũ của bạn bị lỗi gì đó mà tôi xóa dòng thừa không được, xóa cột thừa không được, trong khi chính dòng thừa, cột thừa sinh ra lỗi copy chậm.

Khuyến cáo:

Không tô màu nguyên dòng nguyên cột
Muốn xóa màu xanh đỏ tím vàng, thì chọn nofill, và chỉ chọn vùng cần xóa, không tô màu trắng và cũng không tô khối nguyên cột nguyên dòng.

Ok! ngon lành rồi. Có code nào hay hơn không bạn? ("Có voi đòi Hai bà trưng" 1 chút nhe! thông cảm! Hi! Hi!)
Thân chào

 

[ptm0412]

Ngon lành và chạy như chớp thì không có, vì thao tác copy không thể rút ngắn. Tuy vậy cải thiện 1 chút thì được:

Private Sub CB1_Click()
Dim i As Integer
Dim b As Integer
Dim q
q = Worksheets.Count
b = Val(TB1.Value)
If b > Val(LB2.Caption) Then MsgBox "Chi co the tao " & LB2.Caption & " thoi!": Exit Sub
Application.ScreenUpdating = False
Sheet3.Visible = True
    For i = 1 To b
        Sheet3.Copy Before:=Sheets(q)
        ActiveSheet.Name = "tdmon" & (q - 32 + i)
        ActiveSheet.Visible = True
    Next
    Me.Hide
Sheet3.Visible = False
Application.ScreenUpdating = True
End Sub