Các Đoạn Code Hay Trong Excel

quý khách hàng hoàn toàn có thể sử dụng những mã code này trong cả khi bạn trước đó chưa từng thực hiện VBA trước đó.

Bạn đang xem: Các đoạn code hay trong excel

Nhưng điều đầu tiên phải biết là:

Mã Macro là gì?

Trong Excel, mã macro là một mã lập trình sẵn được viết bằng ngôn ngữ VBA (Visual Basic for Applications).

Ý tưởng phía sau vấn đề áp dụng mã là để tự động hóa một hành vi nhưng còn nếu như không bạn cần triển khai thủ công trong Excel.

lấy một ví dụ, chúng ta cũng có thể sử dụng một mã chỉ để in một phạm vi ô ví dụ chưa đến một cú bấm chuột nạm vị lựa chọn theo thứ từ bỏ -> File Tab -> Print -> Print Select -> OK Button.

Sử dụng mã Macro vào Excel

Trước Lúc sử dụng hầu hết mã này, đảm bảo rằng các bạn bao gồm Developer Tab trên tkhô giòn Excel nhằm truy vấn VB Editor.

Sau khi chúng ta kích hoạt Developer Tab…

… chúng ta cũng có thể thực hiện quá trình tiếp sau đây cần nên dán mã VBA vào VB Editor.

Di chuyển mang đến developer tab của khách hàng với nhấp lựa chọn “Visual Basic”.

*

Phía phía trái bên trên “Project Window”, nhấn vào đề nghị vào tên workbook của chúng ta cùng ckém vào một trong những module new.

*

Dán mã code của công ty vào trong module đó và đóng góp lại.

*

Bây giờ đồng hồ, di chuyển mang lại developer tab và click chuột vào Macro.

*

Macro sẽ hiển thị một hành lang cửa số list những macro bao gồm vào tệp của công ty, tự kia chúng ta cũng có thể chạy các macro tất cả trong list kia.

*

Basic

Formatting

Printing

Worksheet

Workbook

Pivot Table

Charts

Advanced

Formulas

BASIC CODE

Những mã code VBA này để giúp đỡ chúng ta thực hiện một số các bước cơ bạn dạng vào nháy mắt mà lại các bạn hay làm trên bảng tính.

Add Serial Numbers (khắc số thự từ từ động)

Code macro này để giúp đỡ chúng ta bổ sung cập nhật số serial tự động trên trang Excel.

Sau khi chúng ta chạy mã macro này, screen sẽ hiển thị đầu vào box để bạn nhập buổi tối đa số serial và kế tiếp, nó đã ckém những số vào cột theo máy từ bỏ.

Sub AddSerialNumbers()

Dyên ổn i As Integer

On Error GoTo Last

i = InputBox("Enter Value", "Enter Serial Numbers")

For i = 1 To i

ActiveCell.Value = i

ActiveCell.Offset(1, 0).Activate

Next i

Last:Exit Sub

End Sub

Add Multiple Columns (ckém cột)

Sau lúc chạy mã macro, màn hình hiển thị sẽ hiển thị một input box và bạn bắt buộc nhập số cột mà bạn có nhu cầu ckém.

Sub InsertMultipleColumns()

Dlặng i As Integer

Dyên ổn j As Integer

ActiveCell.EntireColumn.Select

On Error GoTo Last

i = InputBox("Enter number of columns lớn insert", "Insert Columns")

For j = 1 To i

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove

Next j

Last:Exit Sub

End Sub

Add Multiple Rows (chèn dòng)

Sau khi chạy mã macro, screen sẽ hiển thị một input box cùng bạn đề nghị nhập số sản phẩm cơ mà bạn có nhu cầu cnhát.

Sub InsertMultipleRows()

Dyên i As Integer

Dlặng j As Integer

ActiveCell.EntireRow.Select

On Error GoTo Last

