Nhờ giúp đỡ code in tem theo số lượng tem cần in (1 người xem)

[kaka01]

Xin chào các anh chị GPE!

Em đang có danh sách tem cần in tự động mô tả cụ thể như file đính kèm ạ.
em đã tìm trên diễn đàn có một bài gần giống với trường hợp của em nhưng em chưa vận dụng được
theo link dưới:

Hiện thị số lượng tem cần in trên bảng tính excel và định dạng in trên giấy in tem tomy 138

Chào các anh/chị, Em có 1 list tem cần in, số lượng mỗi loại tem không bằng nhau, nhưng số lượng này cần in trên 1 khổ A4 (giấy in tem Tomy 138). Em muốn các anh chị chỉ dạy em với: 1. Em muốn các mã tem này tự động được hiển thị theo thứ tự sang 1 form in tem có sẵn Trong form in tem tomy này...

www.giaiphapexcel.com

vậy em nhờ các anh chị viết code giúp em với
Trường hợp theo mô tả của em khó để vết code tự động được thì anh chị cho em phương án
để bố trí lại dữ liệu để có viết code được.

Trân trọng cảm ơn.

 

[be_09]

Xin chào các anh chị GPE!

Em đang có danh sách tem cần in tự động mô tả cụ thể như file đính kèm ạ.
em đã tìm trên diễn đàn có một bài gần giống với trường hợp của em nhưng em chưa vận dụng được
theo link dưới:
................................................
vậy em nhờ các anh chị viết code giúp em với
Trường hợp theo mô tả của em khó để vết code tự động được thì anh chị cho em phương án
để bố trí lại dữ liệu để có viết code được.

Trân trọng cảm ơn.

Bạn nên nêu rõ số phiếu là tại Cell nào của sheet nào (vì bạn đưa lên đến 2 sheet mẫu) hoặc là 6 phiếu mẫu có nội dung và số phiếu giống nhau.

Bạn cần giải thích cụ thể hơn để các thành viên có hiểu mới giúp được.

 

[kaka01]

Bạn nên nêu rõ số phiếu là tại Cell nào của sheet nào (vì bạn đưa lên đến 2 sheet mẫu) hoặc là 6 phiếu mẫu có nội dung và số phiếu giống nhau.

Bạn cần giải thích cụ thể hơn để các thành viên có hiểu mới giúp được.

Cảm ơn bác be09 đã đã phản hồi! cháu xin bổ sung thông tin

- Số phiếu cháu cần in ở Sheet [Danhsachin] cột [So phieu] (cộ D)có tổng số 74 phiếu ạ.
- Sheet Temin chính là sheet mẫu có 6 phiếu để in lần lượt 74 phiếu tại sheet [Danhsachin] ra ạ.
Nếu có gì chưa đủ thông tin bác phản hồi giúp cháu

Cảm ơn bác!

 

[be_09]

Cảm ơn bác be09 đã đã phản hồi! cháu xin bổ sung thông tin

- Số phiếu cháu cần in ở Sheet [Danhsachin] cột [So phieu] (cộ D)có tổng số 74 phiếu ạ.
- Sheet Temin chính là sheet mẫu có 6 phiếu để in lần lượt 74 phiếu tại sheet [Danhsachin] ra ạ.
Nếu có gì chưa đủ thông tin bác phản hồi giúp cháu

Cảm ơn bác!

Cái này dựa vào cột số lượng để gán cho từng tem nên hơi khó chờ tôi ngâm cứu thêm.

 

[kaka01]

Cái này dựa vào cột số lượng để gán cho từng tem nên hơi khó chờ tôi ngâm cứu thêm.

Vâng cám ơn bác, bác cố gắng giúp cháu nhé!

 

[peternhp29]

Xin chào các anh chị GPE!

Em đang có danh sách tem cần in tự động mô tả cụ thể như file đính kèm ạ.
em đã tìm trên diễn đàn có một bài gần giống với trường hợp của em nhưng em chưa vận dụng được
theo link dưới:

Hiện thị số lượng tem cần in trên bảng tính excel và định dạng in trên giấy in tem tomy 138

Chào các anh/chị, Em có 1 list tem cần in, số lượng mỗi loại tem không bằng nhau, nhưng số lượng này cần in trên 1 khổ A4 (giấy in tem Tomy 138). Em muốn các anh chị chỉ dạy em với: 1. Em muốn các mã tem này tự động được hiển thị theo thứ tự sang 1 form in tem có sẵn Trong form in tem tomy này...

www.giaiphapexcel.com

vậy em nhờ các anh chị viết code giúp em với
Trường hợp theo mô tả của em khó để vết code tự động được thì anh chị cho em phương án
để bố trí lại dữ liệu để có viết code được.

Trân trọng cảm ơn.

Mình có file hiện tại đang in nhãn cho công ty. Hi vọng có thể giúp bạn

 

[snow25]

Xin chào các anh chị GPE!

Em đang có danh sách tem cần in tự động mô tả cụ thể như file đính kèm ạ.
em đã tìm trên diễn đàn có một bài gần giống với trường hợp của em nhưng em chưa vận dụng được
theo link dưới:

Hiện thị số lượng tem cần in trên bảng tính excel và định dạng in trên giấy in tem tomy 138

Chào các anh/chị, Em có 1 list tem cần in, số lượng mỗi loại tem không bằng nhau, nhưng số lượng này cần in trên 1 khổ A4 (giấy in tem Tomy 138). Em muốn các anh chị chỉ dạy em với: 1. Em muốn các mã tem này tự động được hiển thị theo thứ tự sang 1 form in tem có sẵn Trong form in tem tomy này...

www.giaiphapexcel.com

