VBA – Tổng quan

Ứng dụng VBA

Truy cập VBA Editor

VBA – Excel Macros

Private Sub say_helloworld_Click()
   MsgBox "Hi"
End Sub

VBA – Điều khoản Excel

Mô-đun

Thủ tục

Chức năng

Tiểu thủ tục

VBA – Nhận xét Macro

• Bất kỳ câu lệnh nào bắt đầu bằng một Trích dẫn Đơn (‘) đượ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ỳ câu lệnh nào bắt đầu bằng 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 thư

Cú pháp

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

Mô tả về Thông Số

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

• 0 vbOKOnly – Chỉ hiển thị nút OK.
• 1 vbOKCancel – Hiển thị các nút OK và Cancel.
• 2 vbAbortRetryIgnore – Hiển thị các nút Abort, Retry và Ignore.
• 3 vbYesNoCancel – Hiển thị các nút Yes, No và Cancel.
• 4 vbYesNo – Hiển thị các nút Có và Không.
• 5 vbRetryCancel – Hiển thị các nút Retry và Cancel.
• 16 vbCritical – Hiển thị biểu tượng Thông báo quan trọng.
• 32 vbQuestion – Hiển thị biểu tượng Query Query.
• 48 vbExclamation – Hiển thị biểu tượng Message Warning.
• 64 vbInformation – Hiển thị biểu tượng Message Information.
• 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 vbỨng dụngPhương thức ứng dụng đa phương thức – Ứ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ư.
• 4096 vbSystemModal System modal – Tất cả các ứng dụng sẽ không hoạt động cho đến khi người dùng trả lời vào hộp tin nhắn.

Giá trị trả về

• 1 – vbOK – OK đã được nhấp
• 2 – vbCancel – Huỷ đã được nhấp
• 3 – vbAbort – Đã hủy nhấp chuột
• 4 – vbRetry – Thử lại đã được nhấp
• 5 – vbIgnore – Bỏ qua đã được nhấp
• 6 – vbYes – Có được nhấp
• 7 – vbNo – 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 – Hộp nhập liệu

Cú pháp

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

Mô tả về Thông Số

• Nhắc – Thông số bắt buộc. Chuỗi được hiển thị dưới dạng tin nhắn trong hộp thoại. Độ dài tối đa của lời nhắc là khoảng 1024 ký tự. Nếu thông điệp mở rộng đến nhiều hơn một dòng, thì các dòng có thể được phân tách bằng ký tự trả về (Chr (13)) hoặc ký tự linefeed (Chr (10)) giữa mỗi dòng.
• Tiêu đề – Thông số tùy chọn. Một biểu thức String đượ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 sẽ được đặt trong thanh tiêu đề.
• Mặc định – Thông 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 – Thông số tùy chọn. Vị trí của trục X thể hiện khoảng cách nhanh từ phía bên trái của màn hình theo chiều ngang. Nếu để trống, hộp nhập sẽ được căn giữa theo chiều ngang.
• YPos – Thông số tùy chọn. Vị trí của trục Y biểu diễn khoảng cách nhanh từ phía bên trái của màn hình theo chiều dọc. Nếu để trống, hộp nhập sẽ được căn giữa theo chiều dọc.
• Helpfile – Một tham số tùy chọn. Biểu thức String 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.
• ngữ cảnh – Tham số tùy chọn. Biểu thức số nhận dạng số bối cảnh Trợ giúp được tác giả Trợ giúp gán cho chủ đề Trợ giúp thích hợp. Nếu ngữ cảnh được cung cấp, cũng phải cung cấp helpfile.

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 chữ cái làm 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 ký tự @, &, $, # trong tên.
• Tên không được vượt quá 255 ký tự.
• Bạn không thể sử dụng từ khóa dành riêng cho Visual Basic làm tên biến.

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

Loai du lieu

Các kiểu dữ liệu số

Kiểu	Phạm vi 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 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
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).

Các kiểu dữ liệu không phải dạng số

Kiểu	Phạm vi giá trị
Chuỗi (độ dài cố định)	1 đến 65.400 ký tự
Chuỗi (độ dài biến đổi)	0 đến 2 tỷ ký tự
Ngày	Ngày 1 tháng 1 đến ngày 31 tháng 12 năm 9999
Boolean	Đúng hay sai
Vật	Bất kỳ đối tượng nhúng nào
Biến thể (số)	Bất kỳ giá trị nào lớn gấp đôi
Biến thể (văn bản)	Giống 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 số

• Bạn phải sử dụng chữ cái làm 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 ký tự @, &, $, # trong tên.
• Tên không được vượt quá 255 ký tự.
• Bạn không thể sử dụng từ khóa dành riêng cho 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à khai thác

