Xem qua các nhận xét, tôi đã thấy một số câu hỏi của độc giả về cách làm việc với hộp Nhập và Thông báo Visual Basic trong PowerPoint.
Trong hướng dẫn này, chúng tôi sẽ cung cấp kiến thức nền tảng rất cơ bản để giúp bạn sử dụng các khả năng đó khi tự động tạo bản trình bày của mình.
Thiết lập Tab nhà phát triển
Trước hết, chúng ta cần kích hoạt môi trường nhà phát triển cho PowerPoint. Làm theo hướng dẫn này để thiết lập tab phát triển của bạn.
Trong PowerPoint, đi tới menu Nhà phát triển và nhấn Visual Basic.
Trong cây Dự án, bấm chuột phải vào bản trình bày của bạn, bấm Chèn và sau đó chọn Mô-đun. Một Mô-đun VBA mới sẽ được tạo, đó là nơi bạn sẽ viết mã của mình.
Hộp thư trong PowerPoint
Hộp thông báo là loại tự giải thích, mục tiêu của chúng là hiển thị một số thông tin hữu ích cho người dùng cuối. Viết mã sau trong Mô-đun của bạn:
Sub simplemessagebox()
MsgBox ("This is a simple message box")
End SubNhấn F5 hoặc Run và xem kết quả:
Ví dụ về Hộp thư và Hộp nhập liệu
Không giống như Hộp thư, hộp nhập được sử dụng để lấy phản hồi từ người dùng. Hãy xem ví dụ dưới đây. Tập lệnh tự động chèn các trang trình bày mới vào bản trình bày.
Đây là những gì chúng tôi sẽ triển khai:
Sub CreateSlidesMessage()
Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult
' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")
'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")
'create the slides
If MsgResult = vbOK Then
For i = 1 To NumSlides
Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
Next i
'Save the Presentation
ActivePresentation.SaveAs("Your Presentation.pptx")
MsgBox ("Presentation Saved.")
End If
End SubHy vọng rằng điều đó đã giúp, vui lòng để lại bình luận khi cần thiết.
Khi hộp thoại MsgBox bật lên để người dùng tương tác, bạn muốn biết người dùng đã nhấp vào tùy chọn nào, bạn có thể sử dụng đoạn mã sau để kiểm tra xem:
Đoạn mã kiểm tra nút nào người dùng chọn trên MsgBox
Tương ứng với sự lựa chọn của mỗi người dùng, bạn có thể tiếp tục chạy các mã khác nhau, các mã VBA này, bạn có thể học trong các khóa học VBA với các chuyên gia hàng đầu tại Tìm hiểu Excel trực tuyến.
MsgBox có hỗ trợ tiếng Việt có dấu không? Câu trả lời là không, tại sao? Bởi vì Microsoft đã lập trình nó như thế. Nhưng có cách nào khác không? Câu trả lời là có, bạn có thể đọc bài viết Sử dụng tiếng Việt có dấu với MsgBox VBA
Toàn bộ code trong bài viết bạn có thể xem tại Gist:
| Sub HeoBasicMessageBox() | |
| MsgBox "Xin chao cac ban da den voi Hoc Excel Online" | |
| Kết thúc phụ | |
| Sub HeoBasicMessageBoxWithTitle() | |
| MsgBox "Xin chao cac ban da den voi Hoc Excel Online", , "HEO" | |
| Kết thúc phụ | |
| Sub HeoBasicMessageBox2() | |
| MsgBox "Hoc Excel Online", _ | |
| vbOKHủy + _ | |
| vbCritical + _ | |
| vbDefaultButton1 + _ | |
| vbApplicationModal | |
| Kết thúc phụ | |
| Sub HeoBasicMessageBox3() | |
| MsgBox "Hoc Excel Online", _ | |
| vbOKHủy + _ | |
| vbCritical + _ | |
| vbDefaultButton1 + _ | |
| vbSystemModal | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult1() | |
| Phản hồi mờ như VbMsgBoxResult | |
| phản hồi = MsgBox("Hoc Excel Online", vbYesNo + vbCritical) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult2() | |
| Phản hồi mờ như VbMsgBoxResult | |
| reply = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult3() | |
| Phản hồi mờ như VbMsgBoxResult | |
| reply = MsgBox("Hoc Excel Online", vbYesNo + vbExclaim) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult4() | |
| Phản hồi mờ như VbMsgBoxResult | |
| reply = MsgBox("Hoc Excel Online", vbYesNo + vbInformation) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult5() | |
| Phản hồi mờ như VbMsgBoxResult | |
| phản hồi = MsgBox("Lỗi", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult6() | |
| Phản hồi mờ như VbMsgBoxResult | |
| phản hồi = MsgBox("Lỗi", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Phụ HeoMsgBoxResult7() | |
| Phản hồi mờ như VbMsgBoxResult | |
| phản hồi = MsgBox("Lỗi", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult8() | |
| Phản hồi mờ như VbMsgBoxResult | |
| phản hồi = MsgBox("Lỗi", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton) | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult9() | |
| Phản hồi mờ như VbMsgBoxResult | |
| reply = MsgBox("Bạn muốn thử lại?", vbRetryCancel + vbQuestion, "Lỗi") | |
| Phản hồi của MsgBox | |
| Kết thúc phụ | |
| Sub HeoMsgBoxResult10() | |
| MsgBox "Đã xảy ra lỗi nghiêm trọng", vbCritical, "Lỗi hệ thống" | |
| Kết thúc phụ |
Sử dụng mẫu danh sách kiểm tra lập kế hoạch sự kiện và ngân sách có thể in trong Word để theo dõi người phụ trách, thời hạn, chi phí, nhà cung cấp và mức độ sẵn sàng cho ngày diễn ra sự kiện với các bước kiểm tra chất lượng rõ ràng.
Khắc phục các công thức Excel không tự động tính toán theo ba bước: khôi phục chế độ tính toán, buộc tính toán lại và sửa các công thức bị định dạng dưới dạng văn bản.
Sử dụng lịch trình dọn dẹp hàng tuần có thể in này cho việc cho thuê Airbnb để tổ chức việc dọn dẹp giữa các kỳ nghỉ, dọn dẹp định kỳ, bổ sung đồ dùng, kiểm tra và chuyển đổi từ Word sang PDF.
Xây dựng bảng ghi chỉnh bảo trì thiết bị Excel thực tế cho quản lý xưởng với mã tài sản, lịch sử dịch vụ, ngày đến hạn, kiểm soát trạng thái, theo dõi thời gian ngừng hoạt động và danh sách kiểm tra cuối cùng.
Xây dựng bộ hồ sơ thuyết trình nhà đầu tư tối giản trên PowerPoint với cấu trúc 12 slide thực tế dành cho startup công nghệ, kèm hướng dẫn về bằng chứng, chỉ số, tuyên bố huy động vốn và mẫu .potx có thể tái sử dụng.
Xây dựng bài thuyết trình niêm yết bất động sản hiện đại trên PowerPoint với khung slide miễn phí, mẹo mẫu đã xác minh, cảnh báo về CMA, kiểm tra quyền hình ảnh và các biện pháp bảo vệ Nhà ở Công bằng.
So sánh HubSpot Free CRM và Zoho CRM cho môi giới bất động sản độc lập, bao gồm danh bạ, quy trình bán hàng, tự động hóa, tùy chỉnh, đặt lịch, giới hạn và thời điểm nâng cấp.
Khắc phục tình trạng ghi màn hình PowerPoint bị mất tiếng bằng cách kiểm tra điều khiển Âm thanh, quyền truy cập micro của Windows, thiết bị đầu vào đang hoạt động, kỳ vọng về âm thanh hệ thống và các bản cập nhật Office.
Sử dụng mẫu PDF lập kế hoạch thời gian theo khối hàng ngày có thể in để lên kế hoạch cho các giờ làm việc tập trung, cuộc họp, giờ nghỉ, công việc hành chính và các khoảng đệm thực tế khi làm việc tại nhà mà không nhồi nhét quá nhiều vào một ngày.
Xây dựng bài thuyết trình báo cáo trạng thái dự án Agile ngắn gọn với mục tiêu sprint, kết quả, rủi ro, tín hiệu chất lượng, quyết định và các bước tiếp theo—mà không biến bài thuyết trình thành một danh sách tồn đọng công việc.
