Một số maccro thông dụng trong excel Phần 1


Mình có sử dụng một số macro thông dụng trong excel, mà mình thấy rất là hữu ích trong việc giảm kích thước của file excel, hiển thị các sheet ẩn mà mình không sử dụng đến lên và xóa bỏ nó đi!

// Hien thi tat ca cac Sheet an trong 1 file excel

Sub UnhideAllSheets()

   Dim wsSheet As Worksheet

   For Each wsSheet In ActiveWorkbook.Worksheets

       wsSheet.Visible = xlSheetVisible

   Next wsSheet

End Sub

 

//Hien thi cac Sheet trong excel (minh chon sheet)

Sub UnhideSomeSheets()

   Dim sSheetName As String

   Dim sMessage As String

   Dim Msgres As VbMsgBoxResult

   For Each wsSheet In ActiveWorkbook.Worksheets

       If wsSheet.Visible = xlSheetHidden Then

           sSheetName = wsSheet.Name

           sMessage = “Ban co muon Unhide sheet nay khong ?” _

             & vbNewLine & sSheetName

           Msgres = MsgBox(sMessage, vbYesNo)

           If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible

       End If

   Next wsSheet

End Sub

 

//Paste Value

Sub PasteVal()

    Selection.PasteSpecial Paste:=xlValues

End Sub

Advertisements
%d bloggers like this: