Làm Số hợp đồng tự động nhảy sau mỗi lần in

H

havio

New Member
Hội viên mới
E ko up đc file nên đành giải thích ngắn gon vậy.Em có 1 mẫu hợp đồng trên excel..Mỗi HD có 1 số seri: vd A1001-10HD..
Em cần mỗi lần mình thực hiện lệnh in thì số này tự động nhảy lên 1 đơn vị thành : A 1002-10HD
vì em cần in cho nv kinh doanh 1 số lượng HD, và quản lý so lượng đó mà..
thank mọi người nhiều
 
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

1/ Mở File Excel cần in, nhấn Alt+F11, trong cửa sổ hiện ra, vào menu Insert/Modun và chép đoạn code này vào
PHP: 
Sub InHD()
    Dim STT As Integer
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet1")
    STT = 10
    For i = 1 To STT
        SoSeRi = "A" & Right("100" & i, 4) & "-10HD"
        Ws.Range("D4").Value = SoSeRi
        Application.ThisWorkbook.PrintOut
    Next
End Sub

Đóng màn hình VBE lại(màn hình modun)

2/ Trong cửa sổ của file Excel, vào menu Tools/Macro/Macro(hoặc nhấn Alt+F8), duyệt đến macro có tên là InHD, bấm nút Options để mở phím tắt, gõ chữ P vào ô trống, Ex tự động ghi thêm phím Shift. Đóng cửa sổ macro lại và lưu file
3/ Khi in, bấm tổ hợp phím Ctrl+Shift+P, máy in sẽ in theo yêu cầ

4/ Giải thích rõ đoạn code
- Sheet1 là sheet chứa nội dung hợp đồng
- STT là số bản muốn in, ví dụ muốn in 10 bản thì STT=10, máy in sẽ in 10 bản từ số 1 đến số 10. Nếu muốn in tư bản số 2 đến hết thì thay đoạn i=1 thành i=2 to STT
- D4 là ô chứa số Seri của hợp đồng

Chúc vui
Nếu khó khăn không làm được thì gửi file vào hộp mail của tôi, tôi hướng dẫn kỹ
Thân
 
Sửa lần cuối:
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

em làm theo cách anh bảo thì ok rồi ạ
nhưng có 1 vấn đề:
ví dụ hôm nay em in 10 bản
nhưng mai chỉ muốn in 5 bản thôi
thì vào đâu sửa code ạ. ý em vào đâu để nó hiện cái đoạn mã mà anh đưa em copy ý..thank anh
 
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

xuanthanh ơi mình cũng muốn làm như vậy nhưng mình làm theo hướng dẫn sao không được vậy. Xuanthanh có thể hướng dẫn kỹ hơn cho mình với được không. Email của mình: dungct.tb@gmail. com
Cảm ơn xuanthanh nhiều nha !
 
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

havio nói:
em làm theo cách anh bảo thì ok rồi ạ
nhưng có 1 vấn đề:
ví dụ hôm nay em in 10 bản
nhưng mai chỉ muốn in 5 bản thôi
thì vào đâu sửa code ạ. ý em vào đâu để nó hiện cái đoạn mã mà anh đưa em copy ý..thank anh
Nhấn để mở rộng...

Sửa lại đoạn code đó như thế này cho chủ động(Muốn sửa thì nhấn Alt+F11)

PHP: 
Sub InHD()
    Dim nStart As Integer
    Dim nEnd As Integer
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet1")
    nStart = Ws.Range("A1").Value
    nEnd = Ws.Range("A2").Value
    If nStart = 0 Or nEnd = 0 Then
        MsgBox "Ban chua ghi STT", , "Thong Bao"
        Exit Sub
    End If
    If nStar > nEnd Then
        MsgBox "So truoc khong duoc lon hon so sau", , "Thong Bao"
        Exit Sub
    End If
    For i = nStart To nEnd
        SoSeRi = "A" & Right("100" & i, 4) & "-10HD"
        Ws.Range("D4").Value = SoSeRi
        Application.ThisWorkbook.PrintOut
    Next
End Sub

Các thông số vẫn như cũ
A1 là ô ghi số thứ tự đầu tiến, A2 ghi ố thứ tự cuối cùng. Ví dụ bạn muốn in 5 bản thì ghi 1 vào ô A1, 5 vào ô A2, muốn in 10 bản thì ghi 1 vào ô A1, 10 vào ô A2, in 4 bản tư số 2 đến số 5 thì ghi 2 vào ô A1, 5 vào ô A2
Với đoạn code này b5n có thể tuỳ biến cho nhiều file khác(Ví dụ dể in phiếu thu chi, phiếu nhập xuất....)
Chúc vui
P/S : các bạn thay tên sheet và các ô tương ứng cho phù hợp với file của mình
Thân
-----------------------------------------------------------------------------------------
dung212 nói:
xuanthanh ơi mình cũng muốn làm như vậy nhưng mình làm theo hướng dẫn sao không được vậy. Xuanthanh có thể hướng dẫn kỹ hơn cho mình với được không. Email của mình: dungct.tb@gmail. com
Cảm ơn xuanthanh nhiều nha !
Nhấn để mở rộng...

