VBA trong PowerPoint (bài 2)

Để chạy được các lệnh VBA, quý thầy cô nên cấu hình Powerpoint như đã hướng dẫn trong bài “Mở đầu”. Nếu gặp khó khăn trong việc cấu hình này xin quý thầy cô truy cập vào địa chỉ sau để tải file cấu hình tự động về, khi đó chỉ cần chạy file này, cấu hình sẽ được thiết lập một cách tự động. Nếu máy tính của quý thầy cô đã được thiết lập theo yêu cầu, xin hãy thử click chuột vào dòng “Thứ ” ở bên dưới Thứ… Dòng “Thứ…” phải thay đổi nội dung thành “thứ, ngày tháng, năm” theo hiện hành của hệ thống Hướng dẫn thực hiện Hướng dẫn thực hiện  1. Mở tập PowerPoint (ppt) cần cập nhật 1. Mở tập PowerPoint (ppt) cần cập nhật ngày, tháng như thường. ngày, tháng như thường.  2. Vào menu Tool - Macro – Visual Basic 2. Vào menu Tool - Macro – Visual Basic Editor (hoặc bấm Alt + F11). Editor (hoặc bấm Alt + F11).  3. Trong cửa sổ Visual Basic Editor, quý 3. Trong cửa sổ Visual Basic Editor, quý thầy, cô vào menu Insert – Module. Một thầy, cô vào menu Insert – Module. Một module mới xuất hiện. module mới xuất hiện.  4. Trong trang soạn thảo module, thầy, cô 4. Trong trang soạn thảo module, thầy, cô gõ nội dung sau (phải gõ chính xác): gõ nội dung sau (phải gõ chính xác): Minh họa Minh họa Hướng dẫn thực hiện Hướng dẫn thực hiện Function NgayUNI(ngay), nhấn “Enter” để Function NgayUNI(ngay), nhấn “Enter” để xuống dòng, Visual tự động thêm bên dưới xuống dòng, Visual tự động thêm bên dưới dòng “End Function”, lúc này nội dung dòng “End Function”, lúc này nội dung trang code sẽ như sau: trang code sẽ như sau: Function NgayUNI(ngay) Function NgayUNI(ngay) End Function End Function Quý thầy cô gõ tiếp vào giữa cặp Fun…, End Quý thầy cô gõ tiếp vào giữa cặp Fun…, End với nội dung sau: với nội dung sau: Hướng dẫn thực hiện Hướng dẫn thực hiện dd = Day(ngay) mm = Month(ngay) dd = Day(ngay) mm = Month(ngay) yy = Year(ngay) yy = Year(ngay) Thu = Weekday(ngay) Thu = Weekday(ngay) Select Case Thu Select Case Thu Case 1 Case 1 Thu = "Ch" & ChrW(7911) & " nh" & Thu = "Ch" & ChrW(7911) & " nh" & ChrW(7853) & "t" ChrW(7853) & "t" Case 2 Case 2 Thu = "Th" & ChrW(7913) & " hai" Thu = "Th" & ChrW(7913) & " hai" Hướng dẫn thực hiện Hướng dẫn thực hiện Case 3 Case 3 Thu = "Th" & ChrW(7913) & " ba" Thu = "Th" & ChrW(7913) & " ba" Case 4 Case 4 Thu = "Th" & ChrW(7913) & " t" & ChrW(432) Thu = "Th" & ChrW(7913) & " t" & ChrW(432) Case 5 Case 5 Thu = "Th" & ChrW(7913) & " n" & ChrW(259) & Thu = "Th" & ChrW(7913) & " n" & ChrW(259) & "m" "m" Case 6 Case 6 Thu = "Th" & ChrW(7913) & " sáu" Thu = "Th" & ChrW(7913) & " sáu" Hướng dẫn thực hiện Hướng dẫn thực hiện Case 7 Case 7 Thu = "Th" & ChrW(7913) & " b" & ChrW(7843) & Thu = "Th" & ChrW(7913) & " b" & ChrW(7843) & "y" "y" End Select End Select NgayUNI = Thu & ", ngày " & Format(dd, "00") & " NgayUNI = Thu & ", ngày " & Format(dd, "00") & " tháng " & Format(mm, "00") & " n" & ChrW(259) tháng " & Format(mm, "00") & " n" & ChrW(259) & "m & "m Minh họa Minh họa [...]... Settings, chọn tiếp Run macro – Thumay Save rồi bấm F5 để chạy, click chuột vào dòng thứ …, nội dung của dòng này sẽ được cập nhật theo thứ, ngày, tháng hiện hành Hướng dẫn thực hiện  Lưu ý: Nếu gặp khó trong soạn code, quý thầy cô hãy mở tập tin này rồi bấm Alt + F11 sẽ mở cửa sổ Visual Basic để tham khảo trang code của bài học này . Để chạy được các lệnh VBA, quý thầy cô nên cấu hình Powerpoint như đã hướng dẫn trong bài “Mở đầu”. Nếu gặp khó khăn trong việc cấu hình này xin. thống Hướng dẫn thực hiện Hướng dẫn thực hiện  1. Mở tập PowerPoint (ppt) cần cập nhật 1. Mở tập PowerPoint (ppt) cần cập nhật ngày, tháng như thường. ngày,