LÀM Ô CHỮ BẰNG VBA

ngoctrongdat@gmail.com 1 ngoctrongdat@gmail.com 2 Bước 1. Tạo ô Chọn View  Toolbars  Control Toolbox ngoctrongdat@gmail.com 3 Chọn Label (A) trên menu Control Toolbox ngoctrongdat@gmail.com 4 Kéo ra màn hình soạn thảo được một label hình chữ nhật ngoctrongdat@gmail.com 5 Hiệu chỉnh các thuộc tính của Label: chuột phải vào Label và chọn Properties ngoctrongdat@gmail.com 6 Tên (Label 1) Màu nền Màu viền Kiểu nền Kiểu viền Màu chữ Font chữ Chiều cao Khoảng cách lề trái Khoảng cách lề trên Căn lề cho chữ Một số thuộc tính của Label cần nhớ ngoctrongdat@gmail.com 7 1 Tạo một ô chuẩn (Kích thước, kiểu chữ, căn lề chữ, …)  copy ra  đặt tên khác 2 (H1) (H11) (H12) (H13) (H14) (H2) (H21) (H22) (H23) Tên các ô ngoctrongdat@gmail.com 8 Ý tưởng khi trình chiếu Nhấn vào ô h11  xuất hiện chữ “G” Nhấn tiếp lần nữa  lại trở về trạng thái ban đầu. (H11) Bước 1. Nháy đúp chuột trái vào ô h11  xuất hiện màn hình lập trình. Bước 2. Nhập vào phần có con nháy đoạn lệnh sau. If h11.caption = “” then H11.caption = “G” Else H11.caption = “” End if Bước 2 Lập trình ngoctrongdat@gmail.com 9 1 (H1) (H11) (H12) (H13) (H14) Ý tưởng khi trình chiếu Nhấn vào ô H1  xuất hiện chữ “GIÁO” trong các ô H11 đến H14 Nhấn tiếp lần nữa  lại trở về trạng thái ban đầu. Bước 1. Nháy đúp chuột trái vào ô h1  xuất hiện màn hình lập trình. Bước 2. Nhập vào phần có con nháy đoạn lệnh sau. If h1.Caption = "" Then h1.Caption = "1" H11.Caption = "G" h12.Caption = "I" h13.Caption = "¸" h14.Caption = "O" Else h1.Caption = "" H11.Caption = "" h12.Caption = "" h13.Caption = "" h14.Caption = "" End If ngoctrongdat@gmail.com 10 2 1 Kết quả khi lập trình xong [...]...Kết quả khi trình chiếu Đây là kết quả sau khi ta nhấn vào các ô H11, H13, H21, H22 ngoctrongdat@gmail.com 11 Kết quả khi trình chiếu Đây là kết quả sau khi ta nhấn vào các ô H1, H21, H22 ngoctrongdat@gmail.com 12 . chữ Font chữ Chiều cao Khoảng cách lề trái Khoảng cách lề trên Căn lề cho chữ Một số thuộc tính của Label cần nhớ ngoctrongdat@gmail.com 7 1 Tạo một ô. Nhấn vào ô H1  xuất hiện chữ “GIÁO” trong các ô H11 đến H14 Nhấn tiếp lần nữa  lại trở về trạng thái ban đầu. Bước 1. Nháy đúp chuột trái vào ô h1  xuất