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

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

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

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

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

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

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

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