i = InputBox("Enter number of columns lớn insert", "Insert

Columns")

For j = 1 To i

Selection.Insert Shift:=xlToDown,

CopyOrigin:=xlFormatFromRightorAbove

Next j

Last:Exit Sub

End Sub

Auto Fit Columns (tự động canh các cột)

Nhanh hao cchờ tự động khớp tất cả những sản phẩm trong worksheet của người tiêu dùng.

Mã macro này đang lựa chọn tất cả những ô vào worksheet cùng tự động hóa khớp tức thì chớp nhoáng các cột.

Sub AutoFitColumns()

Cells.Select

Cells.EntireColumn.AutoFit

End Sub

Aukhổng lồ Fit Rows (auto canh những dòng)

Bạn có thể thực hiện mã code này để auto khớp toàn bộ những hàng trong worksheet.

Lúc bạn chạy mã này, nó đang lựa chọn tất cả các ô trong worksheet cùng auto khớp tức thì mau chóng những mặt hàng.

Sub AutoFitRows()

Cells.Select

Cells.EntireRow.AutoFit

End Sub

Remove Text Wrap (quăng quật chính sách wrap text)

Mã code này để giúp đỡ chúng ta xóa text wrap khỏi tổng thể worksheet với một chiếc bấm chuột. Thứ nhất nó vẫn chọn toàn bộ các cột với tiếp đến xóa text wrap và auto khớp những hàng cùng cột.

Sub RemoveWrapText()

Cells.Select

Selection.WrapText = False

Cells.EntireRow.AutoFit

Cells.EntireColumn.AutoFit

End Sub

Unmerge Cells (ko kết nối những ô)

Chọn những ô và chạy mã này, nó sẽ không gần kề nhập toàn bộ những ô vừa lựa chọn với tài liệu bị mất của bạn.

Sub UnmergeCells()

Selection.UnMerge

End Sub

mở cửa Calculator (mngơi nghỉ máy vi tính trên excel)

Trong hành lang cửa số có một laptop ví dụ cùng áp dụng mã macro này, chúng ta có thể mlàm việc laptop thẳng trường đoản cú Excel mang đến vấn đề tính toán thù.

Sub OpenCalculator()

Application.ActivateMicrosoftApp Index:=0

End Sub

Add Header/Footer Date (thêm ngày ở chân trang/đầu trang)

Sử dụng mã này nhằm bổ sung ngày vào phần header với footer vào worksheet.

quý khách rất có thể kiểm soát và điều chỉnh mã này nhằm đổi từ header quý phái footer.

Sub dateInHeader()

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = "&D"

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

End With

ActiveWindow.View = xlNormalView

End Sub

Custom Header/Footer (chèn đầu trang/dưới trang theo ý bạn)

Nếu bạn có nhu cầu cnhát header tùy chỉnh thiết lập thì đấy là một mã dành riêng cho mình.

Chạy mã này, nhập quý hiếm cấu hình thiết lập vào input đầu vào box. Để đổi khác link của header hoặc footer, chúng ta cũng có thể điều chỉnh mã.

Sub customHeader()

Dlặng myText As Stringmy

Text = InputBox("Enter your text here", "Enter Text")

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = myText

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

End With

End Sub

Formatting Codes

Những mã VBA này để giúp bạn định hình những ô và phạm vi bằng cách thực hiện một vài tiêu chuẩn chỉnh với điều kiện rõ ràng.

Highlight Duplicates from Selection (đánh màu sắc những ô thuộc giá trị vào vùng được chọn)

Mã macro này đang kiểm tra mỗi ô các bạn lựa chọn cùng làm cho khá nổi bật những quý hiếm giống nhau.

Quý khách hàng cũng có thể biến đổi màu sắc từ mã này.

Sub HighlightDuplicateValues()

Dyên myRange As Range

Dlặng myCell As Range

Set myRange = Selection

For Each myCell In myRange

If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then

myCell.Interior.ColorIndex = 36

End If

Next myCell

End Sub

Highlight the Active sầu Row & Column

Đây là các bước để thực hiện mã code này hối hả.

Mngơi nghỉ VBE (ALT + F11).Di gửi cho Project Explorer (Crtl + R, If hidden).Chọn workbook của người sử dụng và nhấp đúp loài chuột vào tên một worksheet cụ thể nhưng bạn muốn kích hoạt mã macro.Dán mã vào đó cùng chọn “BeforeDoubleClick” tự (event drop down menu).Đóng VBE và các bạn sẽ ngừng.

Hãy xem xét rằng, khi áp dụng mã macro này bạn sẽ quan trọng kiểm soát và điều chỉnh ô bằng phương pháp nhấp đúp chuột.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,

Cancel As Boolean)

