Làm thế nào để in khi có data validation

huong_ngayay_baygio · 27/4/20

Các anh chị ơi, giúp cho em việc này với
em tính lương cho hơn 1.000 người, giờ em muốn in phiếu lương cá nhân để phát cho mọi người trong công ty.
Khi làm phiếu lương, em đặt data validation là mã nhân viên, các thông tin trong phiếu lương, em vlookup theo mã nhân viên đó.
Khi in phiếu lương, thì làm thế nào mà em đặt 1 lệnh in, in được tất cả hơn 1.000 phiếu lương ạ?

snow25 · 27/4/20

huong_ngayay_baygio đã viết:
Các anh chị ơi, giúp cho em việc này với
em tính lương cho hơn 1.000 người, giờ em muốn in phiếu lương cá nhân để phát cho mọi người trong công ty.
Khi làm phiếu lương, em đặt data validation là mã nhân viên, các thông tin trong phiếu lương, em vlookup theo mã nhân viên đó.
Khi in phiếu lương, thì làm thế nào mà em đặt 1 lệnh in, in được tất cả hơn 1.000 phiếu lương ạ?

Dùng lệnh VBA để in nhé.Gửi file lên.

huong_ngayay_baygio · 27/4/20

File của em đây ạ, em cắt bớt đi cho nhẹ

snow25 · 27/4/20

huong_ngayay_baygio đã viết:
File của em đây ạ, em cắt bớt đi cho nhẹ

Bạn thử.

be_09 · 27/4/20

huong_ngayay_baygio đã viết:
Các anh chị ơi, giúp cho em việc này với
em tính lương cho hơn 1.000 người, giờ em muốn in phiếu lương cá nhân để phát cho mọi người trong công ty.
Khi làm phiếu lương, em đặt data validation là mã nhân viên, các thông tin trong phiếu lương, em vlookup theo mã nhân viên đó.
Khi in phiếu lương, thì làm thế nào mà em đặt 1 lệnh in, in được tất cả hơn 1.000 phiếu lương ạ?

Muốn in danh sách từ số nào đến số nào thì gõ con số vào W3 và W5 rồi nhấn nút. Nếu muốn in hết danh sách thì gõ số cuối cùng vào W5.
Tại W5 của File tôi gõ số 4 là để thử code.
Trong File tôi đã xóa hết một số Name tào lao (Link đến File khác).

hoanglocphat · 28/4/20

be09 đã viết:
Muốn in danh sách từ số nào đến số nào thì gõ con số vào W3 và W5 rồi nhấn nút. Nếu muốn in hết danh sách thì gõ số cuối cùng vào W5.
Tại W5 của File tôi gõ số 4 là để thử code.
Trong File tôi đã xóa hết một số Name tào lao (Link đến File khác).

Các bạn cho tôi hỏi
Vì danh sách in của bài trên thì theo số tự nhiên
Còn danh sách in của tôi là: PNK001, PNK002, PNK003,... thì muốn in hàng loạt từ số đến số có được không? cảm ơn các bạn

BuiQuangThuan · 28/4/20

hoanglocphat đã viết:
Các bạn cho tôi hỏi
Vì danh sách in của bài trên thì theo số tự nhiên
Còn danh sách in của tôi là: PNK001, PNK002, PNK003,... thì muốn in hàng loạt từ số đến số có được không? cảm ơn các bạn

Được. Nếu không anh thêm cột STT vào sheet DATA ấy

be_09 · 28/4/20

hoanglocphat đã viết:
Các bạn cho tôi hỏi
Vì danh sách in của bài trên thì theo số tự nhiên
Còn danh sách in của tôi là: PNK001, PNK002, PNK003,... thì muốn in hàng loạt từ số đến số có được không? cảm ơn các bạn

Thì trong Cell sử dụng con số bình thường rồi định dạng nó thế này thôi:

"PXK"000

hoanglocphat · 28/4/20

be09 đã viết:
Thì trong Cell sử dụng con số bình thường rồi định dạng nó thế này thôi:

"PXK"000

Bạn có thể viết cụ thể được không ạ
cảm ơn bạn!

be_09 · 28/4/20

hoanglocphat đã viết:
Bạn có thể viết cụ thể được không ạ
cảm ơn bạn!

