b/ Tạo Macro sử dụng VBA
4.4. Vấn đề an tồn khi sử dụng Macro
- Do Macro là những đoạn mã lệnh cĩ thể tự động thực thi và những đoạn mã lệnh này cĩ thể gây nguy hiểm cho máy tính của người dùng (dạng Macro Virus). Chính vì vậy, Excel sử dụng cơ chế bảo vệ để chống lại nguy cơ lây nhiễm virus thơng qua Macro. Cơ chế này cĩ thể được điều chỉnh thơng qua các mức an ninh khác nhau:
+ Very High + High + Medium + Low
-Mức an ninh của Excel cĩ thể được thiết lập bằng cách chọn trình đơn Tools/Macro/Security…
- Thơng thường, khi sử dụng Excel với các tệp bảng tính cĩ chứa Macro, nên đặt mức an ninh ở Medium. Ở mức này, Excel sẽ yêu cầu người dùng xác thực xem các đoạn mã lệnh trong tệp bảng tính cĩ phải từ nguồn tin cậy hay khơng.
Hộp thoại cảnh báo an ninh của excel
- Nếu người dùng chọn Enable Macros, các Macro chứa trong workbook đĩ sẽ được phép thực thi.
- Nếu người dùng chọn Disable Macros, các Macro chứa trong workbook đĩ vẫn tồn tại trong workbook nhưng khơng thể thực thi được.
5. Thực hành
Bài 1: (hd)Dùng macro để thu cách tính Tổng 2 số như mẫu sau:
HD:
-Tạo macro : Developer \ record macro\ OK + Kết quả= A+B
+Xĩa : xĩa A,B
Bài 2:Tương tự bài 1
- Tính Trừ cho 3 số - Tính nhân cho 4 số - Tính Chia cho 2 số
Bài 3 Thu định dạng (màu, viền, kích cở chữ,..) macro như hình sau, sau đĩ tính tốn theo yêu
Bài 4: Hãy in màu đỏ cho các điểm thi lớn hơn bằng 5 như hình sau:
HD
Public Sub lonhon5()
'khai bao bien
Dim diachi As String Dim traloi As Integer Dim otinh As Range Dim vungchon As Variant
'khoi gan gia tri ban dau
vungchon = Selection diachi = Selection.Address
'hien thi thong bao ra man hinh
traloi = MsgBox(diachi, vbYesNo) If traloi = 7 Then End
'duyet tim va tra ve ket qua ,so 3 la mau
For Each otinh In Selection.Cells If Val(otinh.Value) >= 5 Then With otinh.Font .ColorIndex = 3 .Bold = True End With End If Next otinh End Sub
Bài 5(hd) Tìm Kiếm sử dụng Advanced Fliter kết hợp với Macro trong Excel, trang trí như hình sau:
u cầu: lọc tùy thích theo dịng A15;J16
HD:
-Mở excel trang trí như hình trên -View\ Macro \ record macro\
- List range :tơ đen từ dịng 2 dịng 10, cộtA đến J (Bảng kết quả thi tin hoc tháng 5/ 2014)
-Criteria range(điều kiện): chọn dịng 15 đến 16, cộtA đến J ( Nhập vào tên và các thơng tin cần tìm kiếm) -Copy to: kết quả tìm kiếm
(chọn dịng 22 đến 36, cộtA đến J)
-Tạo shape chạy macro vừa tạo \asign macro
Bài 6:Tìm Kiếm sử dụng Advanced Fliter kết hợp với Macro trong Excel, trang trí như hình
sau:
u cầu: lọc tùy thích theo dịng A20:E22 Ví dụ1 :
Bài 7:Tạo liên kết các sheet (từ sheet 1 sang sheet3)
HD:
-Sheet 1: Tạo shape /chuột phải chọn Hyperlink
Bài 8: Gỡ bỏ tồn bộ hyperlink trong file Excel
HD:
Bước 1: Bật thanh cơng cụ Developer của Excel để chạy Macro Bước 2: Viết một dịng code bằng Visual Basic
Hãy bấm vào nút “Visual Basic” trên thanh cơng cụ Developer, cửa sổ hiện ra nhấp chuột phải vào “Microsoft Excel Objects” > chọn Insert > chọn Module.
Sub RemoveHyperlinks()
ActiveSheet.Hyperlinks.Delete End Sub
Bước 3: Nút “Macros” ở thẻ Developer, sau đĩ “RemoveHyperlinks” đã được chọn sẵn và chỉ
việc bấm nút Run
Bài 9: (hd) Tạo Combobox Trong Excel , như mẫu sau
HD:
- Mở excel lên đánh như mẫu
-Tạo macro :view \macro\record macro +Filter dữ liệu
+ Stop recording
-Tạo combox :
+ chuột phải combox chọn Format control \
+ chuột phải chọn Asign macro \new đánh code vào „mua vao, ban ra
Sub DropDown1_Change() If Range("q12") = 1 Then Range("o21") = "MV" Else Range("o21") = "BR" End If Application.CutCopyMode = False
Range("A12:M43").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("Q20:P21"), Unique:=False
ActiveWindow.SmallScroll down:=6
‗hang hoa, dich vu Sub DropDown2_Change() If Range("q15") = 1 Then Range("p21") = "HH" Else Range("p21") = "DV" End If Application.CutCopyMode = False
Range("A12:M19").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("O20:P21"), Unique:=False ActiveWindow.SmallScroll down:=6 End Sub ‗macro Sub dd() Application.CutCopyMode = False
Range("A12:M19").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("O20:P21"), Unique:=False
ActiveWindow.SmallScroll down:=6
End Sub
Bài 11: Lọc xếp loại như bảng sau:
Bước 1: Nhập dữ liệu và tính ttheo yêu cầu;
- Bước 2: lọc dữ liệu theo xếp loại
-Bước 3: kiểm tra lại
6. Kiểm tra
Yêu cầu:
Điểm TBCN: HKI + HK2 nhân 2
Điểm Thưởng: nếu HK(hạnh kiểm) là T (tốt), thì thưởng 1 ngược -1
Điểm KQ: nếu Điểm TBCN >=5 thì Điểm TBCN+1 ngược lại Điểm TBCN-1 Xếp hạng: dựa vào Điểm KQ
Kết quả: nếu HKI, HKII, Điểm TBCN đều lớn hơn bằng 5 thì đậu ngược rớt Xếp loại: nếu ĐiểmTBCN <3,5 kém
nếu ĐiểmTBCN <5 yếu
nếu ĐiểmTBCN <6,5 trung bình nếu ĐiểmTBCN <8 khá
Bài 3: Lập trình tạo các Macro hỗ trợ cho các cơng việc soạn thảo văn bản bằng phần mềm Microsoft word soạn thảo văn bản bằng phần mềm Microsoft word
-*****- 1. Khái niệm về Macro trong Microsoft Word 1. Khái niệm về Macro trong Microsoft Word
- Khi làm việc với Word, nhiều khi phải lặp lại một số các thao tác xử lý trên tài liệu. Điều này sẽ được đơn giản hơn khi áp dụng kỹ thuật Macro.
- Ta cĩ thể tự động hố một số tác vụ đơn giản hay phức tạp trong Microsoft Word bằng cách tạo các Macro. Một Macro bao gồm một loạt các tác vụ của Word và cho phép chúng ta thi hành các tác vụ đĩ bằng cách chỉ phát một lệnh. Bằng cách ghi lại Macro, ta cĩ thể tiết kiệm được nhiều thời gian và làm cho Word dễ dùng hơn. Khi tạo Macro, điều đĩ cĩ nghĩa là đã tạo cho Word một chức năng mới.
- Macro cĩ thể hiểu là một lệnh để gọi một thủ tục (thủ tục là một chương trình được lập trình trên máy tính cĩ thể bao gồm nhiều lệnh yêu cầu máy tính làm việc) nào đĩ. Lệnh Macro cĩ thể được gắn bởi tổ hợp phím tắt hoặc được gắn vào một nút lệnh trên thanh cơng cụ mà khi nhấn tổ hợp phím này hoặc nhấn chuột lên nút đã gán trên thanh cơng cụ.