VBA – Tổng quan

Tuyển tập những tài liệu hay nhất về lập trình VBA Macro trên Excel tải về free dành cho các bạn.

Truy cập Trình chỉnh sửa VBA

VBA – Macro Excel

Private Sub say_helloworld_Click()
   MsgBox "Hi"
End Sub

VBA – Điều khoản Excel

Mô-đun

Thủ tục

Chức năng

Thủ tục phụ

VBA – Nhận xét vĩ mô

• Bất kỳ tuyên bố nào bắt đầu bằng một trích dẫn (‘) đều được coi là nhận xét. Sau đây là một ví dụ.

' This Script is invoked after successful login 
' Written by : TutorialsPoint 
' Return Value : True / False

• Bất kỳ tuyên bố nào bắt đầu với từ khóa “REM”. Sau đây là một ví dụ.

REM This Script is written to Validate the Entered Input 
REM Modified by  : Tutorials point/user2

VBA – Hộp tin nhắn

Cú pháp

MsgBox(prompt[,buttons][,title][,helpfile,context])

Mô tả về Thông Số

• Nhắc – Một tham số bắt buộc. Một chuỗi được hiển thị dưới dạng một thông báo trong hộp thoại. Độ dài tối đa của dấu nhắc là khoảng 1024 ký tự. Nếu thông điệp kéo dài đến hơn một dòng, thì các dòng có thể được phân tách bằng ký tự trả về vận chuyển (Chr (13)) hoặc ký tự nguồn cấp dữ liệu (Chr (10)) giữa mỗi dòng.
• Nút – Một tham số tùy chọn. Biểu thức số chỉ định loại nút sẽ hiển thị, kiểu biểu tượng sẽ sử dụng, danh tính của nút mặc định và phương thức của hộp thông báo. Nếu để trống, giá trị mặc định cho các nút là 0.
• Tiêu đề – Một tham số tùy chọn. Một biểu thức Chuỗi được hiển thị trong thanh tiêu đề của hộp thoại. Nếu tiêu đề được để trống, tên ứng dụng được đặt trong thanh tiêu đề.
• Helpfile – Một tham số tùy chọn. Biểu thức Chuỗi xác định tệp Trợ giúp sẽ sử dụng để cung cấp trợ giúp theo ngữ cảnh cho hộp thoại.
• Bối cảnh – Một tham số tùy chọn. Biểu thức số xác định số ngữ cảnh Trợ giúp được chỉ định bởi tác giả Trợ giúp cho chủ đề Trợ giúp phù hợp. Nếu bối cảnh được cung cấp, helpfile cũng phải được cung cấp.

• 0 vbOKOnly – Chỉ hiển thị nút OK.
• 1 vbOK Hủy – Hiển thị các nút OK và Hủy.
• 2 vbAbortR temIgnore – Hiển thị các nút Hủy bỏ, Thử lại và Bỏ qua.
• 3 vbYesNo Hủy – Hiển thị các nút Có, Không và Hủy.
• 4 vbYesKhông – Hiển thị các nút Có và Không.
• 5 vbR temftime – Hiển thị các nút Thử lại và Hủy.
• 16 vbCritical – Hiển thị biểu tượng Thông điệp quan trọng.
• 32 vbQuestion – Hiển thị biểu tượng Truy vấn cảnh báo.
• 48 vbExclamation – Hiển thị biểu tượng Thông báo cảnh báo.
• 64 vbIn information – Hiển thị biểu tượng Thông báo tin nhắn.
• 0 vbDefaultButton1 – Nút đầu tiên là mặc định.
• 256 vbDefaultButton2 – Nút thứ hai là mặc định.
• 512 vbDefaultButton3 – Nút thứ ba là mặc định.
• 768 vbDefaultButton4 – Nút thứ tư là mặc định.
• 0 vbApplicationModal Phương thức ứng dụng – Ứng dụng hiện tại sẽ không hoạt động cho đến khi người dùng trả lời hộp thông báo.
• 4096 vbSystemModal Hệ thống phương thức – Tất cả các ứng dụng sẽ không hoạt động cho đến khi người dùng trả lời hộp thông báo.

Giá trị trả về

• 1 – vbOK – OK đã được nhấp
• 2 – vb Hủy – Hủy đã được nhấp
• 3 – vb Abort – Đã hủy bỏ
• 4 – vbRatures – Thử lại đã được nhấp
• 5 – vbIgnore – Bỏ qua đã được nhấp
• 6 – vbYes – Có được nhấp
• 7 – vbKhông – Không được nhấp

Thí dụ

Function MessageBox_Demo() 
   'Message Box with just prompt message 
   MsgBox("Welcome")     
   
   'Message Box with title, yes no and cancel Butttons  
   int a = MsgBox("Do you like blue color?",3,"Choose options") 
   ' Assume that you press No Button  
   msgbox ("The Value of a is " & a) 
End Function

Đầu ra

VBA – InputBox

Cú pháp

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Mô tả về Thông Số