1/ Bạn đọc kỹ từ phần 1/ đến 3/ trong bài 1
2/ Nhắc chung cả hai bạn : Do file chứa macro nên để macro có thể hoạt động được, bạn làm như sau
2a/ Mơ File Excel trắng vào Menu Tools/Macro/Serecurity chọn Medium. Đóng Ex
2b/ Khi mở các file có chứa mác ro sẽ hiện một bảng thông báo, bạn chọn nút giữa(Enable macro), khi đó mới sử dụng file được
Thân
 
Sửa lần cuối:
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

Như vậy có nghĩa là trên mẫu hợp đồng sẽ xuất hiện thêm 2 ô nữa, để ghi số bản muốn in, đúng ko anh??? Tương ứng với ô A1, A2 ý...
Như thế lúc in ra thì trông ko đc " bờ rồ " lắm nhỉ ...
Còn nữa, khi em ấn Alt+ F11 thì nó chỉ hiện là cái bảng Visual Basic thôi, chọn insert/ module thì chẳng có j cả..
hic !
 
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

havio nói:
Như vậy có nghĩa là trên mẫu hợp đồng sẽ xuất hiện thêm 2 ô nữa, để ghi số bản muốn in, đúng ko anh??? Tương ứng với ô A1, A2 ý...
Như thế lúc in ra thì trông ko đc " bờ rồ " lắm nhỉ ...
Còn nữa, khi em ấn Alt+ F11 thì nó chỉ hiện là cái bảng Visual Basic thôi, chọn insert/ module thì chẳng có j cả..
hic !
Nhấn để mở rộng...

Muốn cho nó không nhìn thấy khi in thì format ô đó thành chữ màu trắng, dẽ mà. Còn khi nhấn Alt+F11 mà không thấy gì thì phải xem lại các bước từ 1 đến 3 và nhớ cho macro hoạt động nhé
Nếu không được nữa thì gửi file lên
Thân
 
Anh oi
Code cua anh em da lam duoc roi nhung em muon xin anh code truong hop VD sau:
Luc dau em in tu 01->100 va dung lai nhung lan sau em muon in tu so 100 tro di thi minh se su dung code nao vay anh.
Anh co the cho em biet duoc khong.
Em cam on.
 
xuanthanh nói:
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

1/ Bạn đọc kỹ từ phần 1/ đến 3/ trong bài 1
2/ Nhắc chung cả hai bạn : Do file chứa macro nên để macro có thể hoạt động được, bạn làm như sau
2a/ Mơ File Excel trắng vào Menu Tools/Macro/Serecurity chọn Medium. Đóng Ex
2b/ Khi mở các file có chứa mác ro sẽ hiện một bảng thông báo, bạn chọn nút giữa(Enable macro), khi đó mới sử dụng file được
Thân
Nhấn để mở rộng...
Mình có cái file như đính kèm có 4 sheets (Sheet 1: Nhap HĐ, Sheet 2: DMHH, Sheet 3: Trang in, Sheet 4: Tổng hợp) đã chạy tốt, giờ e muốn tạo 1 NÚT NHẤN "In" bên Sheet 1 để khi nhấn vào thì nó sẽ in Sheet 3, đồng thời ô Số hóa đơn (màu vàng) sẽ tự động tăng lên 1 số, Ô Tổng tiền trong ca (màu vàng) sẽ tích lũy lũy tiến (cộng dồn các hóa đơn) khi qua 24g đêm thì các ô Số hóa đơn và Ô Tổng tiền trong ca sẽ tự động reset lại lần lượt về 1 và về 0 ạ... Và khi nhấn nút "IN" thì cái hóa đơn đó lưu (lưu nối tiếp chứ ko lưu đè) vào trong Sheet 4 để tiện theo dõi và báo cáo luôn. E xin cảm ơn Các Thầy, các Cô và các Anh/Chị...
 

Đính kèm

  • In Hoadon - Copy.rar
    158.5 KB · Lượt xem: 177
Em muốn in số nhảy từ 0000001 đến 0000100 mà em làm hoài không được. Mong được các ac giúp đỡ
 
xuanthanh nói:
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in



Sửa lại đoạn code đó như thế này cho chủ động(Muốn sửa thì nhấn Alt+F11)

PHP: 
Sub InHD()
    Dim nStart As Integer
    Dim nEnd As Integer
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet1")
    nStart = Ws.Range("A1").Value
    nEnd = Ws.Range("A2").Value
    If nStart = 0 Or nEnd = 0 Then
        MsgBox "Ban chua ghi STT", , "Thong Bao"
        Exit Sub
    End If
    If nStar > nEnd Then
        MsgBox "So truoc khong duoc lon hon so sau", , "Thong Bao"
        Exit Sub
    End If
    For i = nStart To nEnd
        SoSeRi = "A" & Right("100" & i, 4) & "-10HD"
        Ws.Range("D4").Value = SoSeRi
        Application.ThisWorkbook.PrintOut
    Next