• Toán tử số học
• Toán tử so sánh
• Các toán tử logic (hoặc quan hệ)
• Nhà điều hành ghép nối

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ừ lần đầu tiên	A – B sẽ cho -5
*	Nhân cả hai toán hạng	A * B sẽ cho 50
/	Chia tử số cho mẫu số	B / A sẽ cho 2
%	Toán tử mô-đun và phần còn lại sau khi phân chia số nguyên	B% A sẽ cho 0
^	Toán tử lũy thừa	B ^ A sẽ cho 100000

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à True.
>	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 hay không. Nếu có, thì điều kiện là đúng.	(A> B) là Sai.
<	Kiểm tra nếu 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à True.
> =	Kiểm tra nếu 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 nếu 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à True.

Các nhà khai thác hợp lý

Nhà điều hành	Sự miêu tả	Thí dụ
VÀ	Được gọi là toán tử logic và được gọi. Nếu cả hai điều kiện là True, thì Biểu thức là đúng.	a <> 0 AND b <> 0 là Sai.
HOẶC LÀ	Được gọi là logic hoặc toán tử. Nếu bất kỳ điều kiện nào 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à Operical NOT Operator. Được sử dụng để đảo ngược trạng thái logic của toán hạng của nó. Nếu điều kiện là đúng, thì toán tử logic NOT sẽ sai.	NOT (a <> 0 OR b <> 0) là sai.
XOR	Được gọi là Loại trừ hợp lý. Nó là sự kết hợp của NOT và OR Operator. Nếu một, và chỉ một, của các biểu thức được đánh giá là True, kết quả là True.	(a <> 0 XOR b <> 0) là đúng.

Các nhà điều hành ghép nối

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ẽ cung cấp 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 câu lệnh 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	câu lệnh if..else Một câu lệnh if else 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 trong If statements được thực hiện. 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 … elseif..câu lệnh 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 câu lệnh Một nếu hoặc elseif tuyên bố bên khác nếu hoặc elseif statement (s).
5	báo cáo chuyển đổi Một câu lệnh switch cho phép một biến được kiểm tra tính bình đẳng dựa vào 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 ..each Điều này được thực hiện 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 vòng lặp.
4	do..while loops 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 nên được lặp lại cho đến khi điều kiện là Sai.
5	các vòng lặp do..until Các câu lệnh do..Until sẽ được thực hiện miễn là điều kiện là False (tức là,) Lặp lại lặp lại cho đến khi điều kiện là True.

Câu lệnh điều khiển vòng lặp

S.No.	Bảng điều khiển & mô tả
1	Thoát Đối với câu lệnh Chấm dứt câu lệnh Vòng lặp for và chuyển lệnh thực thi đến 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 lệnh thực hiện đến 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 chức năng & Mô tả
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	InstrRev Trả về lần xuất hiện đầu tiên của chuỗi con được chỉ định. Tìm kiếm diễn ra từ phải sang trái.
3	Lcase Trả về trường hợp thấp hơn của chuỗi được chỉ định.
4	Ucase Trả về trường hợp trên của chuỗi được 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ố được chỉ định.
số 8	Ltrim Trả về một chuỗi sau khi xóa các dấu cách ở bên trái của chuỗi được chỉ định.
9	Rtrim Trả về một chuỗi sau khi xóa các dấu cách ở bên phải của chuỗi được chỉ định.
10	Cắt Trả về giá trị chuỗi sau khi xóa cả dấu cách hàng đầu và dấu cách 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 một chuỗi với số không gian được chỉ định.
14	StrComp Trả về 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 có ký tự được chỉ định cho số lần được chỉ định.
16	StrReverse Trả về một chuỗi sau khi đảo ngược chuỗi ký tự của chuỗi đã cho.

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

Chức năng ngày tháng

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 Một hàm, mà chuyển đổi một đầu vào đã cho đến nay.
3	DateAdd Một hàm, trả về một ngày mà khoảng thời gian đã chỉ định đã được thêm vào.
4	DateDiff Một hàm, trả về sự khác biệt giữa hai khoảng thời gian.
5	DatePart Hàm, trả về một phần được chỉ định của giá trị ngày đầu vào đã cho.
6	DateSerial Một hàm, trả về một ngày hợp lệ cho năm, tháng và ngày đã cho.
7	FormatDateTime Một hàm, định dạng ngày dựa trên các tham số được cung cấp.
số 8	IsDate Một hàm, trả về một giá trị Boolean cho dù tham số được cung cấp có phải là một 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 được chỉ định.
10	tháng Hàm, trả về một số nguyên từ 1 đến 12 đại diện cho tháng của ngày được chỉ định.
11	Năm Hàm trả về một số nguyên đại diện cho năm của ngày được chỉ định.
12	MonthName Hàm trả về tên của tháng cụ thể cho ngày được chỉ định.
13	WeekDay Một 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	WeekDayName Hàm trả về tên ngày trong tuần được chỉ định.