Dyên strRange As String

strRange = Target.Cells.Address và "," Target.Cells.EntireColumn.Address & "," & _

Target.Cells.EntireRow.Address

Range(strRange).Select

End Sub

Highlight Top 10 Values

Chỉ lựa chọn một phạm vi và chạy mã macro này cùng nó đã làm trông rất nổi bật trang đầu values cùng với blue color.

Sub TopTen()

Selection.FormatConditions.AddTop10

Selection.FormatConditions(Selection.FormatConditions.Count).S

tFirstPriority

With Selection.FormatConditions(1)

.TopBottom = xlTop10Top

.Rank = 10

.Percent = False

End With

With Selection.FormatConditions(1).Font

.Màu sắc = -16752384

.TintAndShade = 0

End With

With Selection.FormatConditions(1).Interior

.PatternColorIndex = xlAutomatic

.Color = 13561798

.TintAndShade = 0

End With

Selection.FormatConditions(1).StopIfTrue = False

End Sub

Highlight Named Ranges

Nếu chúng ta ko chắc chắn là bao nhiêu phạm vi được hướng dẫn và chỉ định trong worksheet của doanh nghiệp thì bạn cũng có thể thực hiện mã này để làm khá nổi bật chúng.

Sub HighlightRanges()

Dlặng RangeName As Name

Dlặng HighlightRange As Range

On Error Resume Next

For Each RangeName In ActiveWorkbook.Names

Set HighlightRange = RangeName.RefersToRange

HighlightRange.Interior.ColorIndex = 36

Next RangeName

End Sub

Highlight Greater than Values

Sau lúc chạy mã này, nó vẫn những hiểu biết cực hiếm mà lại bạn muốn làm rất nổi bật các cực hiếm to hơn.

Sub HighlightGreaterThanValues()

Dlặng i As Integer

i = InputBox("Enter Greater Than Value", "Enter Value")

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlCellValue,

Operator:=xlGreater, Formula1:=i

Selection.FormatConditions(Selection.FormatConditions.Count).S

tFirstPriority

With Selection.FormatConditions(1)

.Font.màu sắc = RGB(0, 0, 0)

.Interior.màu sắc = RGB(31, 218, 154)

End With

End Sub

Highlight Lower than Values

Sau lúc chạy mã này, nó đã yêu cầu quý hiếm cơ mà bạn có nhu cầu làm cho rất nổi bật những quý hiếm rẻ rộng.

Sub HighlightLowerThanValues()

Dyên i As Integer

i = InputBox("Enter Lower Than Value", "Enter Value")

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlCellValue,

Operator:=xlLower, Formula1:=i

Selection.FormatConditions(Selection.FormatConditions.Count).S

tFirstPriority

With Selection.FormatConditions(1)

.Font.màu sắc = RGB(0, 0, 0)

.Interior.Color = RGB(217, 83, 79)

End With

End Sub

Highlight Negative sầu Numbers

Chọn một pmê man vi các ô và chạy mã này. Nó đã kiểm soát từng ô trong phạm vi này với có tác dụng khá nổi bật toàn bộ những ô gồm (negative sầu numbers).

Sub highlightNegativeNumbers()

Dyên ổn Rng As Range

For Each Rng In Selection

If WorksheetFunction.IsNumber(Rng) Then

If Rng.Value

Rng.Font.Color= -16776961

End If

End If

Next

End Sub

Highlight Specific Text

