Cách sử dụng developer trong excel 2010

quý khách hoàn toàn có thể sử dụng gần như mã code này trong cả khi chúng ta trước đó chưa từng áp dụng VBA trước đó.

Bạn đang xem: Cách sử dụng developer trong excel 2010

Nhưng điều thứ nhất phải biết là:

Mã Macro là gì?

Trong Excel, mã macro là 1 trong những mã thiết kế được viết bằng ngôn từ VBA (Visual Basic for Applications).

Ý tưởng đằng sau bài toán áp dụng mã là để auto hóa một hành vi nhưng nếu không bạn phải triển khai thủ công trong Excel.

Ví dụ, bạn có thể thực hiện một mã chỉ để in một phạm vi ô rõ ràng chỉ cách một cú bấm chuột ráng vày lựa chọn theo sản phẩm công nghệ từ bỏ -> File Tab -> Print -> Print Select -> OK Button.

Sử dụng mã Macro trong Excel

Trước lúc áp dụng phần đa mã này, đảm bảo rằng các bạn bao gồm Developer Tab bên trên tkhô nóng Excel nhằm truy cập VB Editor.

Sau khi bạn kích hoạt Developer Tab…

… chúng ta có thể sử dụng công việc dưới đây để dán mã VBA vào VB Editor.

Di đưa đến developer tab của doanh nghiệp với nhấp chọn “Visual Basic”.

*

Phía bên trái trên “Project Window”, bấm chuột bắt buộc vào thương hiệu workbook của bạn cùng cnhát vào một trong những module bắt đầu.

*

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

*

Bây giờ, dịch rời mang lại developer tab và click chuột vào Macro.

*

Macro sẽ hiển thị một cửa sổ list những macro gồm trong tệp của người tiêu dùng, trường đoản cú kia bạn có thể chạy những macro tất cả vào list kia.

*

Basic

Formatting

Printing

Worksheet

Workbook

Pivot Table

Charts

Advanced

Formulas

BASIC CODE

Những mã code VBA này sẽ giúp bạn triển khai một vài công việc cơ bạn dạng trong nháy đôi mắt cơ mà các bạn thường xuyên làm ở bảng tính.

Add Serial Numbers (viết số thự tự từ động)

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

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

Sub AddSerialNumbers()

Dyê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 (cyếu cột)

Sau Lúc chạy mã macro, screen đã hiển thị một input đầu vào box cùng chúng ta đề xuất nhập số cột nhưng bạn muốn chèn.

Sub InsertMultipleColumns()

Dim i As Integer

Dlặng 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 (cnhát dòng)

Sau Lúc chạy mã macro, màn hình đã hiển thị một input đầu vào box với bạn nên nhập số sản phẩm mà lại bạn muốn chèn.

Sub InsertMultipleRows()

Dim i As Integer

Dyên j As Integer

ActiveCell.EntireRow.Select

On Error GoTo Last

i = InputBox("Enter number of columns to 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 những cột)

Nkhô giòn cđợi tự động khớp toàn bộ những hàng trong worksheet của doanh nghiệp.

Mã macro này vẫn chọn tất cả những ô trong worksheet với tự động khớp ngay chớp nhoáng các cột.

Sub AutoFitColumns()

Cells.Select

Cells.EntireColumn.AutoFit

End Sub

Aulớn Fit Rows (tự động hóa canh các dòng)

quý khách hàng hoàn toàn có thể sử dụng mã code này nhằm auto khớp toàn bộ những mặt hàng vào worksheet.

Lúc chúng ta chạy mã này, nó vẫn lựa chọn tất cả các ô vào worksheet với tự động hóa khớp ngay lập tức những 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 toàn cục worksheet cùng với một cái nhấp chuột. trước hết nó sẽ lựa chọn toàn bộ các cột cùng tiếp nối xóa text wrap với 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 liên kết những ô)

Chọn các ô với chạy mã này, nó sẽ không ngay cạnh nhập tất cả những ô vừa chọn cùng với tài liệu bị mất của doanh nghiệp.

Sub UnmergeCells()

Selection.UnMerge

End Sub

xuất hiện Calculator (mnghỉ ngơi máy vi tính bên trên excel)

Trong cửa sổ tất cả một laptop rõ ràng cùng thực hiện mã macro này, bạn cũng có thể msinh sống máy vi tính trực tiếp trường đoản cú Excel đến việc tính tân oán.

Sub OpenCalculator()

Application.ActivateMicrosoftApp Index:=0

End Sub

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

Sử dụng mã này để bổ sung cập nhật ngày vào phần header và footer trong worksheet.

Bạn có thể kiểm soát và điều chỉnh mã này để đổi tự header lịch sự footer.

Sub dateInHeader()

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = "&D"

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

End With

ActiveWindow.View = xlNormalView

End Sub