• Nhắc – Một tham số bắt buộc. Một chuỗi được hiển thị dưới dạng một thông báo trong hộp thoại. Độ dài tối đa của dấu nhắc là khoảng 1024 ký tự. Nếu thông điệp kéo dài đến hơn một dòng, thì các dòng có thể được phân tách bằng ký tự trả về vận chuyển (Chr (13)) hoặc ký tự nguồn cấp dữ liệu (Chr (10)) giữa mỗi dòng.
• Tiêu đề – Một tham số tùy chọn. Một biểu thức Chuỗi được hiển thị trong thanh tiêu đề của hộp thoại. Nếu tiêu đề được để trống, tên ứng dụng được đặt trong thanh tiêu đề.
• Mặc định – Một tham số tùy chọn. Một văn bản mặc định trong hộp văn bản mà người dùng muốn được hiển thị.
• XPos – Một tham số tùy chọn. Vị trí của trục Xbiểu thị khoảng cách nhanh chóng từ phía bên trái của màn hình theo chiều ngang. Nếu để trống, hộp đầu vào được căn giữa theo chiều ngang.
• YPos – Một tham số tùy chọn. Vị trí của trục Ybiểu thị khoảng cách nhắc từ phía bên trái của màn hình theo chiều dọc. Nếu để trống, hộp đầu vào được căn giữa theo chiều dọc.
• Helpfile – Một tham số tùy chọn. Một biểu thức Chuỗi xác định tệp trợ giúp được sử dụng để cung cấp Trợ giúp theo ngữ cảnh cho hộp thoại.
• bối cảnh – Một tham số tùy chọn. Biểu thức số xác định số ngữ cảnh Trợ giúp được chỉ định bởi tác giả Trợ giúp cho chủ đề Trợ giúp phù hợp. Nếu bối cảnh được cung cấp, helpfile cũng phải được cung cấp.

Thí dụ

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Đầu ra

VBA – Biến

• Bạn phải sử dụng một chữ cái là ký tự đầu tiên.
• Bạn không thể sử dụng dấu cách, dấu chấm (.), Dấu chấm than (!) Hoặc các ký tự @, &, $, # trong tên.
• Tên không thể vượt quá 255 ký tự.
• Bạn không thể sử dụng các từ khóa dành riêng Visual Basic làm tên biến.

Dim <<variable_name>> As <<variable_type>>

Loai du lieu

Kiểu dữ liệu số

Kiểu	Phạm vi của các giá trị
Byte	0 đến 255
Số nguyên	-32,768 đến 32,767
Dài	-2,147,483,648 đến 2,147,483,648
Độc thân	-3.402823E + 38 đến -1.401298E-45 cho các giá trị âm 1.401298E-45 đến 3.402823E + 38 cho các giá trị dương.
Gấp đôi	-1.79769313486232e + 308 đến -4.94065645841247E-324 cho các giá trị âm 4.94065645841247E-324 đến 1.79769313486232e + 308 cho các giá trị dương.
Tiền tệ	-922,337,203,685,477,5808 đến 922,337,203,685,477,5807
Số thập phân	+/- 79,228,162,514,264,337,593,543,950,335 nếu không sử dụng số thập phân +/- 7.9228162514264337593543950335 (28 chữ số thập phân).

Kiểu dữ liệu không phải là số

Kiểu	Phạm vi của các giá trị
Chuỗi (độ dài cố định)	1 đến 65.400 ký tự
Chuỗi (độ dài thay đổi)	0 đến 2 tỷ ký tự
Ngày	Ngày 1 tháng 1 năm 100 đến ngày 31 tháng 12 năm 9999
Boolean	Đúng hay sai
Vật	Bất kỳ đối tượng nhúng
Biến thể (số)	Bất kỳ giá trị nào lớn gấp đôi
Biến thể (văn bản)	Tương tự như chuỗi có độ dài thay đổi

Private Sub say_helloworld_Click()
   Dim password As String
   password = "Admin#1"

   Dim num As Integer
   num = 1234

   Dim BirthDay As Date
   BirthDay = DateValue("30 / 10 / 2020")

   MsgBox "Passowrd is " & password & Chr(10) & "Value of num is " &
      num & Chr(10) & "Value of Birthday is " & BirthDay
End Sub

VBA – Hằng

• Bạn phải sử dụng một chữ cái là ký tự đầu tiên.
• Bạn không thể sử dụng dấu cách, dấu chấm (.), Dấu chấm than (!) Hoặc các ký tự @, &, $, # trong tên.
• Tên không thể vượt quá 255 ký tự.
• Bạn không thể sử dụng các từ khóa dành riêng Visual Basic làm tên biến.

Cú pháp

Const <<constant_name>> As <<constant_type>> = <<constant_value>>

Thí dụ

Private Sub Constant_demo_Click() 
   Const MyInteger As Integer = 42 
   Const myDate As Date = #2/2/2020# 
   Const myDay As String = "Sunday" 
   
   MsgBox "Integer is " & MyInteger & Chr(10) & "myDate is " 
      & myDate & Chr(10) & "myDay is " & myDay  
End Sub

Đầu ra

VBA – Nhà điều hành

• Toán tử số học
• Toán tử so sánh
• Toán tử logic (hoặc quan hệ)
• Toán tử ghép

Các nhà khai thác Arithmatic

