Bạn hoàn toàn có thể sử dụng đa số mã code này ngay cả khi bạn chưa từng sử dụng VBA trước đây.
Bạn đang xem: Top 12+ thư viện code vba trong excel mới nhất 2022
Đang xem: thư viện vba excel
Nhưng điều trước tiên phải biết là:
Mã Macro là gì?
Trong Excel, mã macro là 1 mã xây dựng được viết bằng ngôn từ VBA (Visual Basic for Applications).
Ý tưởng phía sau việc áp dụng mã là để tự động hóa một hành động mà nếu như không bạn đề nghị thực hiện bằng tay trong Excel.
Ví dụ, bạn cũng có thể sử dụng một mã chỉ nhằm in một phạm vi ô rõ ràng chỉ với một cú click chuột thay bởi chọn theo trang bị tự -> file Tab -> Print -> Print Select -> OK Button.
Sử dụng mã Macro vào Excel
Trước khi sử dụng những mã này, bảo đảm an toàn rằng các bạn có Developer Tab trên thanh Excel để truy vấn VB Editor.
Sau khi bạn kích hoạt Developer Tab…
… bạn cũng có thể sử dụng các bước dưới đây để dán mã VBA vào VB Editor.
Di chuyển cho developer tab của chúng ta và nhấp lựa chọn “Visual Basic”.
Phía phía bên trái trên “Project Window”, bấm chuột phải vào tên workbook của chúng ta và chèn vào một trong những module mới.
Dán mã code của công ty vào vào module đó và đóng lại.
Bây giờ, dịch rời đến developer tab và click chuột vào Macro.
Macro đang hiển thị một cửa sổ danh sách những macro có trong tệp của bạn, từ bỏ đó chúng ta có thể chạy những macro gồm trong list đó.
Basic
Formatting
Printing
Worksheet
Workbook
Pivot Table
Charts
Advanced
Formulas
BASIC CODE
Những mã code VBA này để giúp đỡ bạn triển khai một số các bước cơ phiên bản trong nháy đôi mắt mà chúng ta thường làm cho trên bảng tính.
Add Serial Numbers (đánh số thự từ bỏ tự động)
Code macro này để giúp đỡ bạn bổ sung số serial tự động hóa trên trang Excel.
Sau khi chúng ta chạy mã macro này, màn hình sẽ hiển thị input box để bạn nhập tối phần nhiều serial với sau đó, nó đã chèn các số vào cột theo sản phẩm công nghệ tự.
Sub AddSerialNumbers()
Dim i As Integer
On Error GoTo Last
i = InputBox(“Enter Value”, “Enter Serial Numbers”)
For i = 1 khổng lồ i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last:Exit Sub
End Sub
Add Multiple Columns (chèn cột)
Sau khi chạy mã macro, màn hình hiển thị sẽ hiển thị một đầu vào box và bạn phải nhập số cột mà bạn có nhu cầu chèn.
Sub InsertMultipleColumns()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireColumn.Select
On Error GoTo Last
i = InputBox(“Enter number of columns to insert”, “Insert Columns”)
For j = 1 to lớn i
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last:Exit Sub
End Sub
Add Multiple Rows (chèn dòng)
Sau lúc chạy mã macro, màn hình sẽ hiển thị một đầu vào box và các bạn phải nhập số mặt hàng mà bạn có nhu cầu chèn.
Sub InsertMultipleRows()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox(“Enter number of columns khổng lồ insert”, “Insert
Columns”)
For j = 1 khổng lồ i
Selection.Insert Shift:=xlToDown,
CopyOrigin:=xlFormatFromRightorAbove
Next j
Last:Exit Sub
End Sub
Auto Fit Columns (tự hễ canh các cột)
Nhanh chóng tự động hóa khớp toàn bộ các sản phẩm trong worksheet của bạn.
Mã macro này sẽ chọn tất cả các ô vào worksheet và auto khớp tức thì lập tức những cột.
Sub AutoFitColumns()
Cells.Select
Cells.EntireColumn.AutoFit
End Sub
Auto Fit Rows (tự động canh những dòng)
Bạn có thể sử dụng mã code này để auto khớp toàn bộ các hàng trong worksheet.
Khi bạn chạy mã này, nó đã chọn tất cả các ô trong worksheet và tự động khớp tức thì lập tức các hàng.
Sub AutoFitRows()
Cells.Select
Cells.EntireRow.AutoFit
End Sub
Remove Text Wrap (bỏ chế độ wrap text)
Mã code này sẽ giúp đỡ bạn xóa text wrap khỏi cục bộ worksheet với một cái nhấp chuột. Đầu tiên nó sẽ chọn tất cả các cột và tiếp đến xóa text wrap và tự động hóa khớp các hàng với cột.
Sub RemoveWrapText()
Cells.Select
Selection.WrapText = False
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit
End Sub
Unmerge Cells (không kết nối các ô)
Chọn các ô và chạy mã này, nó sẽ không còn sát nhập toàn bộ các ô vừa chọn với tài liệu bị mất của bạn.
Sub UnmergeCells()
Selection.UnMerge
End Sub
Open Calculator (mở máy vi tính trên excel)
Trong cửa sổ có một thiết bị tính ví dụ và sử dụng mã macro này, chúng ta có thể mở máy vi tính trực tiếp từ bỏ Excel cho vấn đề tính toán.
Sub OpenCalculator()
Application.ActivateMicrosoftApp Index:=0
End Sub
Add Header/Footer Date (thêm ngày sinh hoạt chân trang/đầu trang)
Sử dụng mã này để bổ sung ngày vào phần header cùng footer vào worksheet.
Bạn có thể điều chỉnh mã này để đổi từ header quý phái footer.
Sub dateInHeader()
With ustone.com.vnSetup
.LeftHeader = “”
.CenterHeader = “&D”
.RightHeader = “”
.LeftFooter = “”
.CenterFooter = “”
.RightFooter = “”
End With
ustone.com.vn = xlNormalView
End Sub
Custom Header/Footer (chèn đầu trang/chân trang theo ý bạn)
Nếu bạn có nhu cầu chèn header tùy chỉnh cấu hình thì đây là một mã giành riêng cho bạn.
Chạy mã này, nhập giá chỉ trị thiết lập vào input đầu vào box. Để biến hóa liên kết của header hoặc footer, chúng ta có thể điều chỉnh mã.
Sub customHeader()
Dim myText As Stringmy
Text = InputBox(“Enter your text here”, “Enter Text”)
With ustone.com.vnSetup
.LeftHeader = “”
.CenterHeader = myText
.RightHeader = “”
.LeftFooter = “”
.CenterFooter = “”
.RightFooter = “”
End With
End Sub
Formatting Codes
Những mã VBA này để giúp đỡ bạn định dạng những ô với phạm vi bằng phương pháp sử dụng một số tiêu chuẩn và điều kiện cụ thể.
Highlight Duplicates from Selection (tô màu những ô cùng quý giá trong vùng được chọn)
Mã macro này sẽ kiểm tra mỗi ô chúng ta chọn cùng làm trông rất nổi bật các giá trị trùng lặp.
Bạn cũng có thể có thể chuyển đổi màu dung nhan từ mã này.
Sub HighlightDuplicateValues()
Dim myRange As Range
Dim myCell As Range
Set myRange = Selection
For Each myCell In myRange
If ustone.com.vntIf(myRange, ustone.com.vne) > 1 Then
myCell.Interior.ColorIndex = 36
End If
Next myCell
End Sub
Highlight the Active Row và Column
Đây là những bước để tiến hành mã code này cấp tốc chóng.
Mở VBE (ALT + F11).Di chuyển đến Project Explorer (Crtl + R, If hidden).Chọn workbook của công ty và nhấp đúp con chuột vào tên một worksheet ví dụ mà bạn muốn kích hoạt mã macro.Dán mã vào kia và lựa chọn “BeforeDoubleClick” từ bỏ (event drop down menu).Đóng VBE và các bạn đã trả thành.
Hãy chú ý rằng, khi áp dụng mã macro này bạn sẽ không thể điều chỉnh ô bằng phương pháp nhấp lưu ban chuột.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
Dim strRange As String
strRange = ustone.com.vness & “,” ustone.com.vness và “,” và _
Target.Cells.EntireRow.Address
Range(strRange).Select
End Sub
Highlight vị trí cao nhất 10 Values
Chỉ chọn 1 phạm vi và chạy mã macro này cùng nó đã làm trông rất nổi bật top 10 values với màu xanh.
Sub TopTen()
Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).S
tFirstPriority
With ustone.com.vnatConditions(1)
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
End With
With ustone.com.vnatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With ustone.com.vnatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Highlight Named Ranges
Nếu bạn không chắc chắn bao nhiêu phạm vi được chỉ định trong worksheet của doanh nghiệp thì chúng ta có thể sử dụng mã này để làm nổi nhảy chúng.
Sub HighlightRanges()
Dim RangeName As Name
Dim HighlightRange As Range
On Error Resume Next
For Each RangeName In ustone.com.vns
Set HighlightRange = ustone.com.vnrsToRange
HighlightRange.Interior.ColorIndex = 36
Next RangeName
End Sub
Highlight Greater than Values
Sau lúc chạy mã này, nó sẽ yêu ước giá trị mà bạn muốn làm rất nổi bật các giá bán trị phệ hơn.
Sub HighlightGreaterThanValues()
Dim i As Integer
i = InputBox(“Enter Greater Than Value”, “Enter Value”)
Selection.FormatConditions.Delete
ustone.com.vn Type:=xlCellValue,
Operator:=xlGreater, Formula1:=i
Selection.FormatConditions(Selection.FormatConditions.Count).S
tFirstPriority
With ustone.com.vnatConditions(1)
.Font.Color = RGB(0, 0, 0)
.Interior.Color = RGB(31, 218, 154)
End With
End Sub
Highlight Lower than Values
Sau khi chạy mã này, nó đã yêu cầu giá trị mà bạn muốn làm trông rất nổi bật các quý hiếm thấp hơn.
Sub HighlightLowerThanValues()
Dim i As Integer
i = InputBox(“Enter Lower Than Value”, “Enter Value”)
Selection.FormatConditions.Delete
ustone.com.vn Type:=xlCellValue,
Operator:=xlLower, Formula1:=i
Selection.FormatConditions(Selection.FormatConditions.Count).S
tFirstPriority
With ustone.com.vnatConditions(1)
.Font.Color = RGB(0, 0, 0)
.Interior.Color = RGB(217, 83, 79)
End With
End Sub
Highlight Negative Numbers
Chọn một pham vi những ô và chạy mã này. Nó sẽ kiểm tra mỗi ô trong phạm vi này và làm trông rất nổi bật tất cả các ô tất cả (negative numbers).
Sub highlightNegativeNumbers()
Dim Rng As Range
For Each Rng In Selection
If ustone.com.vnmber(Rng) Then
If ustone.com.vn
Rng.Font.Color= -16776961
End If
End If
Next
End Sub
Highlight Specific Text
Giả sử các bạn có một tệp tài liệu lớn và bạn muốn kiểm tra một giá trị rứa thể. Vào trường hòa hợp này, chúng ta cũng có thể sử dụng mã này. Khi chúng ta chạy nó, màn hình sẽ hiện đầu vào box để các bạn nhập giá bán trị muốn tìm kiếm.
Sub highlightValue()
Dim myStr As String
Dim myRg As Range
Dim myTxt As String
Dim myCell As Range
Dim myChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ustone.com.vnt> 1 Then
myTxt= ustone.com.vnessLocal
Else
myTxt= ustone.com.vnessLocal
End If
LInput: phối myRg= ustone.com.vntBox(“please select the data
range:”, “Selection Required”, myTxt, , , , , 8)
If myRg Is Nothing Then
Exit Sub
If ustone.com.vn > 1 Then
MsgBox”not tư vấn multiple columns” GoToLInput
End If
If ustone.com.vn 2 Then
MsgBox”the selected range can only contain two columns “
GoTo LInput
End If
For I = 0 lớn ustone.com.vnt-1
myStr= ustone.com.vne(“B1”).Offset(I, 0).Value
With ustone.com.vne(“A1”).Offset(I, 0)
.Font.ColorIndex= 1
For J = 1 to Len(.Text)
Mid(.Text, J, Len(myStr)) = myStrThen
.Characters(J, Len(myStr)).Font.ColorIndex= 3
Next
End With
Next I
End Sub
Highlight Cells with Comments
Để làm trông rất nổi bật tất cả những ô với việc thực hiện comments macro này.
Sub highlightCommentCells()
Selection.SpecialCells(xlCellTypeComments).Select
Selection.Style= “Note”
End Sub
Highlight Alternate Rows in the Selection
Với việc làm rất nổi bật các hàng nuốm thế, chúng ta cũng có thể dễ dàng đọc dữ liệu hơn. Và bởi điều này, chúng ta cũng có thể sử dụng mã VBA bên dưới. Mã chỉ đơn giản làm trông rất nổi bật mỗi hàng thay thế sửa chữa trong phạm vi được chọn.
Sub highlightAlternateRows()
Dim rng As Range
For Each rng In ustone.com.vn
If ustone.com.vnod 2 = 1 Then
rng.Style= “20% -Accent1”
rng.Value= rng^ (1 / 3)
Else
End If
Next rng
End Sub
Highlight Cells with Misspelled Words
Nếu bạn chạm mặt khó khăn trong bài toán kiểm tra toàn bộ các sản phẩm về lỗi chủ yếu tả thì đó là một mã dành cho bạn. Mã sẽ kiểm soát mỗi ô được lựa chọn và làm rất nổi bật ô kia khi tất cả lỗi chủ yếu tả.
Sub HighlightMisspelledCells()
Dim rng As Range
For Each rng In ustone.com.vnRange
If Not ustone.com.vnkSpelling(word:=rng.Text) Then
rng.Style= “Bad” end If
Next rng
End Sub
Highlight Cells With Error in the Entire Worksheet
Mã này sẽ giúp đỡ bạn làm khá nổi bật và đếm toàn bộ các ô bao gồm lỗi.
Chỉ câu hỏi chạy mã này và mã vẫn trả lại một thông báo có số ô lỗi với làm rất nổi bật tất cả các ô đó.
Sub highlightErrors()
Dim rng As Range
Dim i As Integer
For Each rng In ustone.com.vnRange
If ustone.com.vnror(rng) Then
i = i + 1 ustone.com.vn = “bad”
End If
Next rng
MsgBox “There are total ” & i & ” error(s) in this worksheet.”
End Sub
Highlight Cells with a Specific Text in Worksheet
Mã này sẽ giúp đỡ bạn đếm các ô có mức giá trị cụ thể mà các bạn sẽ đề cập và sau đó, mã đang làm khá nổi bật tất cả các ô đó.
Xem thêm: Phần Mềm Nội Suy 2 Chiều Bằng Excel Nội Suy Nhanh, File Excel Nội Suy 2 Chiều
Sub highlightSpecificValues()
Dim rng As Range
Dim i As Integer
Dim c As Variant
c = InputBox(“Enter Value lớn Highlight”)
For Each rng In ustone.com.vnRange
If rng = c Then
rng.Style = “Note”
i = i + 1
End If
Next rng
MsgBox “There are total ” và i &” “& c & ” in this worksheet.”
End Sub
Highlight all the Blank Cells Invisible Space
Đôi khi bao gồm ô trống tuy vậy chúng bao gồm một khoảng trống duy tốt nhất và vì chưng vậy, sẽ tương đối khó để nhận ra chúng. Mã này để giúp bạn kiểm tra toàn bộ các ô trong worksheet và làm trông rất nổi bật các ô có tầm khoảng trống độc nhất định.
Sub blankWithSpace()
Dim rng As Range
For Each rng In ustone.com.vnRange
If ustone.com.vn = ” ” Then
rng.Style = “Note”
End If
Next rng
End Sub
Highlight Max Value In The Range
Mã này sẽ kiểm tra toàn bộ các ô được chọn và làm rất nổi bật ô đó với cái giá trị mập nhất.
Sub highlightMaxValue()
Dim rng As Range
For Each rng In Selection
If rng = ustone.com.vn(Selection) Then
rng.Style = “Good”
End If
Next rng
End Sub
Highlight Min Value In The Range
Mã đã kiểm tra toàn bộ các ô được chọn và làm rất nổi bật ô đó với cái giá trị nhỏ nhất.
Sub highlightMinValue()
Dim rng As Range
For Each rng In Selection
If rng = ustone.com.vn(Selection) Then
rng.Style = “Good”
End If
Next rng
End Sub
Highlight chất lượng Values
Các mã này sẽ làm trông rất nổi bật tất cả các ô được chọn mà có giá trị duy nhất.
Sub highlightUniqueValues()
Dim rng As Range
Set rng = Selection
rng.FormatConditions.Delete
Dim uv As UniqueValues
Set uv = ustone.com.vnniqueValues
uv.DupeUnique = xlUnique
uv.Interior.Color = vbGreen
End Sub
Highlight Difference in Columns
Sử dụng mã này bạn có thể làm trông rất nổi bật sự biệt lập giữa 2 cột (các ô tương ứng).
Sub columnDifference()
Range(“H7:H8,I7:I8”).Select
Selection.ColumnDifferences(ActiveCell).Select
Selection.Style= “Bad”
End Sub
Highlight Difference in Rows
Sử dụng mã này bạn cũng có thể làm khá nổi bật sự không giống nhau giữa 2 mặt hàng (các ô tương ứng).
Sub rowDifference()
Range(“H7:H8,I7:I8”).Select
Selection.RowDifferences(ActiveCell).Select
Selection.Style= “Bad”
End Sub
Printing Codes
Những mã macro này sẽ giúp đỡ bạn auto in một số quá trình mà hoàn toàn có thể tiết kiệm rất nhiều thời gian.
Print Comments
Sử dụng mã macro này kích hoạt thiết lập để in (cell comments) nghỉ ngơi cuối trang. Ví dụ chúng ta phải in 10 trang, sau khoản thời gian sử dụng mã này các bạn sẽ nhận được toàn bộ comments sinh hoạt trang sau cùng thứ 11.
Sub printComments()
With ustone.com.vnSetup
.printComments= xlPrintSheetEnd
End With
End Sub
Print Narrow Margin
Sử dụng mã VBA này để in giấy bao gồm lề hẹp. Khi bạn chạy mã macro này, mã sẽ tự động thay thay đổi lề thành hẹp.
Sub printNarrowMargin()
With ustone.com.vnSetup
.LeftMargin= Application
.InchesToPoints(0.25)
.RightMargin= ustone.com.vnesToPoints(0.25)
.TopMargin= ustone.com.vnesToPoints(0.75)
.BottomMargin= ustone.com.vnesToPoints(0.75)
.HeaderMargin= ustone.com.vnesToPoints(0.3)
.FooterMargin= ustone.com.vnesToPoints(0.3)
End With
ActiveWindow.SelectedSheets.PrintOutCopies:=1, Collate:=True,
IgnorePrintAreas:=False
End Sub
Print Selection
Mã này để giúp đỡ bạn in phạm vi được chọn. Các bạn không nên phải dịch rời đến mục printing options và thiết đặt phạm vi in. Bạn chỉ việc lựa chọn một phạm vi cùng chạy mã này.
Sub printSelection()
Selection.PrintOutCopies:=1, Collate:=True
End Sub
Print Custom Pages
Thay vì chưng sử dụng setup từ print options, bạn cũng có thể sử dụng mã này nhằm in phạm vi trang điều chỉnh.
Ví dụ bạn có nhu cầu từ trang 5 mang đến trang10. Bạn chỉ việc chạy mã VBA này với nhập trang bắt đầu và trang kết thúc.
Sub printCustomSelection()
Dim startpageAs Integer
Dim endpageAs Integer
startpage= InputBox(“Please Enter Start Page number.”, “Enter
Value”)
If Not ustone.com.vnmber(startpage) Then
MsgBox”Invalid Start Page number. Please try again.”, “Error”
Exit Sub
End If
endpage= InputBox(“Please Enter end Page number.”, “Enter
Value”)
If Not ustone.com.vnmber(endpage) Then
MsgBox”Invalid kết thúc Page number. Please try again.”, “Error”
Exit Sub
End If
Selection.PrintOutFrom:=startpage, To:=endpage, Copies:=1,
Collate:=True
End Sub
Worksheet Codes
Những mã macro này sẽ giúp bạn kiểm soát và quản lý worksheets theo một cách đơn giản dễ dàng và ngày tiết kiệm không hề ít thời gian.
Hide all but the Active Worksheet
Ví dụ bạn muốn ẩn tất cả các worksheets trong workbook của công ty ngoài worksheet đang hoạt động. Mã macro này sẽ giúp bạn làm cho điều này.
Sub HideWorksheet()
Dim ws As Worksheet
For Each ws In ustone.com.vnsheets
If ws.Name ustone.com.vn Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub
Unhide all Hidden Worksheets
Mã này giành riêng cho việc nếu bạn muốn hiển thị toàn bộ các worksheets mà bạn đã ẩn trong nhưng mà trước.
Sub UnhideAllWorksheet()
Dim ws As Worksheet
For Each ws In ustone.com.vnsheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Delete all but the Active Worksheet
Mã này khôn cùng hữu ích cho mình nếu bạn có nhu cầu xóa toàn bộ các worksheet ko kể sheet đang hoạt động.
Khi bạn chạy mã này, mã sẽ đối chiếu tên workwheet đang hoạt động với các worksheet không giống và tiếp nối xóa chúng.
Sub DeleteWorksheets()
Dim ws As Worksheet
For Each ws In ustone.com.vnsheets
If ws.name ustone.com.vn Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
End Sub
Protect all Worksheets Instantly
Đây là mã dành cho chính mình nếu bạn có nhu cầu protect những worksheet chỉ vào một lần.
Khi chạy mã macro này, bạn sẽ nhận được một input đầu vào box để nhập password. Sau thời điểm nhập password, click OK. And make sure khổng lồ take care about CAPS.
Sub ProtectAllWorskeets()
Dim ws As Worksheet
Dim ps As String
ps = InputBox(“Enter a Password.”, vbOKCancel)
For Each ws In ustone.com.vnsheets
ws.Protect Password:=ps
Next ws
End Sub
Resize All Charts in a Worksheet.
Tạo các chart có cùng một kích cỡ. Mã macro này để giúp đỡ bạn tạo tất cả các chart gồm chung kích cỡ. Chúng ta cũng có thể thay đổi độ cao và chiều rộng của chart bằng cách thay thay đổi nó vào mã macro.
Sub Resize_Charts()
Dim i As Integer
For i = 1 to lớn ustone.com.vnt
With ustone.com.vntObjects(i)
.Width = 300
.Height = 200
End With
Next i
End Sub
Insert Multiple Worksheets
Bạn rất có thể sử dụng mã này nếu bạn muốn thêm những worksheet trong workbook của khách hàng chỉ trong một bước.
Khi chúng ta chạy mã macro này, các bạn sẽ nhận được input đầu vào box nhằm nhập toàn bô sheet mà bạn muốn nhập.
Sub InsertMultipleSheets()
Dim i As Integer
i = InputBox(“Enter number of sheets to lớn insert.”, “Enter
Multiple Sheets”)
ustone.com.vn After:=ActiveSheet, Count:=i
End Sub
Protect worksheet
Nếu bạn có nhu cầu protect worksheet, bạn cũng có thể sử dụng mã này.
Bạn chỉ cần nhập password của bạn vào vào mã.
Sub ProtectWS()
ActiveSheet.Protect “mypassword”, True, True
End Sub
Un-Protect Worksheet
Nếu bạn không thích protect worksheet, chúng ta có thể sử dụng mà lại macro này.
Bạn chỉ việc nhập password mà chúng ta đã thực hiện khi protect worksheet của bạn.
Sub UnprotectWS()
ActiveSheet.Unprotect “mypassword”
End Sub
Sort Worksheets
Mã này để giúp đỡ bạn sắp xếp worksheets trong workbook phụ thuộc tên của worksheet.
Sub SortWorksheets()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
iAnswer = MsgBox(“Sort Sheets in Ascending Order?” & Chr(10) _
& “Clicking No will sort in Descending Order”, _
vbYesNoCancel + vbQuestion + vbDefaultButton1, “Sort
Worksheets”)
For i = 1 khổng lồ ustone.com.vnt
For j = 1 lớn ustone.com.vn – 1
If iAnswer = vbYes Then
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name)
Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub
Protect all the Cells With Formulas
Bạn có thể sử dụng mã này để protect cell with formula chỉ cách một cú click chuột.
Sub lockCellsWithFormulas()
With ActiveSheet
.Unprotect
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect AllowDeletingRows:=True
End With
End Sub
Delete all Blank Worksheets
Chạy mã này với mã đã kiểm tra toàn bộ các worksheets trong workbook đang vận động và xóa chúng nếu gồm một worksheet trống.
Sub deleteBlankWorksheets()
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating= False
Application.DisplayAlerts= False
For Each Ws In ustone.com.vnsheets
If ustone.com.vntA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Application.ScreenUpdating= True
Application.DisplayAlerts= True
End Sub
Unhide all Rows & Columns
Thay bởi vì hiển thị từng hàng và cột một bí quyết thủ công, chúng ta cũng có thể sử dụng mã này để thực hiện chỉ trong một bước.
Sub UnhideRowsColumns()
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
End Sub
Save Each Worksheet as a Single PDF
mã này chỉ dễ dàng lưu tất cả worksheet vào một trong những tệp PDF riêng. Các bạn chỉ cần biến đổi tên tệp từ mã này.
Sub SaveWorkshetAsPDF()
Dimws As Worksheet
For Each ws In ustone.com.vnrtAsFixedFormat xlTypePDF,
“ENTER-FOLDER-NAME-HERE” & ws.Name và “.pdf” Nextws
End Sub
Disable Page Breaks
Bạn hoàn toàn có thể sử dụng mã này để loại bỏ hóa ngắt trang. Mã đơn giản dễ dàng chỉ loại bỏ hóa ngắt trang từ các workbook đã mở.
Sub DisablePageBreaks()
Dim wbAs Workbook
Dim wksAs Worksheet
Application.ScreenUpdating= False
For Each wbIn ustone.com.vnbooks
For Each ShtIn ustone.com.vnlayPageBreaks= False
Next Sht
Next wb
Application.ScreenUpdating= True
End Sub
Workbook Codes
Những mã này để giúp bạn tiến hành các công việc workbook một cách đơn giản dễ dàng và chưa phải tốn những công sức.
Create a Backup of a Current Workbook
Đây là trong số những mã macro hữu dụng nhất rất có thể giúp các bạn lưu một tệp hỗ trợ cho workbook của bạn.
Mã đang lưu một tệp hỗ trợ trực tiếp với tệp bây giờ được lưu với mã cũng sẽ bổ sung cập nhật ngày với tên của tệp.
Sub FileBackUp()
ThisWorkbook.SaveCopyAs Filename:=ustone.com.vn & _
“” & Format(Date, “mm-dd-yy”) & ” ” & _
ThisWorkbook.name
End Sub
Close all Workbooks at Once
Bạn sử dụng mã này nhằm đóng toàn bộ các workbook đã mở.
Đầu tiên, mã sẽ soát sổ từng workbook một với đóng bọn chúng lại. Giả dụ có bất kỳ worksheet nào không được lưu, bạn sẽ nhận được thông tin để lưu.
Sub CloseAllWorkbooks()
Dim wbs As Workbook
For Each wbs In Workbooks
wbs.Close SaveChanges:=True
Next wb
End Sub
Copy Active Worksheet into a New Workbook
Ví dụ, nếu bạn có nhu cầu sao chép worksheet đang chuyển động vào một workbook mới, bạn chỉ việc chạy mã macro và mã sẽ tiến hành cho bạn.
Điều này huyết kiệm rất nhiều thời gian.
Sub CopyWorksheetToNewWorkbook()
ustone.com.vn _
Before:=Workbooks.Add.Worksheets(1)
End Sub
Active Workbook in an Email
Sử dụng mã macro này nhằm gửi active workbook của chúng ta bằng thư điện tử một cách nhanh chóng.
Bạn có thể biến hóa tên, email, nội dung trong mã và nếu bạn có nhu cầu gửi trực tiếp e-mail này, sử dụng “.Send” thay vì “.Display”.