End Sub

Các thông số vẫn như cũ
A1 là ô ghi số thứ tự đầu tiến, A2 ghi ố thứ tự cuối cùng. Ví dụ bạn muốn in 5 bản thì ghi 1 vào ô A1, 5 vào ô A2, muốn in 10 bản thì ghi 1 vào ô A1, 10 vào ô A2, in 4 bản tư số 2 đến số 5 thì ghi 2 vào ô A1, 5 vào ô A2
Với đoạn code này b5n có thể tuỳ biến cho nhiều file khác(Ví dụ dể in phiếu thu chi, phiếu nhập xuất....)
Chúc vui
P/S : các bạn thay tên sheet và các ô tương ứng cho phù hợp với file của mình
Thân
-----------------------------------------------------------------------------------------


1/ Bạn đọc kỹ từ phần 1/ đến 3/ trong bài 1
2/ Nhắc chung cả hai bạn : Do file chứa macro nên để macro có thể hoạt động được, bạn làm như sau
2a/ Mơ File Excel trắng vào Menu Tools/Macro/Serecurity chọn Medium. Đóng Ex
2b/ Khi mở các file có chứa mác ro sẽ hiện một bảng thông báo, bạn chọn nút giữa(Enable macro), khi đó mới sử dụng file được
Thân
Nhấn để mở rộng...
Bác ơi. Em đã làm theo hướng dẫn nhưng e k tìm được Serecurity hay Opiton trong InHD.
Em không tải được file lên bác có thể cho em xin email và hỗ trợ em được k ạ?
Em cảm ơn nhiều!
 
xuanthanh nói:
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

1/ Mở File Excel cần in, nhấn Alt+F11, trong cửa sổ hiện ra, vào menu Insert/Modun và chép đoạn code này vào
PHP: 
Sub InHD()
    Dim STT As Integer
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet1")
    STT = 10
    For i = 1 To STT
        SoSeRi = "A" & Right("100" & i, 4) & "-10HD"
        Ws.Range("D4").Value = SoSeRi
        Application.ThisWorkbook.PrintOut
    Next
End Sub

Đóng màn hình VBE lại(màn hình modun)

2/ Trong cửa sổ của file Excel, vào menu Tools/Macro/Macro(hoặc nhấn Alt+F8), duyệt đến macro có tên là InHD, bấm nút Options để mở phím tắt, gõ chữ P vào ô trống, Ex tự động ghi thêm phím Shift. Đóng cửa sổ macro lại và lưu file
3/ Khi in, bấm tổ hợp phím Ctrl+Shift+P, máy in sẽ in theo yêu cầ

4/ Giải thích rõ đoạn code
- Sheet1 là sheet chứa nội dung hợp đồng
- STT là số bản muốn in, ví dụ muốn in 10 bản thì STT=10, máy in sẽ in 10 bản từ số 1 đến số 10. Nếu muốn in tư bản số 2 đến hết thì thay đoạn i=1 thành i=2 to STT
- D4 là ô chứa số Seri của hợp đồng

Chúc vui
Nếu khó khăn không làm được thì gửi file vào hộp mail của tôi, tôi hướng dẫn kỹ
Thân
Nhấn để mở rộng...
e
xuanthanh nói:
Ðề: Làm Số hợp đồng tự động nhảy sau mỗi lần in

1/ Mở File Excel cần in, nhấn Alt+F11, trong cửa sổ hiện ra, vào menu Insert/Modun và chép đoạn code này vào
PHP: 
Sub InHD()
    Dim STT As Integer
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet1")
    STT = 10
    For i = 1 To STT
        SoSeRi = "A" & Right("100" & i, 4) & "-10HD"
        Ws.Range("D4").Value = SoSeRi
        Application.ThisWorkbook.PrintOut
    Next
End Sub

Đóng màn hình VBE lại(màn hình modun)

2/ Trong cửa sổ của file Excel, vào menu Tools/Macro/Macro(hoặc nhấn Alt+F8), duyệt đến macro có tên là InHD, bấm nút Options để mở phím tắt, gõ chữ P vào ô trống, Ex tự động ghi thêm phím Shift. Đóng cửa sổ macro lại và lưu file
3/ Khi in, bấm tổ hợp phím Ctrl+Shift+P, máy in sẽ in theo yêu cầ

4/ Giải thích rõ đoạn code
- Sheet1 là sheet chứa nội dung hợp đồng
- STT là số bản muốn in, ví dụ muốn in 10 bản thì STT=10, máy in sẽ in 10 bản từ số 1 đến số 10. Nếu muốn in tư bản số 2 đến hết thì thay đoạn i=1 thành i=2 to STT
- D4 là ô chứa số Seri của hợp đồng

Chúc vui
Nếu khó khăn không làm được thì gửi file vào hộp mail của tôi, tôi hướng dẫn kỹ
Thân
Nhấn để mở rộng...
E làm theo mà vẫn không được, bác hướng dẫn e cụ thể qua mail này được không: yatmintrang4797@gmail.com
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top