Custom Header/Footer (ckém đầu trang/dưới trang theo ý bạn)

Nếu bạn muốn ckém header tùy chỉnh thì đó là một mã dành riêng cho chính mình.

Chạy mã này, nhập quý giá tùy chỉnh thiết lập vào đầu vào box. Để chuyển đổi liên kết 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 dạng những ô và phạm vi bằng cách thực hiện một số trong những tiêu chuẩn với điều kiện rõ ràng.

Highlight Duplicates from Selection (tô màu những ô thuộc cực hiếm vào vùng được chọn)

Mã macro này đã chất vấn từng ô các bạn lựa chọn và làm cho khá nổi bật các quý hiếm đụng hàng.

Bạn cũng rất có thể biến hóa Color tự mã này.

Sub HighlightDuplicateValues()

Dlặng myRange As Range

Dim 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 Row & Column

Đây là đông đảo bước để tiến hành mã code này lập cập.

Mnghỉ ngơi VBE (ALT + F11).Di chuyển cho Project Explorer (Crtl + R, If hidden).Chọn workbook của bạn và nhấp đúp chuột vào thương hiệu một worksheet rõ ràng nhưng mà bạn muốn kích hoạt mã macro.Dán mã vào kia và chọn “BeforeDoubleClick” từ (event drop down menu).Đóng VBE với bạn đã ngừng.

Hãy xem xét rằng, Khi áp dụng mã macro này bạn sẽ chẳng thể điều chỉnh ô bằng cách nhấp lưu ban con chuột.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,

Cancel As Boolean)

Dlặng strRange As String

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

Target.Cells.EntireRow.Address

Range(strRange).Select

End Sub

Highlight Top 10 Values

Chỉ chọn 1 phạm vi và chạy mã macro này và nó sẽ làm cho trông rất nổi bật page đầu values cùng với màu xanh.

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

.Màu sắc = 13561798

.TintAndShade = 0

End With

Selection.FormatConditions(1).StopIfTrue = False

End Sub

Highlight Named Ranges

Nếu các bạn không chắc chắn từng nào phạm vi được chỉ định và hướng dẫn vào worksheet của chúng ta thì bạn cũng có thể thực hiện mã này để gia công khá nổi bật bọn chúng.

Sub HighlightRanges()

Dim 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 khi chạy mã này, nó đang đòi hỏi giá trị mà lại bạn muốn làm cho nổi bật những quý hiếm lớn hơn.

Sub HighlightGreaterThanValues()

Dyên 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.Color = RGB(31, 218, 154)

End With

End Sub

Highlight Lower than Values

Sau khi chạy mã này, nó đang đòi hỏi quý hiếm mà lại bạn muốn làm rất nổi bật các cực hiếm phải chăng hơn.

Sub HighlightLowerThanValues()

Dyên ổ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.Color = RGB(0, 0, 0)

.Interior.màu sắc = RGB(217, 83, 79)

End With

End Sub

Highlight Negative sầu Numbers

Chọn một pham mê vi những ô cùng chạy mã này. Nó đã chất vấn mỗi ô trong phạm vi này cùng có tác dụng trông rất nổi bật toàn bộ những ô bao gồm (negative sầu numbers).

Sub highlightNegativeNumbers()

Dlặng 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ử bạn tất cả một tệp dữ liệu lớn với bạn có nhu cầu kiểm tra một giá trị ví dụ. Trong trường đúng theo này, chúng ta cũng có thể thực hiện mã này. khi bạn chạy nó, màn hình sẽ hiện nay đầu vào box để chúng ta nhập quý hiếm mong tra cứu kiếm.

Sub highlightValue()

Dlặng myStr As String

Dyên ổn myRg As Range

Dyên myTxt As String

Dlặng myCell As Range

Dim 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 support 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

Để có tác dụng trông rất nổi bật tất cả những ô cùng với Việc sử 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 khá nổi bật các sản phẩm thay thế sửa chữa, bạn có thể dễ dãi hiểu tài liệu rộng. Và vì chưng vấn đề này, chúng ta cũng có thể thực hiện mã VBA bên dưới. Mã chỉ đơn giản và dễ dàng làm cho trông rất nổi bật mỗi sản phẩm sửa chữa trong phạm vi được chọn.

Sub highlightAlternateRows()

Dim 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 bạn gặp gỡ trở ngại trong vấn đề khám nghiệm toàn bộ các sản phẩm về lỗi chủ yếu tả thì đó là một mã dành cho mình. Mã sẽ chất vấn từng ô được lựa chọn và làm cho khá nổi bật ô kia Lúc có lỗi bao gồm tả.

Sub HighlightMisspelledCells()

Dyê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 để giúp các bạn có tác dụng nổi bật với đếm toàn bộ các ô gồm lỗi.