vậy em nhờ các anh chị viết code giúp em với
Trường hợp theo mô tả của em khó để vết code tự động được thì anh chị cho em phương án
để bố trí lại dữ liệu để có viết code được.

Trân trọng cảm ơn.

Bạn thử cái này.

Sub linhtinh()
Application.ScreenUpdating = False
   Dim arr, i As Long, j As Long, lr As Long, arr1(1 To 1000, 1 To 2), a As Long
   With Sheets("Danhsachin")
        arr = .Range("B2:D8").Value
        For i = 1 To UBound(arr)
            For j = 1 To arr(i, 3)
                a = a + 1
                arr1(a, 1) = arr(i, 1)
                arr1(a, 2) = arr(i, 2)
             Next j
        Next i
   End With
   With Sheets("Temin")
        On Error Resume Next
        For i = 1 To a Step 6
            .Range("e3,c5,e13,c15,e23,c25,k3,i5,k13,i15,k23,i25").ClearContents
            .Range("e3").Value = arr1(i, 1)
            .Range("c5").Value = arr1(i, 2)
            .Range("e13").Value = arr1(i + 1, 1)
            .Range("c15").Value = arr1(i + 1, 2)
            .Range("e23").Value = arr1(i + 2, 1)
            .Range("c25").Value = arr1(i + 2, 2)
            .Range("k3").Value = arr1(i + 3, 1)
            .Range("i5").Value = arr1(i + 3, 2)
            .Range("k13").Value = arr1(i + 4, 1)
            .Range("i15").Value = arr1(i + 4, 2)
            .Range("k23").Value = arr1(i + 5, 1)
            .Range("i25").Value = arr1(i + 5, 2)
            .PrintPreview
        Next i
    End With
End Sub

 

[kaka01]

Mình có file hiện tại đang in nhãn cho công ty. Hi vọng có thể giúp bạn

Cảm ơn bạn đã chia sẻ!
Mình nghiên cứu có gì chưa rõ nhờ bạn chỉ giúp.

Trân trọng cảm ơn!

Bài đã được tự động gộp: 5/6/19

Bạn thử cái này.

Sub linhtinh()
Application.ScreenUpdating = False
   Dim arr, i As Long, j As Long, lr As Long, arr1(1 To 1000, 1 To 2), a As Long
   With Sheets("Danhsachin")
        arr = .Range("B2:D8").Value
        For i = 1 To UBound(arr)
            For j = 1 To arr(i, 3)
                a = a + 1
                arr1(a, 1) = arr(i, 1)
                arr1(a, 2) = arr(i, 2)
             Next j
        Next i
   End With
   With Sheets("Temin")
        On Error Resume Next
        For i = 1 To a Step 6
            .Range("e3,c5,e13,c15,e23,c25,k3,i5,k13,i15,k23,i25").ClearContents
            .Range("e3").Value = arr1(i, 1)
            .Range("c5").Value = arr1(i, 2)
            .Range("e13").Value = arr1(i + 1, 1)
            .Range("c15").Value = arr1(i + 1, 2)
            .Range("e23").Value = arr1(i + 2, 1)
            .Range("c25").Value = arr1(i + 2, 2)
            .Range("k3").Value = arr1(i + 3, 1)
            .Range("i5").Value = arr1(i + 3, 2)
            .Range("k13").Value = arr1(i + 4, 1)
            .Range("i15").Value = arr1(i + 4, 2)
            .Range("k23").Value = arr1(i + 5, 1)
            .Range("i25").Value = arr1(i + 5, 2)
            .PrintPreview
        Next i
    End With
End Sub

Cảm ơn anh snow25!
code của anh đã đáp ứng trường hợp của em
em nghiên cứu vận dụng tiếp, có gì chưa rõ nhờ anh trợ giúp tiếp

Trân trọng cảm ơn anh!

 

[TongDe]

Rảnh được mấy hôm, thử giải quyết bài toán của bạn theo ý mình ...
Thử ngâm cứu xem có xài được không ?

 

[kaka01]

Rảnh được mấy hôm, thử giải quyết bài toán của bạn theo ý mình ...
Thử ngâm cứu xem có xài được không ?

Cảm ơn anh Tống Văn Đệ!
Cách của anh cũng rất hay, em nghiên cứu thêm để có thể vận dụng được
có gì chưa rõ nhờ anh hỗ trợ tiếp!

Trân trọng cảm ơn anh!

 

[be_09]

Cảm ơn anh Tống Văn Đệ!
Cách của anh cũng rất hay, em nghiên cứu thêm để có thể vận dụng được
có gì chưa rõ nhờ anh hỗ trợ tiếp!

Trân trọng cảm ơn anh!

Thử 1 cách khác, trình tự thực hiện như sau:
1/ Gõ Tem và số lượng cần vào sheet Model.
2/ Vào sheet Danh_Sach nhấn nút Copy và Insert dòng để tạo số lượng tem cần in.
3/ Gõ số bắt đầu in vào M2 của sheet In_Tem (nếu in hết thì gõ số 1).

 

[kaka01]

Thử 1 cách khác, trình tự thực hiện như sau:
1/ Gõ Tem và số lượng cần vào sheet Model.
2/ Vào sheet Danh_Sach nhấn nút Copy và Insert dòng để tạo số lượng tem cần in.
3/ Gõ số bắt đầu in vào M2 của sheet In_Tem (nếu in hết thì gõ số 1).

Cám ơn bác be09!
Xin lỗi vì phản hồi bác muộn!mấy hôm rùi cháu bận chưa kiểm tra hòm thư được!
cháu tham khảo cách của bác, có gì chưa rõ nhờ bác hướng dẫn tiếp.

Trân trọng cảm ơn bác!