LÀM Ô CHỮ BẰNG VBA

Bước 1. Tạo ô
Chọn View  Toolbars  Control Toolbox
Chọn Label (A) trên menu Control Toolbox
Kéo ra màn hình soạn thảo được một label hình chữ nhật
Hiệu chỉnh các thuộc tính của Label: chuột phải vào Label và chọn Properties
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ớ
Tạo một ô chuẩn (Kích thước, kiểu chữ, căn lề chữ, …)  copy ra  đặt tên khác
(H1)
(H11)
(H12)
(H13)
(H14)
(H2)
(H21)
(H22)
(H23)
Tên các ô
Ý 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
(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
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.
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.