Chỉ câu hỏi chạy mã này cùng mã đã trả lại một thông báo có số ô lỗi và làm cho trông rất nổi bật tất cả những ô kia.

Sub highlightErrors()

Dim rng As Range

Dim 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 đỡ các bạn đếm những ô có mức giá trị ví dụ mà lại bạn sẽ nhắc cùng tiếp đến, mã đang có tác dụng nổi bật tất cả các ô đó.

Xem thêm: Xem Tử Vi Tuổi Kỷ Mùi Năm 2017 Nam Mạng 1979 Chi Tiết, Xem Tử Vi 2017 Cho Tuổi Kỷ Mùi

Sub highlightSpecificValues()

Dlặng rng As Range

Dim i As Integer

Dlặng 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 " và i &" "và c & " in this worksheet."

End Sub

Highlight all the Blank Cells Invisible Space

thường thì bao gồm ô trống nhưng lại chúng có một khoảng trống tốt nhất cùng vày vậy, sẽ rất cực nhọc nhằm nhận thấy bọn chúng. Mã này sẽ giúp đỡ bạn kiểm tra toàn bộ các ô vào worksheet cùng làm trông rất nổi bật các ô có khoảng trống nhất thiết.

Sub blankWithSpace()

Dim 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 đang kiểm tra tất cả những ô được chọn và làm cho khá nổi bật ô kia với cái giá trị lớn nhất.

Sub highlightMaxValue()

Dim 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 chất vấn tất cả những ô được lựa chọn cùng có tác dụng nổi bật ô đó với cái giá trị bé dại độc nhất.

Sub highlightMinValue()

Dyên ổn 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 đang làm rất nổi bật toàn bộ các ô được lựa chọn nhưng mà có giá trị duy nhất.

Sub highlightUniqueValues()

Dyên ổn rng As Range

Set rng = Selection

rng.FormatConditions.Delete

