Lồng ghép dữ liệu

[legiangnt]

Em lại nhờ các bác vấn đề sau. Em có 1 danh sách rất dài, chứa nhiều số liệu. Em muốn lồng ghép dữ liệu vào mẫu sẵn để tạo ra trang mới để in. Việc này giống như phối thư trong Word ấy. Nhờ các bác nghiên cứu hộ em. Chờ tin các bác !

 

[nokiano258vn]

Mình làm mấy số bôi vàng thôi, còn in như nào thì tuỳ bạn thôi
Bạn đánh số thứ tự vào I1(có thể ấn nút)

 

[legiangnt]

Rất cám ơn bác. Nhưng em có khoảng 2000 dữ liệu mà phải ấn nhiều thì mệt lắm. Mong chờ cách khác của các bác

 

[nokiano258vn]

Rất cám ơn bác. Nhưng em có khoảng 2000 dữ liệu mà phải ấn nhiều thì mệt lắm. Mong chờ cách khác của các bác

Vậy thì bác in số nào thì bác gõ số thứ tự vào đó thôi.

 

[legiangnt]

Vậy thì bác in số nào thì bác gõ số thứ tự vào đó thôi.

Em hiểu, thế thì lâu lắm bác ạ !

 

[hoangvuluan]

Em hiểu, thế thì lâu lắm bác ạ !

Thứ 1. Về lâu dài, Bạn nên thiết kế lại bảng dữ liệu, ở đó nên bổ sung thêm 1 cột Tổ Dân Phố, số thứ tự sẽ đánh mã dạng: xxyyy trong đó xx là tổ dân phố, yyy là số thứ tự của thành viên.
Thứ 2. Để in liên tục nhiều người, bạn thiết kế 1 form (hoặc sub)e bằng VBA, với tham số: chọn in tổ dân phố nào, stt bắt đầu, stt kết thúc...
mã cơ bản có dạng:
for i=stt_dtau cto stt_kthuc
'gán giá trị i vào vùng điều khiển của nút chọn trên sheet
sau đó gọi lệnh in: activesheet.printout
next
-hvl-

 

[boyxin]

Em lại nhờ các bác vấn đề sau. Em có 1 danh sách rất dài, chứa nhiều số liệu. Em muốn lồng ghép dữ liệu vào mẫu sẵn để tạo ra trang mới để in. Việc này giống như phối thư trong Word ấy. Nhờ các bác nghiên cứu hộ em. Chờ tin các bác !

Bạn tham khảo cách làm trong file: Hóa đơn​

 

[sealand]

Bạn tham khảo File này xem nhé. Số trang sẽ bằng số TT/2
Bạn cần in từ trang nào đến trang nào thì điền vào ô từ và ô đến.
Nếu in toàn bộ điền từ =1 và đến bằng TT/2

(Trong Code mình đang để Msgbox để kiểm tra, nếu đồng ý thì vào Code bỏ dòng Msgbox đi và xóa dấu nháy của lệnh in là xong)