Tin Học

VBA Excel Cấp Tốc Bài 3

Xem bài trước

>> VBA Excel Express Bài 1 – Lọc nhiều dữ liệu có điều kiện với bộ lọc nâng cao

Bạn Đang Xem: VBA Excel Cấp Tốc Bài 3

>> VBA Excel Express Bài 2 – In Bảng Chín Chương

Video hướng dẫn thực hành

Tạo VLOOKUP

Tạo Vlookup khi chạy tự động danh sách các mục như họ tên, ngày tháng năm sinh, điểm số,… sẽ tự động hiển thị theo số báo danh.

Chúng ta sẽ thực hiện như sau, click vào ô tên thí sinh và gõ = VLOOKUP (click vào ô SBD dấu chấm phẩy qua bảng dữ liệu để bôi đen toàn bộ dữ liệu dấu chấm phẩy ở mục có tên 2 dấu chấm phẩy 0) -> Enter.

Ví dụ: = VLOOKUP (D4; Dữ liệu! A1: J16; 2; 0)

tạo vlookup

Khi hoàn tất sẽ có kết quả như hình. Có thể test bằng cách nhập SBD xem tên có hiển thị không, có ok không.

kết quả khi tạo vlookup

Xem Thêm : 7 Món Đồ Cơ Bản Cần Có Cho Thời Trang Công Sở Nam

Ở mục Ngày tháng năm sinh, chúng ta làm tương tự như ở cột họ tên, chúng ta chỉ việc đổi số 2 thành số 3 -> Enter.

vlookup với ngày sinh

Trong phần sinh nhật, đổi sang định dạng ngày bằng cách nhấp chuột phải vào ô ngày sinh -> Định dạng Ô -> Ngày -> Ok.

thiết lập ngày tháng

Các mục tiếp theo bạn cũng làm tương tự, chỉ đổi số 2 thành 3 4 5 cho đến mục cuối cùng. Kết quả khi hoàn thành như hình bên dưới.

xong Vlookupe

In hàng loạt nhanh chóng.

Bây giờ chúng ta sẽ bắt đầu viết mã để thực hiện in hàng loạt.
Đầu tiên, mở Visual Basic bằng phím tắt Alt + F11 -> nhấp chuột phải vào Trang tính 2 -> Chèn -> Mô-đun.

mở hình ảnh cơ bản

Đầu tiên, chúng ta sẽ bắt đầu chương trình với tư cách Sub. Tên chương trình được viết không có khoảng trắng và Enter sẽ tự động tạo phần cuối của chương trình.

đầu cuối chương trình

  • Khai báo i và i sẽ chạy từ định danh đầu tiên đến định danh cuối cùng. Dim i As Integer và i = 2 vì số nhận dạng đầu tiên nằm trong ô 2.
  • Sử dụng vòng lặp While để bắt đầu vòng lặp và Wend để kết thúc vòng lặp.
  • Mở đầu là while to ThisWorkbook sheet (1) là data sheet sẽ được in ra, ô (i, 1) <> “” là hàm này sẽ chạy ở cột 1 và chạy từ i = 2 cho đến khi rỗng thì sẽ ngừng lại.
  • Tiếp theo, chúng ta sẽ gán vị trí của số đăng ký để khi chạy, số đăng ký sẽ tăng lên và các hạng mục khác cũng tự động chạy theo. Gõ ThisWorkbook.Sheets (2) làm Trang tính chứa phần cần in. Ô (4, 4) là số phần của số ô trong cột 4, hàng 4, = ThisWorkbook.Sheets (1) .Cells (i, 1) được gán cho phần. dữ liệu.
  • Hãy để tôi tăng lên mỗi khi i = i + 1 và kết thúc bằng Wend.

Chạy vòng

Xem Thêm : Mô Tả Công Việc Digital Marketing

Phần đầu tiên của mã để in vẫn là ThisWorkbook, sau đó Sheets (2) là Sheet chứa phần sẽ được in và PrintOut preview = False

in tuyên bố

Có máy in khi bắt đầu in sẽ tự động in, nhưng do không có máy in nên chỉ in file PDF và đặt tên cho file PDF khi lưu và chạy liên tục cho đến khi thí sinh cuối cùng.

Tạo Macro

Tạo Macro khi bạn cần in nó, chỉ cần nhấp vào Macro mà không cần phải vào Visual Basic hoặc viết lại mã.
Vào Nhà phát triển -> Chèn -> Nút -> Giữ và kéo -> bấm vào tên chương trình -> ok.

tạo nhà phát triển

Nếu bạn muốn in nhiều Danh sách thì hãy sử dụng vòng lặp For Next.
Ví dụ: Muốn in từ hàng số 3 đến hàng số 5.

vì .  vòng

Cos đoạn in hàng loạt:

Sub in_hang_load ()
Dim i As Integer
i = 2
Trong khi ThisWorkbook.Sheets (1) .Cells (i, 1) <> “”
ThisWorkbook.Sheets (2) .Cells (4, 4) = ThisWorkbook.Sheets (1) .Cells (i, 1)
ThisWorkbook.Sheets (2) .PrintOut preview = False
i = i + 1


Wend
Kết thúc Sub

Bài tiếp theo

>> VBA Excel Express Bài 4 – Tự động xóa hàng loạt trang tính không hoạt động

ĐIỂM CHO BÀI VIẾT NÀY

Nguồn: https://lienket365.com
Danh mục: Tin Học

Related Articles

Trả lời

Email của bạn sẽ không được hiển thị công khai.

Back to top button