Các đoạn code hay trong excel, cách ghi chú các đoạn code trong vba

Bạn rất có thể sử dụng đầy đủ mã code này ngay cả khi chúng ta chưa từng sử dụng VBA trước đây.

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

Mã Macro là gì?

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

Ý tưởng ẩn dưới việc sử dụng mã là để tự động hóa một hành động mà nếu không bạn yêu cầu thực hiện thủ công trong Excel.

Ví dụ, bạn cũng có thể sử dụng một mã chỉ để in một phạm vi ô rõ ràng chỉ với 1 cú bấm chuột thay vì chọn theo sản phẩm công nghệ tự -> file Tab -> Print -> Print Select -> OK Button.

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

Trước khi áp dụng những mã này, bảo vệ rằng bạn có Developer Tab bên trên thanh Excel để truy vấn VB Editor.

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

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

Những mã code VBA này để giúp đỡ bạn triển khai một số quá trình cơ bản trong nháy đôi mắt mà chúng ta thường có tác dụng trên bảng tính.

Code macro này để giúp bạn bổ sung số serial auto trên trang Excel.

Sau khi chúng ta chạy mã macro này, màn hình sẽ hiển thị đầu vào box để các bạn nhập tối đa phần serial với sau đó, nó sẽ chèn các số vào cột theo trang bị tự.

Sub Add
Serial
Numbers()

Dim i As Integer

On Error Go
To Last

i = Input
Box("Enter Value", "Enter Serial Numbers")

For i = 1 to i

Active
Cell.Value = i

Active
Cell.Offset(1, 0).Activate

Next i

Last:Exit Sub

End Sub

Sau khi chạy mã macro, screen sẽ hiển thị một input box và các bạn phải nhập số cột mà bạn muốn chèn.

Sub Insert
Multiple
Columns()

Dim i As Integer

Dim j As Integer

Active
Cell.Entire
Column.Select

On Error Go
To Last

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

For j = 1 to i

Selection.Insert Shift:=xl
To
Right, Copy
Origin:=xl
Format
From
Rightor
Above

Next j

Last:Exit Sub

End Sub

Sau lúc chạy mã macro, màn hình sẽ hiển thị một input box và các bạn phải nhập số sản phẩm mà bạn có nhu cầu chèn.

Sub Insert
Multiple
Rows()

Dim i As Integer

Dim j As Integer

Active
Cell.Entire
Row.Select

On Error Go
To Last

