Nội dung chính Bài giảng Tin văn phòng: Chương 14 được trình bày như sau: Một số kiến thức VBA cơ bản, kiểu dữ liệu, khai báo biến, lệnh vào/ra dữ liệu, viết thử một hàm với VBA.
TIN VĂN PHÒNG Chủ đề: Microsoft Office Nội dung Macro Một số kiến thức VBA Kiểu liệu Khai báo biến Lệnh vào/ra liệu Viết thử hàm với VBA Trương Xuân Nam - Khoa CNTT Macro Trương Xuân Nam - Khoa CNTT Macro Tính cao cấp, cho phép ghi lại dãy hành động thực lặp lại cách tự động dãy hành động Ghi macro: Ribbon View Macros Record Macro… Trương Xuân Nam - Khoa CNTT Macro Ghi macro (tiếp): Nhập tên cho macro (không chứa dấu cách) Nhập phím tắt Nhập vào mục Description (mô tả) Nhấn nút OK Sau thời điểm máy tính ghi lại thao tác làm việc với bảng tính Sau thực xong, ta chọn View => Macros => Stop Recording Trương Xuân Nam - Khoa CNTT Macro Mỗi cần thực macro, bấm phím tắt gán trước cho macro để kích hoạt Sau ghi lại macro, ta vào “View” => “Macros” => “View Macros” để vào xem danh sách macro ghi lại Trên danh sách macro, bấm Edit để vào xem nội dung macro ghi lại chỉnh sửa cần Trương Xuân Nam - Khoa CNTT Một số kiến thức VBA Trương Xuân Nam - Khoa CNTT Một số kiến thức VBA Các kiểu liệu Kiểu logic: Boolean (true false) Kiểu số nguyên Kiểu số thực Kiểu xâu kí tự: String Kiểu Variant: Variant Trương Xuân Nam - Khoa CNTT Kiểu số nguyên Dùng để chứa giá trị số nguyên Kiểu số nguyên Kích thước Phạm vi Integer byte -32,768 đến 32,767 Long byte -2,147,483,648 đến 2,147,483,647 Trương Xuân Nam - Khoa CNTT Kiểu số thực Dùng để chứa giá trị số thực Kiểu số thực Kích thước Phạm vi Single byte -3.402823E38 đến -1.401298E-45 từ 1.401298E-45 đến 3.402823E38 Double byte -1.79769313486231E308 đến 4.94065645841247E-324 từ 4.94065645841247E-324 đến 1.79769313486232E308 Trương Xuân Nam - Khoa CNTT 10 Kiểu xâu kí tự (chuỗi): String Chuỗi hàng bao gồm ký tự liên tục nhau, ký tự đa dạng: chữ số, chữ cái, dấu cách(space), ký hiệu,… Số lượng ký tự tối đa chuỗi lớn (216 ký tự) Mặc định VB, biến hay tham số kiểu chuỗi có chiều dài thay đổi tùy theo giá trị liệu gán cho Trương Xuân Nam - Khoa CNTT 11 Kiểu variant: Variant Kiểu liệu đặc biệt chứa tất loại liệu, ngoại trừ kiểu chuỗi có chiều dài cố định Kiểu Variant chứa giá trị đặc biệt Empty, Error, Nothing Null Trương Xuân Nam - Khoa CNTT 12 Khai báo biến Biến vùng nhớ tạm nhớ máy tính kết hợp với tên Cú pháp khai báo Dim as Dim X as Integer Dim X as Long Dim X as Single Dim X as Double Dim X as Variant Trương Xuân Nam - Khoa CNTT 13 Khai báo biến Chúng ta khái báo biến chứa mảng giá trị Khai báo biến mảng sau: Dim X (1 to 5) as Single Dim X (1 to 5,1 to 10) as Single Trương Xuân Nam - Khoa CNTT 14 Lệnh vào/ra liệu Lệnh vào liệu để thực đọc liệu vào in liệu Sử dụng lệnh Range vùng liệu xác, lệnh Cell cho vùng liệu tương đối Trương Xuân Nam - Khoa CNTT 15 Đọc liệu vào Nhận giá trị từ bảng tính vào biến Cú pháp Var_name = Range(row, col).Value Ví dụ : X= Range(“A3”).Value Cú pháp 2: Var_name = Cell(row, col).Value Ví dụ: X= Cell(ctr, 1).Value a(i)= Cell(ctr, 1).Value Trương Xuân Nam - Khoa CNTT 16 Lấy liệu Lấy giá trị từ biến vào bảng tính Cú pháp 1: Range(“Cell”).Value = Ví dụ: Range(“A3”).Value= PI()*r^2 Range(“X7”).Value= Total_h Cú pháp 2: Cell(w, y).Value = Với w, y biến Ví dụ: Cell(3,1).Value = Max_x Cell(12,5).Value = 2*(a+b) Trương Xuân Nam - Khoa CNTT 17 Lấy liệu Chúng ta đặt vào Ví dụ: Range(“X7”).Value = “grass” Cell(6, 4).Value = Trương Xuân Nam - Khoa CNTT 18 Viết thử hàm với VBA Trương Xuân Nam - Khoa CNTT 19 Viết thử hàm với VBA Tại cần viết hàm mới: Vì hàm Excel cung cấp chưa đủ giải vấn đề Cung cấp hàm mới, giúp viết cơng thức Excel đơn giản Kích hoạt trình soạn VBA: Alt-F11 Thêm module mới: VBA Project => Insert => Module Trương Xuân Nam - Khoa CNTT 20 Viết thử hàm với VBA Viết thử hàm DienTich: Public Function DienTich(Rong As Double, Cao As Double) As Double DienTich = Rong * Cao End Function Sau viết xong ta sử dụng hàm Excel Trương Xuân Nam - Khoa CNTT 21 Viết thử hàm với VBA Viết hàm tách dãy thành dãy theo ngưỡng Sub TachDay() Dim a(1 To 20) As Double Dim x As Double Dim i As Byte Range("E1:H15").Select Selection.ClearContents x = Val(InputBox("nhap gia tri nguong ", "Enter Box")) For i = To 15 a(i) = Cells(i, 3).Value If a(i) > x Then Cells(i, 5).Value = a(i) Else Cells(i, 7).Value = a(i) End If Next End Sub Trương Xuân Nam - Khoa CNTT 22 ... 2*(a+b) Trương Xuân Nam - Khoa CNTT 17 Lấy liệu Chúng ta đặt vào Ví dụ: Range(“X7”).Value = “grass” Cell(6, 4).Value = Trương Xuân Nam - Khoa CNTT 18 Viết thử hàm với VBA Trương Xuân Nam -. .. Trương Xuân Nam - Khoa CNTT Kiểu số nguyên Dùng để chứa giá trị số nguyên Kiểu số nguyên Kích thước Phạm vi Integer byte -3 2,768 đến 32,767 Long byte -2 ,147 ,483,648 đến 2 ,147 ,483,647 Trương Xuân. .. Kiểu liệu Khai báo biến Lệnh vào/ra liệu Viết thử hàm với VBA Trương Xuân Nam - Khoa CNTT Macro Trương Xuân Nam - Khoa CNTT Macro Tính cao cấp, cho phép ghi lại dãy hành động thực