Dim 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ể có tác dụng khá nổi bật sự khác biệt thân 2 cột (những ô 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ó thể làm nổi bật sự khác biệt giữa 2 sản phẩm (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 chúng ta tự động hóa in một số trong những công việc mà lại có thể tiết kiệm ngân sách 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) sống chân trang. Ví dụ chúng ta bắt buộc in 10 trang, sau khi áp dụng mã này bạn sẽ nhận thấy tất cả comments ngơi nghỉ trang cuối cùng đồ vật 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ề thon. lúc bạn chạy mã macro này, mã vẫn tự động hóa chuyển đổi lề thành thon thả.

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 bạn in phạm vi được lựa chọn. Quý Khách không nhất thiết phải dịch rời mang đến mục printing options và setup phạm vi in. chúng ta chỉ Việc lựa chọn một phạm vi và chạy mã này.

Sub printSelection()

Selection.PrintOutCopies:=1, Collate:=True

End Sub

Print Custom Pages

Thay do thực hiện cài đặt tự print options, bạn cũng có thể áp dụng mã này nhằm in phạm vi trang kiểm soát và điều chỉnh.

Ví dụ bạn muốn từ trang 5 đến trang10. quý khách chỉ cần chạy mã VBA này với nhập trang bước đầu cùng trang kết thúc.

Sub printCustomSelection()

Dlặng 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 đỡ các bạn kiểm soát và điều hành cùng thống trị worksheets theo một bí quyết dễ dàng và đơn giản cùng tiết kiệm ngân sách và chi phí không hề ít thời hạn.

Hide all but the Active sầu Worksheet

Ví dụ bạn có nhu cầu ẩn toàn bộ những worksheets vào workbook của bạn ngoại trừ worksheet vẫn chuyển động. Mã macro này sẽ giúp các bạn có tác dụng 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 riêng cho Việc nếu bạn có nhu cầu hiển thị tất cả những worksheets cơ mà các bạn vẫn ẩn vào nhưng trước.

Sub UnhideAllWorksheet()

Dlặng ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

Delete all but the Active Worksheet

Mã này vô cùng có ích cho bạn nếu như bạn muốn xóa toàn bộ những worksheet ngoại trừ sheet đã vận động.

lúc chúng ta chạy mã này, mã đang so sánh tên workwheet đang vận động cùng với những worksheet khác cùng tiếp nối xóa bọn chúng.

Sub DeleteWorksheets()

Dyên ổn 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 bạn giả dụ bạn muốn protect các worksheet chỉ vào một lần.

lúc chạy mã macro này, các bạn sẽ cảm nhận một input đầu vào box nhằm nhập password. Sau Lúc nhập password, clichồng OK. And make sure to take care about CAPS.

Sub ProtectAllWorskeets()

Dlặng ws As Worksheet

Dyên ổ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 các chart bao gồm và một form size. mã macro này để giúp bạn tạo nên toàn bộ các chart tất cả thông thường kích thước. quý khách hoàn toàn có thể chuyển đổi chiều cao cùng chiều rộng của chart bằng cách chuyển đổi nó trong mã macro.

Sub Resize_Charts()

Dlặng 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 hoàn toàn có thể thực hiện mã này nếu bạn muốn thêm những worksheet vào workbook của chúng ta chỉ vào một bước.

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

Sub InsertMultipleSheets()

Dyên ổn i As Integer

i = InputBox("Enter number of sheets khổng lồ insert.", "Enter

Multiple Sheets")

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

End Sub

Protect worksheet

Nếu bạn có nhu cầu protect worksheet, chúng ta cũng có thể sử dụng mã này.

quý khách chỉ việc nhập password của chúng ta vào vào mã.

Sub ProtectWS()

ActiveSheet.Protect "mypassword", True, True

End Sub

Un-Protect Worksheet

Nếu chúng ta không thích protect worksheet, bạn có thể thực hiện nhưng macro này.

Quý Khách chỉ việc nhập password nhưng bạn vẫn sử dụng Lúc protect worksheet của bạn.

Sub UnprotectWS()

ActiveSheet.Unprotect "mypassword"

End Sub

Sort Worksheets

Mã này để giúp đỡ bạn bố trí worksheets vào workbook dựa vào thương hiệu của worksheet.

Sub SortWorksheets()

Dim i As Integer

Dlặng j As Integer

Dim iAnswer As VbMsgBoxResult

iAnswer = MsgBox("Sort Sheets in Ascending Order?" và 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 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 hàng có thể sử dụng mã này để protect cell with formula chỉ với một cú bấm vào.

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ã đang soát sổ toàn bộ những worksheets vào workbook sẽ hoạt động cùng xóa bọn chúng giả dụ bao gồm một worksheet trống.

Sub deleteBlankWorksheets()

Dlặng 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 bởi vì hiển thị từng sản phẩm với cột một bí quyết bằng tay thủ công, chúng ta có thể áp dụng mã này để thực hiện chỉ vào một bước.

Sub UnhideRowsColumns()

Columns.EntireColumn.Hidden = False

Rows.EntireRow.Hidden = False

End Sub

Save sầu Each Worksheet as a Single PDF

mã này chỉ đơn giản lưu giữ tất cả worksheet vào một trong những tệp PDF riêng biệt. Bạn chỉ việc biến đổi thương hiệu tệp từ bỏ 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 hàng rất có thể sử dụng mã này để vô hiệu hóa hóa ngắt trang. Mã đơn giản chỉ loại bỏ hóa ngắt trang từ những workbook đã mngơi nghỉ.

Sub DisablePageBreaks()

Dyê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 chúng ta triển khai các công việc workbook một bí quyết đơn giản và không phải tốn nhiều sức lực lao động.

Create a Backup of a Current Workbook

Đây là 1 trong trong số những mã macro bổ ích nhất rất có thể giúp cho bạn giữ một tệp cung cấp mang lại workbook của doanh nghiệp.

Mã vẫn lưu giữ một tệp cung cấp thẳng với tệp bây chừ được lưu giữ và mã cũng sẽ bổ sung 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") & " " & _

ThisWorkbook.name

End Sub

Cchiến bại all Workbooks at Once

quý khách áp dụng mã này nhằm đóng góp toàn bộ những workbook đang mlàm việc.

Thứ nhất, mã đã kiểm soát từng workbook một với đóng chúng lại. Nếu bao gồm bất kỳ worksheet nào không được lưu, các bạn sẽ nhận ra thông tin nhằm lưu giữ.

Sub CloseAllWorkbooks()

Dim wbs As Workbook

For Each wbs In Workbooks

wbs.Cthảm bại SaveChanges:=True

Next wb

End Sub

Copy Active sầu Worksheet into a New Workbook

lấy ví dụ, nếu như bạn muốn xào luộc worksheet đã vận động vào một workbook mới, chúng ta chỉ cần chạy mã macro cùng mã sẽ triển khai cho bạn.

Điều này tiết kiệm ngân sách và chi phí tương đối nhiều thời hạn.

Sub CopyWorksheetToNewWorkbook()

ThisWorkbook.ActiveSheet.Copy _

Before:=Workbooks.Add.Worksheets(1)

End Sub

Active Workbook in an Email

Sử dụng mã macro này để gửi active sầu workbook của khách hàng bởi tin nhắn một giải pháp hối hả.

Xem thêm: Gieo Quẻ Cửu Thiên Huyền Nữ Toán Pháp, Boi Bai Que Cuu Huyen That To

quý khách hàng rất có thể biến đổi thương hiệu, tin nhắn, văn bản vào mã và trường hợp bạn có nhu cầu gửi trực tiếp email này, áp dụng “.Send” chũm bởi vì “.Display”.


Chuyên mục: Tin Tức