Microsoft Visual Basic for Applications Created & Presented by: TBL Group 2 Nội dung chính Nội dung chính  Giới thiệu về VBA.  Các khái niệm cơ bản trong VBA.  Ví Dụ và… ví dụ và… lại vÍ dỤ. 3 I. Giới thiệu về VBA I. Giới thiệu về VBA  VBA là gì ?  Lập trình hướng sự kiện.  Why is VBA? 4 I.1 VBA là gì? I.1 VBA là gì?  VBA: Visual Basic for Applications  Ngôn ngữ lập trình → Microsoft Office  VBA: • Mạnh mẽ hơn. • Linh hoạt hơn. • Lỗi nhiều hơn. 5 I.2 Lập trình hướng sự kiện I.2 Lập trình hướng sự kiện  VBA - môi trường phát triển theo hướng đối tượng.  Sự kiện đóng vai trò quan trọng.  Người sử dụng xác định trình tự. 6 Why is VBA? Why is VBA?  Dễ dàng sửa chữa và duy trì  Hàm cần tìm không có trong thư viện?  Bẫy lỗi (Error trapping).  Tự động tạo mới, thay đổi các đối tượng  Thực hiện các lệnh cấp thấp (system- level)  Can thiệp đến từng bản ghi  Khả năng tùy biến tham số cao 7 II. Các khái niệm cơ bản II. Các khái niệm cơ bản a. Objects b. Properties & Methods & Events c. Procedures & Modules d. Soạn thảo mã lệnh với VBE. e. Mệnh đề logic, cấu trúc lặp f. Các hàm có sẵn trong VBA 8 A. OBJECTS A. OBJECTS  Bảng  Form  Truy vấn  Báo cáo ………. 9 10 B.1 Properties B.1 Properties  Xác định thông tin về đối tượng  Truy xuất: (Tên đối tượng).(tên thuộc tính) Ví dụ: hovaten.caption Hình 1: Bảng thuộc tính của một đối tượng [...]... vbInformation, _ “Let’s play HL 2.0“  End Sub  27 E.2 Mệnh đề lựa chọn Case Select Case test expression Case list-1 'Statements Case list-2 'Statements Case Else 'Statements End Select 28 E.3 Các lệnh cơ bản – For Next For counter = start To end [Step step] [statements] [Exit For] [statements] Next [counter] 29 E.3 Các lệnh cơ bản – For Next  Các câu lệnh For có thể lồng nhau: • Result = 0 • For. .. • For J = 1 To 10 • For K = 1 To 10 • Result = Result + I – J + K • Next K • Next J • Next I  Bài tập: Result = ??? 30 E.3 Các lệnh cơ bản – For Next  Result ? A B C D  0 55 1000 5500 I & J triệt tiêu nhau K được tính 1000 lần = 100 *(1 + 2+…+10) = 5500 31 E.4 Các lệnh cơ bản – For Each…  For Each element In group [statements] [Exit For] [statements]  Next [element] 32 E.4 Các lệnh cơ bản – For. ..B.2 Methods   Phương thức, thực hiện các thao tác nhất định Ví dụ: đối tượng DoCmd: [Close, OpenForm, GotoControl, FindRecord,…] DoCmd.Close acForm, "formname", acSaveNo 11 B.3 Events  Event = sự kiện (Oxford Dictionary)  VBA – thực hiện các công việc cần thiết khi sự kiện tương ứng xảy ra 12 C.1 Chương trình con-Procedure  Đoạn chứa mã chương trình... Modules   Chứa: thủ tục, hàm và các khai báo như Dim, Option, Explicit, Có hai loại Modules cơ bản: – Modules chuẩn – Modules trong Class (form class modules, report class modules, custom class modules) 19 20 D Soạn thảo mã lệnh - VBE  Truy xuất: – Tools-MacroVisual Basic Editor – Alt – F11  Các cửa sổ: – – – – Edit windows Properties Debug window Objects window 21 E Các khái niệm cơ bản    Khai... 25 E.1 Các lệnh cơ bản – If… then… Form trong hình vẽ sau đây cho phép người sử dụng chọn lựa việc tính căn bậc hai hay ba: Sub cmdComputer_Click() If opgComputeType = 1 Then MySquarer txtInput.Value Else MyCuber txtInput.Value End If End Sub 26 E.1 Các lệnh cơ bản – If… then…     Sub MySquarer (Number As Double) dblResult = Number * Number MsgBox dblResult, vbInformation, _ "What a silly example!“... K được tính 1000 lần = 100 *(1 + 2+…+10) = 5500 31 E.4 Các lệnh cơ bản – For Each…  For Each element In group [statements] [Exit For] [statements]  Next [element] 32 E.4 Các lệnh cơ bản – For Each… For Each c in worksheets("Sheet1").Range("A1:D10") If c.Value < 001 Then c.Value = 0 End If Next c Lặp trong vùng A1:D10, trong Sheet1, thay giá trị trong ô nhỏ hơn 0.001 bằng 0 33 E.5 Các lệnh cơ bản-... CDec, Str, Val, Hex, Oct Xác đỉnh, và đổi kiểu các biến Date/time Date, Now, DateAdd, DatePart, DateDiff, Year, Month, Day, Hour, Minute, Second, Weekday, DateValue, DateSerial, MonthName, WeekdayName, FormatDateTime Tính toán với ngày tháng và giờ Hàm theo miền DLookup, DCount, DSum, DAvg, DVar Thống kê, tổng hợp kết quả theo từng miền Hàm xử lý lỗi Error, CVErr, IsError Bẫy lỗi và định nghĩa các lỗi . Microsoft Visual Basic for Applications Created & Presented by: TBL Group 2 Nội dung chính Nội dung chính  Giới. trình hướng sự kiện.  Why is VBA? 4 I.1 VBA là gì? I.1 VBA là gì?  VBA: Visual Basic for Applications  Ngôn ngữ lập trình → Microsoft Office  VBA: • Mạnh mẽ hơn. • Linh hoạt hơn. • Lỗi nhiều. đối tượng DoCmd: [Close, OpenForm, GotoControl, FindRecord,…] DoCmd.Close acForm, "formname", acSaveNo 12 B.3 Events B.3 Events  Event = sự kiện (Oxford Dictionary)  VBA – thực