Làm thế nào để in khi có data validation (3 người xem)

[huong_ngayay_baygio]

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]

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]

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

 

[snow25]

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

Bạn thử.

 

[be_09]

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]

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).

Các bạn cho tôi hỏi
Vì danh sách in của bài trên thì theo số tự nhiên
Còn danh sách in của tôi là: PNK001, PNK002, PNK003,... thì muốn in hàng loạt từ số đến số có được không? cảm ơn các bạn

 

[BuiQuangThuan]

Các bạn cho tôi hỏi
Vì danh sách in của bài trên thì theo số tự nhiên
Còn danh sách in của tôi là: PNK001, PNK002, PNK003,... thì muốn in hàng loạt từ số đến số có được không? cảm ơn các bạn

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

 

[be_09]

Các bạn cho tôi hỏi
Vì danh sách in của bài trên thì theo số tự nhiên
Còn danh sách in của tôi là: PNK001, PNK002, PNK003,... thì muốn in hàng loạt từ số đến số có được không? cảm ơn các bạ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]

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

Bạn có thể viết cụ thể được không ạ
cảm ơn bạn!

 

[be_09]

Bạn có thể viết cụ thể được không ạ
cảm ơn bạ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]

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 đính kèm của bạn không thấy code nhỉ!?

 

[be_09]

Sao file đính kèm của bạn không thấy code nhỉ!?

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

 

[hoanglocphat]

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

Đã sửa code theo gợi ý của bạn như sau

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 bản
Trước khi in thì tôi chọn ô B2: PXK002
Tại ô E2: 1
Tại ô E3: 3
Sau khi in thì nó in ra 3 bản của PXK002
Các bạn xem giúp & sửa giùm

 

[BuiQuangThuan]

Đã sửa code theo gợi ý của bạn như sau

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 bản
Trước khi in thì tôi chọn ô B2: PXK002
Tại ô E2: 1
Tại ô E3: 3
Sau khi in thì nó in ra 3 bản của PXK002
Các bạn xem giúp & sửa giùm

 

[hoanglocphat]

Cảm ơn các bạn nhiều

 

[hoanglocphat]

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]

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]

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 ạ