nhờ ace giúp đở tối ưu các dòng lệnh để file k còn nặng nữa (1 người xem)

[viettho]

Hi mọi người,
Mình có tạo một bảng lương khi vào sheet control mình có tạo nút lệnh make pay slip
nó vẫn hoạt động tốt nhưng vấn đề ở chổ file quá nặng mọi người giúp đở giùm mình nhé
thanks mọi người trước

 

[phuyen89]

Hi mọi người,
Mình có tạo một bảng lương khi vào sheet control mình có tạo nút lệnh make pay slip
nó vẫn hoạt động tốt nhưng vấn đề ở chổ file quá nặng mọi người giúp đở giùm mình nhé
thanks mọi người trước

Đoạn code của bạn chuyên copy lần lượt qua các Sheet và Paste Value

Sub Index_All()
End Sub

Có thể dùng đoạn code sau để thay thế:

Sub PasteValueRange()
    Application.ScreenUpdating = False
    Dim wS As Worksheet
    For Each wS In Worksheets
        If wS.Name <> "HS" Or wS.Name <> "BK" Or wS.Name <> "TONG HOP" Or _
            wS.Name <> "SLG" Or wS.Name <> "Control" Then
                If wS.Visible = xlSheetVisible Then
                    wS.Select
                    Cells.Copy
                    Cells.PasteSpecial xlPasteValues
                    Application.CutCopyMode = False
                End If
        End If
    Next wS
    Application.ScreenUpdating = True
End Sub

Còn các đoạn code:

Sub Index_E()

    Call InsertAndCopyPaste("E", "Total_E", "A3:BZ4", 6)
        
    Cells.Select
    Selection.Interior.ColorIndex = xlNone
    Selection.RowHeight = 34
    
End Sub

Mình thấy có thể dùng vòng lặp duyệt qua các Sheet để thực hiện công việc trên, không cần phải dùng nhiều Sub thế đâu.

 

[viettho]

Em cam on anh nhieu de e thu xem the nao. do e moi tap lam nen van chua hieu het thnks