1. Trang chủ
  2. » Giáo án - Bài giảng

LÀM Ô CHỮ BẰNG VBA

12 862 10
Tài liệu đã được kiểm tra trùng lặp

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Tiêu đề Làm ô chữ bằng vba
Thể loại Tài liệu
Định dạng
Số trang 12
Dung lượng 712,5 KB

Các công cụ chuyển đổi và chỉnh sửa cho tài liệu này

Nội dung

ngoctrongdat@gmail.com 3Chọ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... ngoctrongdat@gmail.com 5Hiệu chỉnh các thuộc tính của Label: c

Trang 1

ngoctrongdat@gmail.com 1

Trang 2

Bước 1 Tạo ô

Chọn View  Toolbars  Control Toolbox

Trang 3

ngoctrongdat@gmail.com 3

Chọn Label (A) trên menu Control Toolbox

Trang 4

Kéo ra màn hình soạn thảo được một label hình chữ nhật

Trang 5

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

Trang 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ớ

Trang 7

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

Tên các ô

Trang 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”

Bước 2

Lập trình

Trang 9

ngoctrongdat@gmail.com 9

1

Ý 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

Trang 10

1

Kết quả khi lập trình xong

Trang 11

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 ô H11, H13, H21, H22.

Trang 12

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.

Ngày đăng: 06/06/2013, 01:27

TỪ KHÓA LIÊN QUAN

w