Lập trình tạo hộp thoại trong Excel « vào lúc: 02 Tháng Tám , 2010, 10:53:40 AM » Xin được cùng xây dựng chủ đề này với thầy Đắc. Xin chia sẻ chút hiểu biết của mình với bạn bè về lập trình trong excel. Trong khi lập bảng tính excel chẳng hạn sổ điểm HS chẳng hạn có đôi khi vô tình nhập 7,5 thành 75 dẫn đến kết quả TBm bị sai. Có nhiều cách kiểm tra lỗi này. Xin đưa ra cách lập trình để cảnh báo khi nhập như thế. Đó là tạo hộp thoại thông báo lỗi. vào ( Tools\ Macro\ Visual Basic editor) chọn insert \ module màn hình soạn thảo VB hiện ra cho phép xây dựng các hàm ( Bạn có thể nhắp tiếp insert \ Procedure trong hộp name đặt tên cho hàm và chọn Public) tôi lập hàm cho ví dụ trên như sau: Public Function tbao(a) if a>10 or a<0 then tbao = MsgBox("Nhập sai " , 48, "Thông báo ") endif End Function cái quan trọng ở dây là sử dụng Msgbox. cú pháp như sau msgbox("nội dung cần thông báo",Nút lệnh và hình ảnh cảnh báo," Tiêu đề" ) Trong đó: - Nội dung cần thông báo là chuỗi văn bản mà ta muốn thông báo chi tiết cũng có thể nối với 1 hàm khác bằng toán tử &. - Nút lệnh: ví dụ chỉ có nút OK ta cho số 0. ví dụ trên sẽ có nút OK cùng với dấu chấm than bên phải. - Tiêu đề của hộp thoại. ví dụ trên là chữ thông báo. Các giá trị cho nút lệnh tôi liệt kê ra một số sau( Bạn có thể dịch cái nhấp nháy đến tên thủ tục MSGBOX rối ấn F1 xem hướng dẫn) Loại nút lệnh Giá trị Chỉ có nút OK 0 Có nút OK và Cancel 1 Có nút Yes và nút No 4 Các hình ảnh cảnh báo ( Thường thấy bên trai hộp thoại) Dấu nhân chéo 16 Dấu ? 32 Dấu ! 48 Khi muốn xuất hiện đồng thới nút lệnh và cảnh báo ta cộng hai giá trị tương ứng. Ví dụ muốn có nút OK, Cancel cùng với dấu ! ta để giá trị này là 1+48 =49. Trong bảng tính điểm trên sau khi viết hàm xong, giả sử ta muốn kiểm tra ô g6 thì tại ô nào đó ta gọi hàm này như sau = tbao(G6) . Lập trình tạo hộp thoại trong Excel « vào lúc: 02 Tháng Tám , 2010, 10:53:40 AM » Xin được cùng xây dựng chủ đề này với thầy Đắc. Xin chia sẻ chút hiểu biết của mình với bạn bè về lập trình. trình trong excel. Trong khi lập bảng tính excel chẳng hạn sổ điểm HS chẳng hạn có đôi khi vô tình nhập 7,5 thành 75 dẫn đến kết quả TBm bị sai. Có nhiều cách kiểm tra lỗi này. Xin đưa ra cách lập. kết quả TBm bị sai. Có nhiều cách kiểm tra lỗi này. Xin đưa ra cách lập trình để cảnh báo khi nhập như thế. Đó là tạo hộp thoại thông báo lỗi. vào ( Tools Macro Visual Basic editor) chọn insert