Bạn click vào số phiếu và nhìn vào Formulabar sẽ thấy nó là con số, nhưng khi in thì nó sẽ hiện đầy đủ..

hoanglocphat · 28/4/20

be09 đã viết:
Bạn click vào số phiếu và nhìn vào Formulabar sẽ thấy nó là con số, nhưng khi in thì nó sẽ hiện đầy đủ..

Sao file đính kèm của bạn không thấy code nhỉ!?

be_09 · 28/4/20

hoanglocphat đã viết:
Sao file đính kèm của bạn không thấy code nhỉ!?

Nếu có 1 Phiếu thì trong code bài trên sửa số 2 thành số 1.

hoanglocphat · 28/4/20

be09 đã viết:
Nếu có 1 Phiếu thì trong code bài trên sửa số 2 thành số 1.

Đã sửa code theo gợi ý của bạn như sau

PHP:

Sub In_PhieuLuong_S()
  Dim TuSo, DenSo, BatDau, KetThuc As Long
'  TuSo = [W3]
'  DenSo = [W5]
  TuSo = [E2]
  DenSo = [E3]
  KetThuc = 1

  For BatDau = TuSo To DenSo Step KetThuc
    [E2] = BatDau
    TuSo = TuSo + 2
    ActiveSheet.PrintOut
  Next BatDau
End Sub

Tôi muốn in từ phiếu PXK001 đến PXK003, mỗi phiếu 1 bản
Trước khi in thì tôi chọn ô B2: PXK002
Tại ô E2: 1
Tại ô E3: 3
Sau khi in thì nó in ra 3 bản của PXK002
Các bạn xem giúp & sửa giùm

BuiQuangThuan · 28/4/20

hoanglocphat đã viết:
Đã sửa code theo gợi ý của bạn như sau

PHP:

Sub In_PhieuLuong_S() Dim TuSo, DenSo, BatDau, KetThuc As Long ' TuSo = [W3] ' DenSo = [W5] TuSo = [E2] DenSo = [E3] KetThuc = 1 For BatDau = TuSo To DenSo Step KetThuc [E2] = BatDau TuSo = TuSo + 2 ActiveSheet.PrintOut Next BatDau End Sub

Tôi muốn in từ phiếu PXK001 đến PXK003, mỗi phiếu 1 bản
Trước khi in thì tôi chọn ô B2: PXK002
Tại ô E2: 1
Tại ô E3: 3
Sau khi in thì nó in ra 3 bản của PXK002
Các bạn xem giúp & sửa giùm

hoanglocphat · 28/4/20

Cảm ơn các bạn nhiều

hoanglocphat · 28/4/20

Các bạn cho hỏi
Ở bài 14 nếu muốn in 1 phiếu thành 2 bản thì code thêm như thế nào và ở vị trí nào
Tôi có record macro nhưng không được. Cảm ơn các bạn

BuiQuangThuan · 28/4/20

hoanglocphat đã viết:
Các bạn cho hỏi
Ở bài 14 nếu muốn in 1 phiếu thành 2 bản thì code thêm như thế nào và ở vị trí nào
Tôi có record macro nhưng không được. Cảm ơn các bạn

Anh chị thêm ở sau cái chỗ printout copies: =2 coi

huong_ngayay_baygio · 7/5/20

be09 đã viết:
Muốn in danh sách từ số nào đến số nào thì gõ con số vào W3 và W5 rồi nhấn nút. Nếu muốn in hết danh sách thì gõ số cuối cùng vào W5.
Tại W5 của File tôi gõ số 4 là để thử code.
Trong File tôi đã xóa hết một số Name tào lao (Link đến File khác).

Em cảm ơn ạ

Làm thế nào để in khi có data validation

Thành viên mới

Thành viên gạo cội

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Biên Hòa, Đồng Nai

File đính kèm

Thành viên thường trực

File đính kèm

❆❆❆❆❆❆❆❆❆❆❆❆

Biên Hòa, Đồng Nai

Thành viên thường trực

Biên Hòa, Đồng Nai

File đính kèm

Thành viên thường trực

Biên Hòa, Đồng Nai

Thành viên thường trực

File đính kèm

❆❆❆❆❆❆❆❆❆❆❆❆

File đính kèm

Thành viên thường trực

Thành viên thường trực

❆❆❆❆❆❆❆❆❆❆❆❆

File đính kèm

Thành viên mới

Facebook

Group