Hàm thời gian

S.No.	Mô tả chức năng
1	Hiện nay Một hàm, trả về ngày giờ hiện tại của hệ thống.
2	Giờ Một 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 nằm trong khoảng từ 0 đến 59, biểu thị phần phút của thời gian đã cho.
4	Thứ hai Hàm, trả về một số nguyên nằm trong khoảng từ 0 đến 59, biểu thị 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	Bộ hẹn giờ Hàm, trả về số giây và mili giây từ 12:00 sáng.
7	TimeSerial Một 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 Một hàm, chuyển đổi chuỗi đầu vào thành định dạng thời gian.

VBA – Mảng

Tuyên bố 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, nhưng 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 được â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 đơn lẻ.

Gán 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ố

• Preserve – 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ố được yêu cầu, biểu thị tên của biến, sẽ theo các quy ước đặt tên biến chuẩn.
• Subscripts – 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 pháp mảng

S.No.	Mô tả chức năng
1	LBound Một 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	UBound Một 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 số giá trị được chỉ định. Tách dựa trên dấu phân cách.
4	Tham gia Một hàm, trả về một chuỗi chứa một số lượng các giá trị được chỉ định trong một mảng. Đây là một hàm đối lập chính xác của Phương thức tách.
5	Bộ lọc Một hàm, trả về một mảng dựa trên số không chứa một tập hợp con của một mảng chuỗi dựa trên một tiêu chí lọc cụ thể.
6	IsArray Một hàm, trả về một giá trị boolean cho biết biến đầu vào có phải là một mảng hay không.
7	Tẩy xóa Một hàm, phục hồi bộ nhớ được cấp phát cho các biến mảng.

VBA – Các hàm do người dùng định nghĩa

Định nghĩa chức năng

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 hàm

VBA – Thủ tục phụ

• Các thủ tục con KHÔNG trả về một giá trị trong khi các hàm có thể hoặc không thể trả về một giá trị.
• Thủ tục con có thể được gọi mà không cần từ khóa cuộc gọi.
• Các thủ tục con 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 điện

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 hợp lý

Err Object

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	Line GoTo Bật quy 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 nằm trong cùng một quy trình với câu lệnh On Error hoặc lỗi biên dịch sẽ xảy ra.
2	GoTo 0 Tắt trình xử lý lỗi đã bật trong quy trình hiện tại và đặt lại thành Không có gì.
3	GoTo -1 Tắt ngoại lệ đã bật trong quy trình hiện tại và đặt lại thành Không có gì.
4	Tiếp tục Tiếp tục Chỉ định rằng khi một lỗi thời gian chạy xảy ra, điều khiển đi đến câu lệnh ngay lập tức sau câu lệnh nơi xảy ra lỗi và việc thực hiện tiếp tục từ đ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 Workbook
• Các đối tượng bảng tính
• Đối tượng dải ô

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

• 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, chẳng hạn 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 Workbook

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

Các đối tượng bảng 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 dải ô

'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 tin văn bản

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

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

S.No.	Loại đối tượng & mô tả
1	Lái xe Drive 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 gắn liền với hệ thống, hoặc về thể chất hoặc hợp lý.
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 một tệp.
4	Các tập tin Tệp 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 chứa 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

• AvailableSpace
• 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
• ShareName
• TotalSize
• 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 hợp lý	Chú thích
Từ	frmempform	Biểu mẫu nhân viên
Hộp nhãn ID nhân viên	nhận thức	Mã hiệu công nhân
Hộp nhãn đầu tiên	tên đầu tiên	Tên đầu tiên
Hộp nhãn cuối cùng	họ	Họ
dob Hộp Nhãn	dob	Ngày sinh
Mailid Label Box	tài khoản mail	ID email
Hộp nhãn hộ chiếu	Người nắm hộ chiếu	Người nắm hộ chiếu
Hộp văn bản ID Emp	txtempid	KHÔNG áp dụng
Hộp văn bản tên đầu tiên	txtfirstname	KHÔNG áp dụng
Họ và tên	txtlastname	KHÔNG áp dụng
Hộp văn bản ID email	txtemailid	KHÔNG áp dụng
Hộp ngày kết hợp	cmbdate	KHÔNG áp dụng
Tháng Combo Box	cmbmonth	KHÔNG áp dụng
Hộp kết hợp năm	cmbyear	KHÔNG áp dụng
Nút radio có	radioyes	Vâng
Không có nút radio	radiono	Không
Nút gửi	btnsubmit	Gửi đi
Nút hủy	btncancel	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

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.