Nhà điều hành	Sự miêu tả	Thí dụ
+	Thêm hai toán hạng	A + B sẽ cho 15
–	Trừ toán hạng thứ hai từ toán hạng thứ nhất	A – B sẽ cho -5
*	Nhân lên cả hai toán hạng	A * B sẽ cho 50
/	Chia tử số theo mẫu số	B / A sẽ cho 2
%	Toán tử mô đun và phần còn lại sau khi chia số nguyên	B% A sẽ cho 0
^	Toán tử lũy thừa	B ^ A sẽ cho 100000

Các toán tử so sánh

Nhà điều hành	Sự miêu tả	Thí dụ
= =	Kiểm tra xem giá trị của hai toán hạng có bằng nhau hay không. Nếu có, thì điều kiện là đúng.	(A = B) là Sai.
<>	Kiểm tra xem giá trị của hai toán hạng có bằng nhau hay không. Nếu các giá trị không bằng nhau, thì điều kiện là đúng.	(A <> B) là Đúng.
>	Kiểm tra xem giá trị của toán hạng bên trái có lớn hơn giá trị của toán hạng bên phải không. Nếu có, thì điều kiện là đúng.	(A> B) là Sai.
<	Kiểm tra xem giá trị của toán hạng bên trái nhỏ hơn giá trị của toán hạng bên phải.Nếu có, thì điều kiện là đúng.	(A <B) là Đúng.
> =	Kiểm tra xem giá trị của toán hạng bên trái lớn hơn hoặc bằng giá trị của toán hạng bên phải. Nếu có, thì điều kiện là đúng.	(A> = B) là Sai.
<=	Kiểm tra xem giá trị của toán hạng bên trái nhỏ hơn hoặc bằng giá trị của toán hạng bên phải. Nếu có, thì điều kiện là đúng.	(A <= B) là Đúng.

Các toán tử logic

Nhà điều hành	Sự miêu tả	Thí dụ
VÀ	Được gọi là logic và toán tử. Nếu cả hai điều kiện đều đúng, thì Biểu thức là đúng.	a <> 0 VÀ b <> 0 là Sai.
HOẶC LÀ	Được gọi là logic HOẶC Toán tử. Nếu bất kỳ một trong hai điều kiện là True, thì điều kiện đó là đúng.	a <> 0 HOẶC b <> 0 là đúng.
KHÔNG PHẢI	Được gọi là logic KHÔNG khai thác.Được sử dụng để đảo ngược trạng thái logic của toán hạng của nó. Nếu một điều kiện là đúng, thì toán tử logic logic sẽ làm sai.	KHÔNG (a <> 0 HOẶC b <> 0) là sai.
XOR	Được gọi là loại trừ hợp lý. Nó là sự kết hợp giữa KHÔNG và HOẶC Toán tử. Nếu một và chỉ một, các biểu thức đánh giá là True, kết quả là True.	(a <> 0 XOR b <> 0) là đúng.

Các nhà khai thác liên kết

Nhà điều hành	Sự miêu tả	Thí dụ
+	Thêm hai giá trị dưới dạng biến. Giá trị là số	A + B sẽ cho 15
&	Kết hợp hai giá trị	A & B sẽ cho 510

Nhà điều hành	Sự miêu tả	Thí dụ
+	Kết hợp hai giá trị	A + B sẽ cung cấp cho MicrosoftVBScript
&	Kết hợp hai giá trị	A & B sẽ cung cấp cho MicrosoftVBScript

VBA – Quyết định

S.No.	Tuyên bố & Mô tả
1	nếu tuyên bố Một khi tuyên bố bao gồm một biểu thức Boolean theo sau là một hoặc nhiều câu lệnh.
2	if..else tuyên bố Một câu lệnh if khác bao gồm một biểu thức Boolean theo sau bởi một hoặc nhiều câu lệnh. Nếu điều kiện là True, các câu lệnh bên dưới câu lệnh If được thực thi. Nếu điều kiện là sai, phần Khác của tập lệnh được thực thi.
3	nếu … otherif..else tuyên bố Một khi tuyên bố tiếp theo một hoặc nhiều ElseIf báo cáo, mà bao gồm các biểu thức Boolean và sau đó tiếp theo là một tùy chọn else statement , mà thực hiện khi có đủ các điều kiện trở thành sai.
4	lồng nhau nếu báo cáo Một nếu hoặc elseif tuyên bố bên khác nếu hoặcelseif statement (s).
5	tuyên bố chuyển đổi Một câu lệnh chuyển đổi cho phép một biến được kiểm tra sự bằng nhau đối với một danh sách các giá trị.

VBA – Vòng lặp

S.No.	Loại vòng lặp & Mô tả
1	cho vòng lặp Thực hiện một chuỗi các câu lệnh nhiều lần và viết tắt mã quản lý biến vòng lặp.
2	cho .. vòng lặp Điều này được thực thi nếu có ít nhất một phần tử trong nhóm và được nhắc lại cho mỗi phần tử trong một nhóm.
3	while..wend loop Điều này kiểm tra điều kiện trước khi thực hiện cơ thể vòng lặp.
4	làm .. trong khi các vòng lặp Các câu lệnh do..While sẽ được thực thi miễn là điều kiện là True. (Tức là) Vòng lặp sẽ được lặp lại cho đến khi điều kiện là Sai.
5	làm..các vòng lặp Các câu lệnh do..Until sẽ được thực thi miễn là điều kiện là Sai. (Tức là) Vòng lặp phải được lặp lại cho đến khi điều kiện là True.