i = Input
Box("Enter number of columns to lớn insert", "Insert

Columns")

For j = 1 khổng lồ i

Selection.Insert Shift:=xl
To
Down,

Copy
Origin:=xl
Format
From
Rightor
Above

Next j

Last:Exit Sub

End Sub

Nhanh chóng tự động hóa khớp toàn bộ các mặt hàng trong worksheet của bạn.

Mã macro này đã chọn tất cả các ô vào worksheet và tự động khớp ngay lập tức những cột.

Sub Auto
Fit
Columns()

Cells.Select

Cells.Entire
Column.Auto
Fit

End Sub

Bạn có thể sử dụng mã code này để auto khớp toàn bộ các mặt hàng trong worksheet.

Khi bạn chạy mã này, nó vẫn chọn toàn bộ các ô vào worksheet và tự động khớp ngay lập tức lập tức những hàng.

Sub Auto
Fit
Rows()

Cells.Select

Cells.Entire
Row.Auto
Fit

End Sub

Mã code này sẽ giúp bạn xóa text wrap khỏi cục bộ worksheet với một chiếc 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 khớp những hàng và cột.

Sub Remove
Wrap
Text()

Cells.Select

Selection.Wrap
Text = False

Cells.Entire
Row.Auto
Fit

Cells.Entire
Column.Auto
Fit

End Sub

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

Sub Unmerge
Cells()

Selection.Un
Merge

End Sub

Trong hành lang cửa số có một thứ tính cụ thể và sử dụng mã macro này, chúng ta cũng có thể mở laptop trực tiếp trường đoản cú Excel cho vấn đề tính toán.

Sub Open
Calculator()

Application.Activate
Microsoft
App Index:=0

End Sub

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

Bạn rất có thể điều chỉnh mã này nhằm đổi từ bỏ header sang footer.

Sub date
In
Header()

With Active
Sheet.Page
Setup

.Left
Header = ""

.Center
Header = "&D"

.Right
Header = ""

.Left
Footer = ""

.Center
Footer = ""

.Right
Footer = ""

End With

Active
Window.View = xl
Normal
View

End Sub

Nếu bạn muốn chèn header thiết lập cấu hình thì đấy là một mã giành cho bạn.

Chạy mã này, nhập giá bán trị tùy chỉnh cấu hình vào đầu vào box. Để thay đổi liên kết của header hoặc footer, bạn có thể điều chỉnh mã.

Sub custom
Header()

Dim my
Text As Stringmy

Text = Input
Box("Enter your text here", "Enter Text")

With Active
Sheet.Page
Setup

.Left
Header = ""

.Center
Header = my
Text

.Right
Header = ""

.Left
Footer = ""

.Center
Footer = ""

.Right
Footer = ""

End With

End Sub

Những mã VBA này sẽ giúp bạn định dạng những ô và phạm vi bằng cách sử dụng một số trong những tiêu chuẩn chỉnh và điều kiện cụ thể.

Mã macro này sẽ đánh giá mỗi ô bạn chọn và làm nổi bật các cực hiếm trùng lặp.

Bạn cũng đều có thể thay đổi màu sắc đẹp từ mã này.

Sub Highlight
Duplicate
Values()

Dim my
Range As Range

Dim my
Cell As Range

Set my
Range = Selection

For Each my
Cell In my
Range

If Worksheet
Function.Count
If(my
Range, my
Cell.Value) > 1 Then

my
Cell.Interior.Color
Index = 36

End If

Next my
Cell

End Sub

Đây là những bước để thực hiện mã code này cấp tốc chóng.

Hãy lưu ý rằng, khi áp dụng mã macro này các bạn sẽ không thể kiểm soát và điều chỉnh ô bằng cách nhấp đúp chuột.

Private Sub Worksheet_Before
Double
Click(By
Val Target As Range,

Cancel As Boolean)

Dim str
Range As String

str
Range = Target.Cells.Address và "," Target.Cells.Entire
Column.Address & "," & _

Target.Cells.Entire
Row.Address

Range(str
Range).Select

End Sub

Chỉ chọn một phạm vi với chạy mã macro này cùng nó đang làm nổi bật top 10 values với màu sắc xanh.

Sub Top
Ten()

Selection.Format
Conditions.Add
Top10

Selection.Format
Conditions(Selection.Format
Conditions.Count).S

t
First
Priority

With Selection.Format
Conditions(1)

.Top
Bottom = xl
Top10Top

.Rank = 10

.Percent = False

End With

With Selection.Format
Conditions(1).Font

.Color = -16752384

.Tint
And
Shade = 0

End With

With Selection.Format
Conditions(1).Interior

.Pattern
Color
Index = xl
Automatic

.Color = 13561798

.Tint
And
Shade = 0

End With

Selection.Format
Conditions(1).Stop
If
True = False

End Sub

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

Sub Highlight
Ranges()

Dim Range
Name As Name

Dim Highlight
Range As Range

On Error Resume Next

For Each Range
Name In Active
Workbook.Names

Set Highlight
Range = Range
Name.Refers
To
Range

Highlight
Range.Interior.Color
Index = 36

Next Range
Name

End Sub

Sau khi chạy mã này, nó đã yêu cầu giá trị mà bạn muốn làm nổi bật các giá bán trị to hơn.

Sub Highlight
Greater
Than
Values()

Dim i As Integer

i = Input
Box("Enter Greater Than Value", "Enter Value")

Selection.Format
Conditions.Delete

Selection.Format
Conditions.Add Type:=xl
Cell
Value,

Operator:=xl
Greater, Formula1:=i

Selection.Format
Conditions(Selection.Format
Conditions.Count).S

t
First
Priority

With Selection.Format
Conditions(1)

.Font.Color = RGB(0, 0, 0)

.Interior.Color = RGB(31, 218, 154)

End With

End Sub

Sau khi chạy mã này, nó sẽ yêu cầu giá trị mà bạn muốn làm trông rất nổi bật các cực hiếm thấp hơn.

Sub Highlight
Lower
Than
Values()

Dim i As Integer

i = Input
Box("Enter Lower Than Value", "Enter Value")

Selection.Format
Conditions.Delete

Selection.Format
Conditions.Add Type:=xl
Cell
Value,

Operator:=xl
Lower, Formula1:=i

Selection.Format
Conditions(Selection.Format
Conditions.Count).S

t
First
Priority

With Selection.Format
Conditions(1)

.Font.Color = RGB(0, 0, 0)

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

End With

End Sub

Chọn một pham vi những ô và chạy mã này. Nó sẽ kiểm soát mỗi ô vào phạm vi này cùng làm nổi bật tất cả các ô có (negative numbers).

Sub highlight
Negative
Numbers()

Dim Rng As Range

For Each Rng In Selection

If Worksheet
Function.Is
Number(Rng) Then

If Rng.Value

Rng.Font.Color= -16776961

End If

End If

Next

End Sub

Giả sử các bạn có một tệp dữ liệu lớn và bạn muốn kiểm tra một giá bán trị cụ thể. Trong trường vừa lòng này, chúng ta cũng có thể sử dụng mã này. Khi bạn chạy nó, màn hình hiển thị sẽ hiện đầu vào box để chúng ta nhập giá chỉ trị ý muốn tìm kiếm.

Sub highlight
Value()

Dim my
Str As String

Dim my
Rg As Range

Dim my
Txt As String

Dim my
Cell As Range

Dim my
Char As String

Dim I As Long

Dim J As Long

On Error Resume Next

If Active
Window.Range
Selection.Count> 1 Then

my
Txt= Active
Window.Range
Selection.Address
Local

Else

my
Txt= Active
Sheet.Used
Range.Address
Local

End If

LInput: set my
Rg= Application.Input
Box("please select the data

range:", "Selection Required", my
Txt, , , , , 8)

If my
Rg Is Nothing Then

Exit Sub

If my
Rg.Areas.Count > 1 Then

Msg
Box"not tư vấn multiple columns" Go
To
LInput

End If

If my
Rg.Columns.Count 2 Then

Msg
Box"the selected range can only contain two columns "

Go
To LInput

End If

For I = 0 to my
Rg.Rows.Count-1

my
Str= my
Rg.Range("B1").Offset(I, 0).Value

With my
Rg.Range("A1").Offset(I, 0)

.Font.Color
Index= 1

For J = 1 to Len(.Text)

Mid(.Text, J, Len(my
Str)) = my
Str
Then

.Characters(J, Len(my
Str)).Font.Color
Index= 3

Next

End With

Next I

End Sub

Để làm rất nổi bật tất cả những ô với việc sử dụng comments macro này.

Sub highlight
Comment
Cells()

Selection.Special
Cells(xl
Cell
Type
Comments).Select

Selection.Style= "Note"

End Sub

Với vấn đề làm nổi bật các hàng rứa thế, bạn cũng có thể dễ dàng đọc dữ liệu hơn. Và do điều này, chúng ta có thể sử dụng mã VBA mặt 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 highlight
Alternate
Rows()

Dim rng As Range

For Each rng In Selection.Rows

If rng.Row
Mod 2 = 1 Then

rng.Style= "20% -Accent1"

rng.Value= rng^ (1 / 3)

Else

End If

Next rng

End Sub

Nếu bạn chạm mặt khó khăn trong vấn đề kiểm tra tất cả các hàng về lỗi thiết yếu tả thì đây là một mã dành riêng cho bạn. Mã sẽ khám nghiệm mỗi ô được chọn và làm trông rất nổi bật ô đó khi có lỗi chủ yếu tả.

Sub Highlight
Misspelled
Cells()

Dim rng As Range

For Each rng In Active
Sheet.Used
Range

If Not Application.Check
Spelling(word:=rng.Text) Then

rng.Style= "Bad" end If

Next rng

End Sub

Mã này sẽ giúp bạn làm rất nổi bật và đếm toàn bộ các ô tất cả lỗi.

Chỉ việc chạy mã này cùng mã sẽ trả lại một thông tin có số ô lỗi cùng làm nổi bật tất cả những ô đó.

Sub highlight
Errors()

Dim rng As Range

Dim i As Integer

For Each rng In Active
Sheet.Used
Range

If Worksheet
Function.Is
Error(rng) Then

i = i + 1 rng.Style = "bad"

End If

Next rng

Msg
Box "There are total " & i và " error(s) in this worksheet."

End Sub

Mã này sẽ giúp bạn đếm những ô có giá trị cụ thể mà các bạn sẽ đề cập và sau đó, mã đang làm nổi bật tất cả các ô đó.

Sub highlight
Specific
Values()

Dim rng As Range

Dim i As Integer

Dim c As Variant

c = Input
Box("Enter Value to lớn Highlight")

For Each rng In Active
Sheet.Used
Range

If rng = c Then

rng.Style = "Note"

i = i + 1

End If

Next rng

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

End Sub

Đôi khi bao gồm ô trống nhưng chúng có một không gian duy tuyệt nhất và vì chưng vậy, sẽ rất khó để phân biệt chúng. Mã này sẽ giúp bạn kiểm tra toàn bộ các ô vào worksheet và làm khá nổi bật các ô có khoảng trống duy nhất định.

Sub blank
With
Space()

Dim rng As Range

For Each rng In Active
Sheet.Used
Range

If rng.Value = " " Then

rng.Style = "Note"

End If

Next rng

End Sub

Mã này đã kiểm tra tất cả các ô được chọn và làm rất nổi bật ô đó với cái giá trị phệ nhất.

Sub highlight
Max
Value()

Dim rng As Range

For Each rng In Selection

If rng = Worksheet
Function.Max(Selection) Then

rng.Style = "Good"

End If

Next rng

End Sub

Mã đã kiểm tra tất cả các ô được lựa chọn và làm trông rất nổi bật ô đó với cái giá trị nhỏ dại nhất.

Sub highlight
Min
Value()

Dim rng As Range

For Each rng In Selection

If rng = Worksheet
Function.Min(Selection) Then

rng.Style = "Good"

End If

Next rng

End Sub

Các mã này đang làm trông rất nổi bật tất cả các ô được chọn mà có mức giá trị duy nhất.

Sub highlight
Unique
Values()

Dim rng As Range

Set rng = Selection

rng.Format
Conditions.Delete

Dim uv As Unique
Values

Set uv = rng.Format
Conditions.Add
Unique
Values

uv.Dupe
Unique = xl
Unique

uv.Interior.Color = vb
Green

End Sub

Sử dụng mã này bạn cũng có thể làm khá nổi bật sự khác biệt giữa 2 cột (các ô tương ứng).

Sub column
Difference()

Range("H7:H8,I7:I8").Select

Selection.Column
Differences(Active
Cell).Select

Selection.Style= "Bad"

End Sub

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 row
Difference()

Range("H7:H8,I7:I8").Select

Selection.Row
Differences(Active
Cell).Select

Selection.Style= "Bad"

End Sub

Những mã macro này sẽ giúp đỡ bạn auto in một số công việc mà rất có thể tiết kiệm rất nhiều thời gian.

Sử dụng mã macro này kích hoạt thiết đặt để in (cell comments) nghỉ ngơi cuối trang. Ví dụ bạn 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 tất cả comments sống trang sau cuối thứ 11.

Sub print
Comments()

With Active
Sheet.Page
Setup

.print
Comments= xl
Print
Sheet
End

End With

End Sub

Sử dụng mã VBA này nhằm in giấy bao gồm lề hẹp. Khi bạn chạy mã macro này, mã sẽ tự động hóa thay thay đổi lề thành hẹp.

Sub print
Narrow
Margin()

With Active
Sheet.Page
Setup

.Left
Margin= Application

.Inches
To
Points(0.25)

.Right
Margin= Application.Inches
To
Points(0.25)

.Top
Margin= Application.Inches
To
Points(0.75)

.Bottom
Margin= Application.Inches
To
Points(0.75)

.Header
Margin= Application.Inches
To
Points(0.3)

.Footer
Margin= Application.Inches
To
Points(0.3)

End With

Active
Window.Selected
Sheets.Print
Out
Copies:=1, Collate:=True,

Ignore
Print
Areas:=False

End Sub

Mã này để giúp bạn in phạm vi được chọn. Các bạn không đề xuất phải dịch rời đến mục printing options và setup phạm vi in. Bạn chỉ việc lựa chọn 1 phạm vi với chạy mã này.

Sub print
Selection()

Selection.Print
Out
Copies:=1, Collate:=True

End Sub

Thay do 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 điều chỉnh.

Ví dụ bạn muốn từ trang 5 mang lại trang10. Bạn chỉ cần chạy mã VBA này và nhập trang bắt đầu và trang kết thúc.

Sub print
Custom
Selection()

Dim startpage
As Integer

Dim endpage
As Integer

startpage= Input
Box("Please Enter Start Page number.", "Enter

Value")

If Not Worksheet
Function.Is
Number(startpage) Then

Msg
Box"Invalid Start Page number. Please try again.", "Error"

Exit Sub

End If

endpage= Input
Box("Please Enter kết thúc Page number.", "Enter

Value")

If Not Worksheet
Function.Is
Number(endpage) Then

Msg
Box"Invalid end Page number. Please try again.", "Error"

Exit Sub

End If

Selection.Print
Out
From:=startpage, To:=endpage, Copies:=1,

Collate:=True

End Sub

Những mã macro này sẽ giúp đỡ bạn kiểm soát và điều hành và quản lý worksheets theo một cách dễ dàng và tiết kiệm rất nhiều thời gian.

Ví dụ bạn có nhu cầu ẩn tất cả các worksheets trong workbook của bạn ngoài worksheet đang hoạt động. Mã macro này sẽ giúp bạn làm điều này.

Sub Hide
Worksheet()

Dim ws As Worksheet

For Each ws In This
Workbook.Worksheets

If ws.Name This
Workbook.Active
Sheet.Name Then

ws.Visible = xl
Sheet
Hidden

End If

Next ws

End Sub

Mã này giành riêng cho việc nếu bạn có nhu cầu hiển thị tất cả các worksheets mà chúng ta đã ẩn trong mà trước.

Sub Unhide
All
Worksheet()

Dim ws As Worksheet

For Each ws In Active
Workbook.Worksheets

ws.Visible = xl
Sheet
Visible

Next ws

End Sub

Mã này vô cùng hữu ích cho mình nếu bạn muốn xóa tất cả các worksheet quanh đó sheet đã hoạt động.

Khi chúng ta chạy mã này, mã sẽ đối chiếu tên workwheet đang chuyển động với những worksheet không giống và kế tiếp xóa chúng.

Sub Delete
Worksheets()

Dim ws As Worksheet

For Each ws In This
Workbook.Worksheets

If ws.name This
Workbook.Active
Sheet.name Then

Application.Display
Alerts = False

ws.Delete

Application.Display
Alerts = True

End If

Next ws

End Sub

Đây là mã dành cho mình nếu bạn có nhu cầu protect những worksheet chỉ trong một lần.

Khi chạy mã macro này, bạn sẽ nhận được một đầu vào box để nhập password. Sau khi nhập password, click OK. Và make sure to lớn take care about CAPS.

Sub Protect
All
Worskeets()

Dim ws As Worksheet

Dim ps As String

ps = Input
Box("Enter a Password.", vb
OKCancel)

For Each ws In Active
Workbook.Worksheets

ws.Protect Password:=ps

Next ws

End Sub

Tạo những chart tất 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ỡ. Bạn cũng có thể thay đổi độ cao và chiều rộng của chart bằng cách thay đổi nó vào mã macro.

Sub Resize_Charts()

Dim i As Integer

For i = 1 lớn Active
Sheet.Chart
Objects.Count

With Active
Sheet.Chart
Objects(i)

.Width = 300

.Height = 200

End With

Next i

End Sub

Bạn hoàn toàn có thể sử dụng mã này nếu bạn muốn thêm những worksheet vào workbook của công ty chỉ trong một bước.

Khi các bạn chạy mã macro này, các bạn sẽ nhận được input box nhằm nhập toàn bô sheet mà bạn có nhu cầu nhập.

Sub Insert
Multiple
Sheets()

Dim i As Integer

i = Input
Box("Enter number of sheets to lớn insert.", "Enter

Multiple Sheets")

Sheets.Add After:=Active
Sheet, Count:=i

End Sub

Nếu bạn muốn protect worksheet, bạn cũng có thể sử dụng mã này.

Bạn chỉ cần nhập password của người tiêu dùng vào vào mã.

Sub Protect
WS()

Active
Sheet.Protect "mypassword", True, True

End Sub

Nếu bạn không thích protect worksheet, chúng ta cũng có thể sử dụng mà lại macro này.

Bạn chỉ việc nhập password mà các bạn đã áp dụng khi protect worksheet của bạn.

Sub Unprotect
WS()

Active
Sheet.Unprotect "mypassword"

End Sub

Mã này để giúp bạn sắp xếp worksheets trong workbook nhờ vào tên của worksheet.

Sub Sort
Worksheets()

Dim i As Integer

Dim j As Integer

Dim i
Answer As Vb
Msg
Box
Result

i
Answer = Msg
Box("Sort Sheets in Ascending Order?" và Chr(10) _

& "Clicking No will sort in Descending Order", _

vb
Yes
No
Cancel + vb
Question + vb
Default
Button1, "Sort

Worksheets")

For i = 1 khổng lồ Sheets.Count

For j = 1 khổng lồ Sheets.Count - 1

If i
Answer = vb
Yes Then

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

Sheets(j).Move After:=Sheets(j + 1)

End If

Else
If i
Answer = vb
No Then

If UCase$(Sheets(j).Name)

Sheets(j).Move After:=Sheets(j + 1)

End If

End If

Next j

Next i

End Sub

Bạn hoàn toàn có thể sử dụng mã này nhằm protect cell with formula chỉ với một cú click chuột.

Sub lock
Cells
With
Formulas()

With Active
Sheet

.Unprotect

.Cells.Locked = False

.Cells.Special
Cells(xl
Cell
Type
Formulas).Locked = True

.Protect Allow
Deleting
Rows:=True

End With

End Sub

Chạy mã này và 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 delete
Blank
Worksheets()

Dim Ws As Worksheet

On Error Resume Next

Application.Screen
Updating= False

Application.Display
Alerts= False

For Each Ws In Application.Worksheets

If Application.Worksheet
Function.Count
A(Ws.Used
Range) = 0 Then

Ws.Delete

End If

Next

Application.Screen
Updating= True

Application.Display
Alerts= True

End Sub

Thay vày hiển thị từng hàng và cột một biện pháp thủ công, chúng ta cũng có thể sử dụng mã này để triển khai chỉ trong một bước.

Sub Unhide
Rows
Columns()

Columns.Entire
Column.Hidden = False

Rows.Entire
Row.Hidden = False

End Sub

mã này chỉ dễ dàng lưu toàn bộ worksheet vào một trong những tệp PDF riêng. Chúng ta chỉ cần chuyển đổi tên tệp trường đoản cú mã này.

Sub Save
Workshet
As
PDF()

Dimws As Worksheet

For Each ws In Worksheetsws.Export
As
Fixed
Format xl
Type
PDF,

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

End Sub

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 chỉ vô hiệu hóa ngắt trang từ các workbook sẽ mở.

Sub Disable
Page
Breaks()

Dim wb
As Workbook

Dim wks
As Worksheet

Application.Screen
Updating= False

For Each wb
In Application.Workbooks

For Each Sht
In wb.Worksheets
Sht.Display
Page
Breaks= False

Next Sht

Next wb

Application.Screen
Updating= True

End Sub

Những mã này sẽ giúp bạn thực hiện các quá trình workbook một cách đơn giản và dễ dàng và chưa hẳn tốn nhiều công sức.

Đây là giữa những mã macro có ích nhất hoàn toàn có thể giúp chúng ta lưu một tệp cung cấp cho workbook của bạn.

Mã sẽ lưu một tệp cung ứng trực tiếp với tệp hiện tại được lưu cùng mã cũng sẽ bổ sung cập nhật ngày với tên của tệp.

Sub File
Back
Up()

This
Workbook.Save
Copy
As Filename:=This
Workbook.Path và _

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

This
Workbook.name

End Sub

Bạn thực hiện mã này để đóng tất cả các workbook vẫn mở.

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

Sub Close
All
Workbooks()

Dim wbs As Workbook

For Each wbs In Workbooks

wbs.Close Save
Changes:=True

Next wb

End Sub

Ví dụ, nếu bạn có nhu cầu sao chép worksheet đang vận động vào một workbook mới, bạn chỉ cần chạy mã macro cùng mã sẽ thực hiện cho bạn.

Điều này ngày tiết kiệm không hề ít thời gian.

Sub Copy
Worksheet
To
New
Workbook()

This
Workbook.Active
Sheet.Copy _

Before:=Workbooks.Add.Worksheets(1)

End Sub

Sử dụng mã macro này nhằm gửi active workbook của doanh nghiệp bằng e-mail một phương pháp nhanh chóng.

Xem thêm:

Bạn gồm thể biến đổi tên, email, ngôn từ trong mã cùng nếu bạn có nhu cầu gửi trực tiếp email này, sử dụng “.Send” thay vì “.Display”.