Giả sử chúng ta tất cả một tệp dữ liệu béo cùng bạn có nhu cầu kiểm tra một giá trị ví dụ. Trong trường vừa lòng này, chúng ta có thể thực hiện mã này. Lúc chúng ta chạy nó, màn hình hiển thị đang hiện input box để các bạn nhập quý hiếm ý muốn kiếm tìm kiếm.

Sub highlightValue()

Dlặng myStr As String

Dim myRg As Range

Dlặng myTxt As String

Dyên myCell As Range

Dlặng myChar As String

Dyên ổn I As Long

Dim J As Long

On Error Resume Next

If ActiveWindow.RangeSelection.Count> 1 Then

myTxt= ActiveWindow.RangeSelection.AddressLocal

Else

myTxt= ActiveSheet.UsedRange.AddressLocal

End If

LInput: Set myRg= Application.InputBox("please select the data

range:", "Selection Required", myTxt, , , , , 8)

If myRg Is Nothing Then

Exit Sub

If myRg.Areas.Count > 1 Then

MsgBox"not tư vấn multiple columns" GoToLInput

End If

If myRg.Columns.Count 2 Then

MsgBox"the selected range can only contain two columns "

GoTo LInput

End If

For I = 0 To myRg.Rows.Count-1

myStr= myRg.Range("B1").Offset(I, 0).Value

With myRg.Range("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ả các ô với Việc áp dụng 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 nổi bật những hàng thay thế, bạn cũng có thể thuận lợi hiểu dữ liệu hơn. Và vày điều đó, bạn có thể áp dụng mã VBA bên dưới. Mã chỉ đơn giản có tác dụng nổi bật từng mặt hàng thay thế vào phạm vi được lựa chọn.

Sub highlightAlternateRows()

Dyên rng As Range

For Each rng In Selection.Rows

If rng.RowMod 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 các bạn gặp mặt khó khăn trong việc đánh giá tất cả những sản phẩm về lỗi chính tả thì đó là một mã dành cho bạn. Mã sẽ soát sổ từng ô được chọn và có tác dụng trông rất nổi bật ô kia khi tất cả lỗi chủ yếu tả.

Sub HighlightMisspelledCells()

Dyên ổn rng As Range

For Each rng In ActiveSheet.UsedRange

If Not Application.CheckSpelling(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 cho rất nổi bật với đếm toàn bộ những ô bao gồm lỗi.

Chỉ việc chạy mã này với mã sẽ trả lại một thông báo hiện đang có số ô lỗi và có tác dụng trông rất nổi bật tất cả những ô đó.

Sub highlightErrors()

Dyên rng As Range

Dyên ổn i As Integer

For Each rng In ActiveSheet.UsedRange

If WorksheetFunction.IsError(rng) Then

i = i + 1 rng.Style = "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 để giúp đỡ bạn đếm các ô có mức giá trị cụ thể nhưng mà các bạn sẽ đề cập cùng tiếp đến, mã đang làm rất nổi bật toàn bộ những ô kia.

Xem thêm: Download Phần Mềm Dự Toán Acitt Miễn Phí, Phần Mềm Dự Toán Dự Thầu F1 Miễn Phí

Sub highlightSpecificValues()

Dyên rng As Range

Dyên ổn i As Integer

Dim c As Variant

c = InputBox("Enter Value To Highlight")

For Each rng In ActiveSheet.UsedRange

If rng = c Then

rng.Style = "Note"

i = i + 1

End If

Next rng

MsgBox "There are total " & i &" "và c và " in this worksheet."

End Sub

Highlight all the Blank Cells Invisible Space

Thông thường bao hàm ô trống cơ mà chúng gồm một khoảng không tốt nhất cùng vị vậy, sẽ khá cực nhọc để nhận ra chúng. Mã này để giúp chúng ta đánh giá tất cả các ô vào worksheet và làm cho nổi bật những ô có tầm khoảng trống nhất thiết.

Sub blankWithSpace()

Dyên ổn rng As Range

For Each rng In ActiveSheet.UsedRange

If rng.Value = " " Then

rng.Style = "Note"

End If

Next rng

End Sub

Highlight Max Value In The Range

Mã này vẫn kiểm soát tất cả các ô được lựa chọn với làm nổi bật ô đó với mức giá trị lớn nhất.

Sub highlightMaxValue()

Dlặng rng As Range

For Each rng In Selection

If rng = WorksheetFunction.Max(Selection) Then

rng.Style = "Good"

End If

Next rng

End Sub

Highlight Min Value In The Range

Mã đang soát sổ toàn bộ các ô được lựa chọn với làm trông rất nổi bật ô kia với cái giá trị nhỏ dại nhất.

Sub highlightMinValue()

Dlặng rng As Range

For Each rng In Selection

If rng = WorksheetFunction.Min(Selection) Then

rng.Style = "Good"

End If

Next rng

End Sub

Highlight Unique Values

Các mã này vẫn có tác dụng nổi bật tất cả những ô được lựa chọn nhưng có giá trị độc nhất vô nhị.

Sub highlightUniqueValues()

Dyên rng As Range

Set rng = Selection

rng.FormatConditions.Delete

Dyên ổn uv As UniqueValues

Set uv = rng.FormatConditions.AddUniqueValues

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 cho 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 chúng ta cũng có thể làm cho rất nổi bật sự khác biệt giữa 2 hàng (những ô 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 chúng ta tự động hóa in một trong những quá trình cơ mà rất có thể tiết kiệm chi phí không hề ít thời hạn.

Print Comments

Sử dụng mã macro này kích hoạt thiết lập nhằm in (cell comments) nghỉ ngơi chân trang. lấy ví dụ chúng ta đề nghị in 10 trang, sau thời điểm thực hiện mã này bạn sẽ nhận ra toàn bộ comments sinh sống trang ở đầu cuối máy 11.

Sub printComments()

With ActiveSheet.PageSetup

.printComments= xlPrintSheetEnd

End With

End Sub

Print Narrow Margin

Sử dụng mã VBA này để in giấy tất cả lề nhỏ. Lúc bạn chạy mã macro này, mã đang tự động đổi khác lề thành thanh mảnh.

Sub printNarrowMargin()

With ActiveSheet.PageSetup

.LeftMargin= Application

.InchesToPoints(0.25)

.RightMargin= Application.InchesToPoints(0.25)

.TopMargin= Application.InchesToPoints(0.75)

.BottomMargin= Application.InchesToPoints(0.75)

.HeaderMargin= Application.InchesToPoints(0.3)

.FooterMargin= Application.InchesToPoints(0.3)

End With

ActiveWindow.SelectedSheets.PrintOutCopies:=1, Collate:=True,

IgnorePrintAreas:=False

End Sub

Print Selection

Mã này để giúp đỡ chúng ta in phạm vi được lựa chọn. Quý Khách không nhất thiết phải dịch rời cho mục printing options cùng cài đặt phạm vi in. các bạn chỉ câu hỏi 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

Txuất xắc vì sử dụng cài đặt từ print options, chúng ta có thể sử dụng mã này để in phạm vi trang kiểm soát và điều chỉnh.

lấy một ví dụ bạn muốn trường đoản cú trang 5 đến trang10. Quý khách hàng chỉ cần chạy mã VBA này với nhập trang bắt đầu với trang xong xuôi.

Sub printCustomSelection()

Dyên ổn startpageAs Integer

Dim endpageAs Integer

startpage= InputBox("Please Enter Start Page number.", "Enter

Value")

If Not WorksheetFunction.IsNumber(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 WorksheetFunction.IsNumber(endpage) Then

MsgBox"Invalid End 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 chúng ta kiểm soát và quản lý worksheets theo một cách đơn giản và tiết kiệm ngân sách và chi phí rất nhiều thời hạn.

Hide all but the Active sầu Worksheet

lấy ví dụ bạn có nhu cầu ẩn tất cả các worksheets vào workbook của bạn xung quanh worksheet đang hoạt động. Mã macro này để giúp đỡ các bạn làm vấn đề này.

Sub HideWorksheet()

Dyên ổn ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name ThisWorkbook.ActiveSheet.Name Then

ws.Visible = xlSheetHidden

End If

Next ws

End Sub

Unhide all Hidden Worksheets

Mã này dành cho vấn đề ví như bạn muốn hiển thị toàn bộ các worksheets cơ mà chúng ta đã ẩn vào nhưng mà trước.

Sub UnhideAllWorksheet()

Dyên ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

Delete all but the Active sầu Worksheet

Mã này rất hữu dụng cho mình trường hợp bạn có nhu cầu xóa toàn bộ các worksheet quanh đó sheet đang vận động.

lúc các bạn chạy mã này, mã đã đối chiếu thương hiệu workwheet đang hoạt động với những worksheet khác cùng tiếp nối xóa bọn chúng.

Sub DeleteWorksheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.name ThisWorkbook.ActiveSheet.name 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 mình nếu như bạn có nhu cầu protect những worksheet chỉ trong một đợt.

lúc chạy mã macro này, bạn sẽ cảm nhận một input box nhằm nhập password. Sau khi nhập password, click OK. And make sure to take care about CAPS.

Sub ProtectAllWorskeets()

Dyên ws As Worksheet

Dyên ps As String

ps = InputBox("Enter a Password.", vbOKCancel)

For Each ws In ActiveWorkbook.Worksheets

ws.Protect Password:=ps

Next ws

End Sub

Reform size All Charts in a Worksheet.

Tạo những chart có cùng một form size. mã macro này để giúp các bạn tạo thành tất cả những chart bao gồm tầm thường size. Quý Khách rất có thể biến hóa độ cao với chiều rộng lớn của chart bằng phương pháp chuyển đổi nó vào mã macro.

Sub Resize_Charts()

Dim i As Integer

For i = 1 To ActiveSheet.ChartObjects.Count

With ActiveSheet.ChartObjects(i)

.Width = 300

.Height = 200

End With

Next i

End Sub

Insert Multiple Worksheets

quý khách hàng có thể sử dụng mã này ví như bạn có nhu cầu thêm các worksheet trong workbook của bạn chỉ trong một bước.

khi chúng ta chạy mã macro này, các bạn sẽ nhận thấy đầu vào box nhằm nhập tổng thể sheet nhưng mà bạn muốn nhập.

Sub InsertMultipleSheets()

Dlặng i As Integer

i = InputBox("Enter number of sheets lớn insert.", "Enter

Multiple Sheets")

Sheets.Add After:=ActiveSheet, Count:=i

End Sub

Protect worksheet

Nếu bạn có nhu cầu protect worksheet, bạn cũng có thể thực hiện mã này.

Bạn chỉ việc nhập password của doanh nghiệp vào vào mã.

Sub ProtectWS()

ActiveSheet.Protect "mypassword", True, True

End Sub

Un-Protect Worksheet

Nếu bạn không muốn protect worksheet, bạn có thể sử dụng mà lại macro này.

Quý Khách chỉ việc nhập password mà bạn đã áp dụng lúc protect worksheet của người tiêu dùng.

Sub UnprotectWS()

ActiveSheet.Unprotect "mypassword"

End Sub

Sort Worksheets

Mã này sẽ giúp đỡ các bạn sắp xếp worksheets trong workbook phụ thuộc vào tên của worksheet.

Sub SortWorksheets()

Dyên ổn i As Integer

Dlặng j As Integer

Dlặng iAnswer As VbMsgBoxResult

iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _

và "Clicking No will sort in Descending Order", _

vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort

Worksheets")

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If iAnswer = vbYes Then

If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then

Sheets(j).Move sầu After:=Sheets(j + 1)

End If

ElseIf iAnswer = vbNo Then

If UCase$(Sheets(j).Name)

Sheets(j).Move sầu After:=Sheets(j + 1)

End If

End If

Next j

Next i

End Sub

Protect all the Cells With Formulas

quý khách hoàn toàn có thể thực hiện mã này nhằm protect cell with formula chưa đến 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 cùng mã đã kiểm soát tất cả các worksheets vào workbook vẫn hoạt động cùng xóa chúng nếu như tất cả một worksheet trống.

Sub deleteBlankWorksheets()

Dyên Ws As Worksheet

On Error Resume Next

Application.ScreenUpdating= False

Application.DisplayAlerts= False

For Each Ws In Application.Worksheets

If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then

Ws.Delete

End If

Next

Application.ScreenUpdating= True

Application.DisplayAlerts= True

End Sub

Unhide all Rows and Columns

Txuất xắc vày hiển thị từng sản phẩm và cột một giải pháp thủ công bằng tay, chúng ta cũng có thể sử dụng mã này để triển khai chỉ vào 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ỉ đơn giản dễ dàng lưu lại tất cả worksheet vào một trong những tệp PDF riêng biệt. Quý khách hàng chỉ cần chuyển đổi thương hiệu tệp tự mã này.

Sub SaveWorkshetAsPDF()

Dimws As Worksheet

For Each ws In Worksheetsws.ExportAsFixedFormat xlTypePDF,

“ENTER-FOLDER-NAME-HERE" & ws.Name & ".pdf" Nextws

End Sub

Disable Page Breaks

quý khách rất có thể áp dụng mã này nhằm vô hiệu hóa hóa ngắt trang. Mã dễ dàng chỉ vô hiệu hóa ngắt trang tự những workbook vẫn mnghỉ ngơi.

Sub DisablePageBreaks()

Dyên ổn wbAs Workbook

Dlặng wksAs Worksheet

Application.ScreenUpdating= False

For Each wbIn Application.Workbooks

For Each ShtIn wb.WorksheetsSht.DisplayPageBreaks= False

Next Sht

Next wb

Application.ScreenUpdating= True

End Sub

Workbook Codes

Những mã này sẽ giúp bạn thực hiện các các bước workbook một biện pháp dễ dàng và đơn giản cùng không phải tốn các công sức của con người.

Create a Backup of a Current Workbook

Đây là một trong trong những mã macro hữu ích độc nhất vô nhị có thể giúp đỡ bạn lưu giữ một tệp cung cấp mang đến workbook của bạn.

Mã vẫn lưu giữ một tệp cung cấp thẳng cùng với tệp bây giờ được giữ và mã cũng trở nên bổ sung cập nhật ngày với thương hiệu của tệp.

Sub FileBackUp()

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path và _

"" & Format(Date, "mm-dd-yy") và " " và _

ThisWorkbook.name

End Sub

Cthất bại all Workbooks at Once

Quý khách hàng sử dụng mã này để đóng góp toàn bộ các workbook đang mnghỉ ngơi.

Đầu tiên, mã vẫn khám nghiệm từng workbook một và đóng chúng lại. Nếu có ngẫu nhiên worksheet nào chưa được lưu, bạn sẽ cảm nhận thông tin để lưu.

Sub CloseAllWorkbooks()

Dlặng wbs As Workbook

For Each wbs In Workbooks

wbs.Cthua SaveChanges:=True

Next wb

End Sub

Copy Active sầu Worksheet inkhổng lồ a New Workbook

lấy ví dụ như, giả dụ bạn có nhu cầu coppy worksheet vẫn vận động vào trong 1 workbook new, bạn chỉ cần chạy mã macro và mã sẽ tiến hành cho bạn.

Vấn đề này tiết kiệm không ít thời gian.

Sub CopyWorksheetToNewWorkbook()

ThisWorkbook.ActiveSheet.Copy _

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 người sử dụng bởi tin nhắn một biện pháp hối hả.

Quý khách hàng rất có thể chuyển đổi tên, email, ngôn từ vào mã và giả dụ bạn muốn gửi trực tiếp gmail này, áp dụng “.Send” cụ vì “.Display”.