Báo cáo kiểm soát vòng lặp

S.No.	Tuyên bố và mô tả kiểm soát
1	Thoát lệnh Chấm dứt câu lệnh For loop và chuyển thực thi sang câu lệnh ngay sau vòng lặp
2	Thoát lệnh Chấm dứt câu lệnh Do While và chuyển thực thi sang câu lệnh ngay sau vòng lặp

VBA – Chuỗi

Cú pháp

variablename = "string"

Ví dụ

str1 = "string"   ' Only Alphabets
str2 = "132.45"   ' Only Numbers
str3 = "!@#$;*"  ' Only Special Characters
Str4 = "Asc23@#"  ' Has all the above

Hàm chuỗi

S.No.	Tên và mô tả chức năng
1	InStr Trả về lần xuất hiện đầu tiên của chuỗi con được chỉ định. Tìm kiếm xảy ra từ trái sang phải.
2	م rev Trả về lần xuất hiện đầu tiên của chuỗi con được chỉ định. Tìm kiếm xảy ra từ bên phải sang bên trái.
3	Lcase Trả về chữ thường của chuỗi được chỉ định.
4	Ucase Trả về chữ hoa của chuỗi đã chỉ định.
5	Trái Trả về một số ký tự cụ thể từ phía bên trái của chuỗi.
6	Đúng Trả về một số ký tự cụ thể từ phía bên phải của chuỗi.
7	Giữa Trả về một số ký tự cụ thể từ một chuỗi dựa trên các tham số đã chỉ định.
số 8	Ltrim Trả về một chuỗi sau khi loại bỏ khoảng trắng ở bên trái của chuỗi được chỉ định.
9	Rtrim Trả về một chuỗi sau khi loại bỏ khoảng trắng ở bên phải của chuỗi được chỉ định.
10	Cắt Trả về một giá trị chuỗi sau khi loại bỏ cả khoảng trắng hàng đầu và dấu trống.
11	Len Trả về độ dài của chuỗi đã cho.
12	Thay thế Trả về một chuỗi sau khi thay thế một chuỗi bằng một chuỗi khác.
13	Không gian Điền vào một chuỗi với số lượng không gian được chỉ định.
14	Stromp Trả về một giá trị số nguyên sau khi so sánh hai chuỗi được chỉ định.
15	Chuỗi Trả về một chuỗi với một ký tự được chỉ định cho số lần được chỉ định.
16	Tàn dư Trả về một chuỗi sau khi đảo ngược chuỗi các ký tự của chuỗi đã cho.

VBA – Chức năng ngày giờ

Hàm ngày

S.No.	Mô tả chức năng
1	Ngày Một hàm, trả về ngày hệ thống hiện tại.
2	CDate Hàm, chuyển đổi một đầu vào đã cho thành ngày.
3	DateAdd Hàm trả về ngày mà khoảng thời gian đã chỉ định đã được thêm vào.
4	Ngày tháng Hàm, trả về chênh lệch giữa hai khoảng thời gian.
5	DatePart Hàm trả về một phần xác định của giá trị ngày đầu vào đã cho.
6	DateSerial Hàm, trả về một ngày hợp lệ cho năm, tháng và ngày đã cho.
7	FormatDateTime Hàm, định dạng ngày dựa trên các tham số được cung cấp.
số 8	Ngày Hàm trả về Giá trị Boolean cho dù tham số được cung cấp có phải là ngày hay không.
9	ngày Hàm trả về một số nguyên từ 1 đến 31 đại diện cho ngày của ngày đã chỉ định.
10	tháng Hàm trả về số nguyên từ 1 đến 12 đại diện cho tháng của ngày đã chỉ định.
11	Năm Hàm trả về một số nguyên biểu thị năm của ngày đã chỉ định.
12	Tháng Tên Hàm, trả về tên của tháng cụ thể cho ngày đã chỉ định.
13	Tuần lễ Hàm trả về một số nguyên (1 đến 7) đại diện cho ngày trong tuần cho ngày được chỉ định.
14	Tên tuần Hàm, trả về tên ngày trong tuần cho ngày đã chỉ định.

Hàm thời gian

S.No.	Mô tả chức năng
1	Hiện nay Hàm, trả về ngày và giờ hệ thống hiện tại.
2	Giờ Hàm trả về một số nguyên từ 0 đến 23 đại diện cho phần giờ của thời gian đã cho.
3	Phút Hàm trả về một số nguyên từ 0 đến 59 đại diện cho phần phút của thời gian đã cho.
4	Thứ hai Hàm trả về một số nguyên từ 0 đến 59 đại diện cho phần giây của thời gian đã cho.
5	Thời gian Một hàm, trả về thời gian hệ thống hiện tại.
6	Hẹn giờ Hàm, trả về số giây và mili giây kể từ 12:00 AM.
7	Thời gian Hàm, trả về thời gian cho đầu vào cụ thể của giờ, phút và giây.
số 8	Giá trị thời gian Hàm, chuyển đổi chuỗi đầu vào thành định dạng thời gian.

VBA – Mảng

Khai báo mảng

'Method 1 : Using Dim
Dim arr1() 'Without Size

'Method 2 : Mentioning the Size
Dim arr2(5)  'Declared with size of 5

'Method 3 : using 'Array' Parameter
Dim arr3
arr3 = Array("apple","Orange","Grapes")

• Mặc dù, kích thước mảng được chỉ định là 5, nó có thể chứa 6 giá trị khi chỉ mục mảng bắt đầu từ ZERO.
• Chỉ số mảng không thể âm.
• Mảng VBScript có thể lưu trữ bất kỳ loại biến nào trong một mảng. Do đó, một mảng có thể lưu trữ một số nguyên, chuỗi hoặc ký tự trong một biến mảng duy nhất.

Gán các giá trị cho một mảng

Thí dụ

Private Sub Constant_demo_Click()
   Dim arr(5)
   arr(0) = "1"           'Number as String
   arr(1) = "VBScript"    'String
   arr(2) = 100      'Number
   arr(3) = 2.45      'Decimal Number
   arr(4) = #10/07/2013#  'Date
   arr(5) = #12.45 PM#    'Time
  
   msgbox("Value stored in Array index 0 : " & arr(0))
   msgbox("Value stored in Array index 1 : " & arr(1))
   msgbox("Value stored in Array index 2 : " & arr(2))
   msgbox("Value stored in Array index 3 : " & arr(3))
   msgbox("Value stored in Array index 4 : " & arr(4))
   msgbox("Value stored in Array index 5 : " & arr(5))
End Sub

Value stored in Array index 0 : 1
Value stored in Array index 1 : VBScript
Value stored in Array index 2 : 100
Value stored in Array index 3 : 2.45
Value stored in Array index 4 : 7/10/2013
Value stored in Array index 5 : 12:45:00 PM

Mảng đa chiều

Thí dụ

Private Sub Constant_demo_Click()
   Dim arr(2,3) as Variant ' Which has 3 rows and 4 columns
   arr(0,0) = "Apple" 
   arr(0,1) = "Orange"
   arr(0,2) = "Grapes"           
   arr(0,3) = "pineapple" 
   arr(1,0) = "cucumber"           
   arr(1,1) = "beans"           
   arr(1,2) = "carrot"           
   arr(1,3) = "tomato"           
   arr(2,0) = "potato"             
   arr(2,1) = "sandwitch"            
   arr(2,2) = "coffee"             
   arr(2,3) = "nuts"            
           
   msgbox("Value in Array index 0,1 : " &  arr(0,1))
   msgbox("Value in Array index 2,2 : " &  arr(2,2))
End Sub

Value stored in Array index : 0 , 1 : Orange
Value stored in Array index : 2 , 2 : coffee

Tuyên bố ReDim

Cú pháp

ReDim [Preserve] varname(subscripts) [, varname(subscripts)]

Mô tả về Thông Số

• Bảo toàn – Một tham số tùy chọn được sử dụng để bảo toàn dữ liệu trong một mảng hiện có khi bạn thay đổi kích thước của kích thước cuối cùng.
• Varname – Một tham số bắt buộc, biểu thị tên của biến, phải tuân theo các quy ước đặt tên biến tiêu chuẩn.
• Đăng ký – Một tham số bắt buộc, cho biết kích thước của mảng.

Thí dụ

Private Sub Constant_demo_Click()
   Dim a() as variant
   i = 0
   redim a(5)
   a(0) = "XYZ"
   a(1) = 41.25
   a(2) = 22
  
   REDIM PRESERVE a(7)
   For i = 3 to 7
   a(i) = i
   Next
  
   'to Fetch the output
   For i = 0 to ubound(a)
      Msgbox a(i)
   Next
End Sub

XYZ
41.25
22
3
4
5
6
7

Phương thức mảng

S.No.	Mô tả chức năng
1	LBound Hàm, trả về một số nguyên tương ứng với chỉ số nhỏ nhất của các mảng đã cho.
2	Cơ sở Hàm, trả về một số nguyên tương ứng với chỉ số lớn nhất của các mảng đã cho.
3	Tách Hàm, trả về một mảng chứa một số giá trị được chỉ định. Chia dựa trên một dấu phân cách.
4	Tham gia Hàm trả về một chuỗi chứa một số chuỗi con được chỉ định trong một mảng. Đây là một chức năng hoàn toàn ngược lại của Phương pháp phân chia.
5	Bộ lọc Hàm trả về mảng dựa trên số 0 chứa tập hợp con của mảng chuỗi dựa trên tiêu chí lọc cụ thể.
6	IsArray Hàm trả về giá trị boolean cho biết biến đầu vào có phải là một mảng hay không.
7	Xóa Hàm, phục hồi bộ nhớ được phân bổ cho các biến mảng.

VBA – Hàm do người dùng xác định

Định nghĩa hàm

Cú pháp

Function Functionname(parameter-list)
   statement 1
   statement 2
   statement 3
   .......
   statement n
End Function

Thí dụ

Function findArea(Length As Double, Optional Width As Variant)
   If IsMissing(Width) Then
      findArea = Length * Length
   Else
      findArea = Length * Width
   End If
End Function

Gọi một chức năng

VBA – Thủ tục phụ

• Các thủ tục phụ KHÔNG trả về giá trị trong khi các hàm có thể hoặc không thể trả về giá trị.
• Thủ tục phụ CÓ THỂ được gọi mà không cần một từ khóa cuộc gọi.
• Các thủ tục phụ luôn được đính kèm trong các câu lệnh Sub và End Sub.

Thí dụ

Sub Area(x As Double, y As Double)
   MsgBox x * y
End Sub

Thủ tục gọi

Function findArea(Length As Double, Width As Variant)
   area Length, Width    ' To Calculate Area 'area' sub proc is called
End Function

VBA – Sự kiện

• Sự kiện bảng tính
• Sự kiện Workbook

Sự kiện bảng tính

Private Sub Worksheet_Activate() 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 
Private Sub Worksheet_Calculate() 
Private Sub Worksheet_Change(ByVal Target As Range) 
Private Sub Worksheet_Deactivate() 
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Thí dụ

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   MsgBox "Before Double Click"
End Sub

Đầu ra

Sự kiện Workbook

Private Sub Workbook_AddinUninstall() 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Private Sub Workbook_BeforePrint(Cancel As Boolean) 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Private Sub Workbook_Deactivate() 
Private Sub Workbook_NewSheet(ByVal Sh As Object) 
Private Sub Workbook_Open() 
Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 
Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
Private Sub Workbook_WindowActivate(ByVal Wn As Window) 
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) 
Private Sub Workbook_WindowResize(ByVal Wn As Window)

Thí dụ

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   MsgBox "New Sheet Created Successfully"
End Sub

Đầu ra

VBA – Xử lý lỗi

Lỗi cú pháp

Function ErrorHanlding_Demo()
   dim x,y
   x = "Tutorialspoint"
   y = Ucase(x
End Function

Lỗi thời gian chạy

Function ErrorHanlding_Demo1()
   Dim x,y
   x = 10
   y = 20
   z = fnadd(x,y)
   a = fnmultiply(x,y)
End Function

Function fnadd(x,y)
   fnadd = x + y
End Function

Lỗi logic

Đối tượng Err

Thí dụ

Err.Raise 6   ' Raise an overflow error.
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear   ' Clear the error.

Xử lý lỗi

On Error { GoTo [ line | 0 | -1 ] | Resume Next }

S.No.	Từ khóa & Mô tả
1	Đường dây GoTo Cho phép thường trình xử lý lỗi bắt đầu tại dòng được chỉ định trong đối số dòng được yêu cầu. Dòng được chỉ định phải ở cùng quy trình với câu lệnh On Error, hoặc sẽ xảy ra lỗi thời gian biên dịch.
2	GoTo 0 Vô hiệu hóa trình xử lý lỗi được kích hoạt trong quy trình hiện tại và đặt lại thành Không có gì.
3	GoTo -1 Vô hiệu hóa ngoại lệ được kích hoạt trong quy trình hiện tại và đặt lại thành Không có gì.
4	Tiếp tục lại Chỉ định rằng khi xảy ra lỗi trong thời gian chạy, điều khiển sẽ chuyển đến câu lệnh ngay sau câu lệnh xảy ra lỗi và việc thực thi tiếp tục từ thời điểm đó.

Thí dụ

Public Sub OnErrorDemo()
   On Error GoTo ErrorHandler   ' Enable error-handling routine.
   Dim x, y, z As Integer
   x = 50
   y = 0
   z = x / y   ' Divide by ZERO Error Raises
  
   ErrorHandler:    ' Error-handling routine.
   Select Case Err.Number   ' Evaluate error number.
      Case 10   ' Divide by zero error
         MsgBox ("You attempted to divide by zero!")
      Case Else
         MsgBox "UNKNOWN ERROR  - Error# " & Err.Number & " : " & Err.Description
   End Select
   Resume Next
End Sub

VBA – Đối tượng Excel

• Đối tượng ứng dụng
• Đối tượng sách bài tập
• Đối tượng trang tính
• Đối tượng phạm vi

Đối tượng ứng dụng

• Các cài đặt và tùy chọn trên toàn ứng dụng.
• Các phương thức trả về các đối tượng cấp cao nhất, như ActiveCell, ActiveSheet, v.v.

Thí dụ

'Example 1 :
Set xlapp = CreateObject("Excel.Sheet") 
xlapp.Application.Workbooks.Open "C:test.xls"

'Example 2 :
Application.Windows("test.xls").Activate

'Example 3:
Application.ActiveCell.Font.Bold = True

Đối tượng sách bài tập

Thí dụ

'Ex 1 : To close Workbooks
Workbooks.Close

'Ex 2 : To Add an Empty Work Book
Workbooks.Add

'Ex 3: To Open a Workbook
Workbooks.Open FileName:="Test.xls", ReadOnly:=True

'Ex : 4 - To Activate WorkBooks
Workbooks("Test.xls").Worksheets("Sheet1").Activate

Đối tượng trang tính

Thí dụ

'Ex 1 : To make it Invisible
Worksheets(1).Visible = False

'Ex 2 : To protect an WorkSheet
Worksheets("Sheet1").Protect password:=strPassword, scenarios:=True

Đối tượng phạm vi

'Ex 1 : To Put a value in the cell A5
Worksheets("Sheet1").Range("A5").Value = "5235"

'Ex 2 : To put a value in range of Cells
Worksheets("Sheet1").Range("A1:A4").Value = 5

VBA – Tệp văn bản

• Đối tượng hệ thống tệp
• sử dụng lệnh Write

Đối tượng hệ thống tệp (FSO)

S.No.	Loại đối tượng và mô tả
1	Lái xe Ổ đĩa là một đối tượng. Chứa các phương thức và thuộc tính cho phép bạn thu thập thông tin về một ổ đĩa được gắn vào hệ thống.
2	Ổ đĩa Ổ đĩa là một Bộ sưu tập. Nó cung cấp một danh sách các ổ đĩa được gắn vào hệ thống, về mặt vật lý hoặc logic.
3	Tập tin Tệp là một đối tượng. Nó chứa các phương thức và thuộc tính cho phép các nhà phát triển tạo, xóa hoặc di chuyển tệp.
4	Các tập tin Tập tin là một Bộ sưu tập. Nó cung cấp một danh sách tất cả các tập tin có trong một thư mục.
5	Thư mục Thư mục là một đối tượng. Nó cung cấp các phương thức và thuộc tính cho phép các nhà phát triển tạo, xóa hoặc di chuyển các thư mục.
6	Thư mục Thư mục là một Bộ sưu tập. Nó cung cấp một danh sách tất cả các thư mục trong một thư mục.
7	TextStream TextStream là một đối tượng. Nó cho phép các nhà phát triển đọc và viết các tệp văn bản.

Lái xe

• Không gian có sẵn
• Ký tự ổ đĩa
• Loại ổ
• Hệ thống tập tin
• Không gian trông
• Sẵn sàng
• Con đường
• Thư mục gốc
• Số sê-ri
• Tên chia sẻ
• Tổng kích thước
• VolumeName

Thí dụ

Private Sub fn_write_to_text_Click()
   Dim FilePath As String
   Dim CellData As String
   Dim LastCol As Long
   Dim LastRow As Long
  
   Dim fso As FileSystemObject
   Set fso = New FileSystemObject
   Dim stream As TextStream
  
   LastCol = ActiveSheet.UsedRange.Columns.Count
   LastRow = ActiveSheet.UsedRange.Rows.Count
    
   ' Create a TextStream.
   Set stream = fso.OpenTextFile("D:TrySupport.log", ForWriting, True)
  
   CellData = ""
  
   For i = 1 To LastRow
      For j = 1 To LastCol
         CellData = Trim(ActiveCell(i, j).Value)
         stream.WriteLine "The Value at location (" & i & "," & j & ")" & CellData
      Next j
   Next i
  
   stream.Close
   MsgBox ("Job Done")
End Sub

Đầu ra

Viết lệnh

Thí dụ

Private Sub fn_write_to_text_Click()
   Dim FilePath As String
   Dim CellData As String
   Dim LastCol As Long
   Dim LastRow As Long
  
   LastCol = ActiveSheet.UsedRange.Columns.Count
   LastRow = ActiveSheet.UsedRange.Rows.Count
    
   FilePath = "D:Trywrite.txt"
   Open FilePath For Output As #2
  
   CellData = ""
   For i = 1 To LastRow
      For j = 1 To LastCol
         CellData = "The Value at location (" & i & "," & j & ")" & Trim(ActiveCell(i, j).Value)
         Write #2, CellData
      Next j
   Next i
  
   Close #2
   MsgBox ("Job Done")
End Sub

Đầu ra

VBA – Biểu đồ lập trình

' Procedure to Generate Pie Chart
Private Sub fn_generate_pie_graph_Click()
   Dim cht As ChartObject
   For Each cht In Worksheets(1).ChartObjects
      cht.Chart.Type = xlPie
   Next cht
End Sub

' Procedure to Generate Bar Graph
Private Sub fn_Generate_Bar_Graph_Click()
   Dim cht As ChartObject
   For Each cht In Worksheets(1).ChartObjects
      cht.Chart.Type = xlBar
   Next cht
End Sub

' Procedure to Generate Column Graph
Private Sub fn_generate_column_graph_Click()
   Dim cht As ChartObject
   For Each cht In Worksheets(1).ChartObjects
      cht.Chart.Type = xlColumn
   Next cht
End Sub

VBA – Biểu mẫu người dùng

Điều khiển	Tên logic	Chú thích
Từ	frmempform	Mẫu nhân viên
Hộp nhãn nhân viên	đoàn kết	Mã hiệu công nhân
hộp nhãn tên	tên đầu tiên	Tên đầu tiên
hộp nhãn	họ	Họ
hộp nhãn dob	dob	Ngày sinh
hộp thư	tài khoản mail	ID email
Hộp đựng hộ chiếu	Người nắm hộ chiếu	Người nắm hộ chiếu
Hộp văn bản Emp ID	txtempid	KHÔNG áp dụng
Tên văn bản hộp	tên đầu tiên	KHÔNG áp dụng
Họ	tên txtlast	KHÔNG áp dụng
Hộp văn bản ID email	txtemailid	KHÔNG áp dụng
Hộp Combo ngày	cmbdate	KHÔNG áp dụng
Hộp Combo tháng	cmbmonth	KHÔNG áp dụng
Hộp Combo năm	cmbyear	KHÔNG áp dụng
Có nút radio	radioyes	Vâng
Không có nút radio	radiono	Không
Nút gửi	btnsubmit	Gửi đi
Nút hủy	btncattery	Hủy bỏ

Private Sub UserForm_Initialize()
   'Empty Emp ID Text box and Set the Cursor 
   txtempid.Value = ""
   txtempid.SetFocus
   
   'Empty all other text box fields
   txtfirstname.Value = ""
   txtlastname.Value = ""
   txtemailid.Value = ""
   
   'Clear All Date of Birth Related Fields
   cmbdate.Clear
   cmbmonth.Clear
   cmbyear.Clear
   
   'Fill Date Drop Down box - Takes 1 to 31
   With cmbdate
      .AddItem "1"
      .AddItem "2"
      .AddItem "3"
      .AddItem "4"
      .AddItem "5"
      .AddItem "6"
      .AddItem "7"
      .AddItem "8"
      .AddItem "9"
      .AddItem "10"
      .AddItem "11"
      .AddItem "12"
      .AddItem "13"
      .AddItem "14"
      .AddItem "15"
      .AddItem "16"
      .AddItem "17"
      .AddItem "18"
      .AddItem "19"
      .AddItem "20"
      .AddItem "21"
      .AddItem "22"
      .AddItem "23"
      .AddItem "24"
      .AddItem "25"
      .AddItem "26"
      .AddItem "27"
      .AddItem "28"
      .AddItem "29"
      .AddItem "30"
      .AddItem "31"
   End With
   
   'Fill Month Drop Down box - Takes Jan to Dec
   With cmbmonth
      .AddItem "JAN"
      .AddItem "FEB"
      .AddItem "MAR"
      .AddItem "APR"
      .AddItem "MAY"
      .AddItem "JUN"
      .AddItem "JUL"
      .AddItem "AUG"
      .AddItem "SEP"
      .AddItem "OCT"
      .AddItem "NOV"
      .AddItem "DEC"
   End With
   
   'Fill Year Drop Down box - Takes 1980 to 2014
   With cmbyear
      .AddItem "1980"
      .AddItem "1981"
      .AddItem "1982"
      .AddItem "1983"
      .AddItem "1984"
      .AddItem "1985"
      .AddItem "1986"
      .AddItem "1987"
      .AddItem "1988"
      .AddItem "1989"
      .AddItem "1990"
      .AddItem "1991"
      .AddItem "1992"
      .AddItem "1993"
      .AddItem "1994"
      .AddItem "1995"
      .AddItem "1996"
      .AddItem "1997"
      .AddItem "1998"
      .AddItem "1999"
      .AddItem "2000"
      .AddItem "2001"
      .AddItem "2002"
      .AddItem "2003"
      .AddItem "2004"
      .AddItem "2005"
      .AddItem "2006"
      .AddItem "2007"
      .AddItem "2008"
      .AddItem "2009"
      .AddItem "2010"
      .AddItem "2011"
      .AddItem "2012"
      .AddItem "2013"
      .AddItem "2014"
   End With
   
   'Reset Radio Button. Set it to False when form loads.
   radioyes.Value = False
   radiono.Value = False

End Sub

Private Sub btnsubmit_Click()
   Dim emptyRow As Long
  
   'Make Sheet1 active
   Sheet1.Activate
  
   'Determine emptyRow
   emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
  
   'Transfer information
   Cells(emptyRow, 1).Value = txtempid.Value
   Cells(emptyRow, 2).Value = txtfirstname.Value
   Cells(emptyRow, 3).Value = txtlastname.Value
   Cells(emptyRow, 4).Value = cmbdate.Value & "/" & cmbmonth.Value & "/" & cmbyear.Value
   Cells(emptyRow, 5).Value = txtemailid.Value
  
   If radioyes.Value = True Then
      Cells(emptyRow, 6).Value = "Yes"
   Else
      Cells(emptyRow, 6).Value = "No"
   End If
End Sub

Private Sub btncancel_Click()
   Unload Me
End Sub

Tuyển tập những tài liệu hay nhất về lập trình VBA Macro trên Excel tải về free dành cho các bạn.

?DienDan.Edu.Vn cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn. https://diendan.edu.vn/
?Các bạn tham khảo hướng dẫn tải file trên Quản Trị Excel tại đây: http://www.quantriexcel.info/2018/11/huong-dan-tai-file-tren-quan-tri-excel.html

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.