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

[Trung Kien Phan]

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 đã có sẵn 100 cái tem, làm sao để đưa số tem cần in vào các form?
p/s: hiện tại em đang phải copy số lượng lên từng ô của form in tem rất lâu và mất thời gian. Anh chị giúp em thiết lập công thức hoặc hướng dẫn VBA giúp em với ạ?
Em có file đính kèm,
Em cảm ơn!

 

[Trung Kien Phan]

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 đã có sẵn 100 cái tem, làm sao để đưa số tem cần in vào các form?
p/s: hiện tại em đang phải copy số lượng lên từng ô của form in tem rất lâu và mất thời gian. Anh chị giúp em thiết lập công thức hoặc hướng dẫn VBA giúp em với ạ?
Em có file đính kèm,
Em cảm ơn!

Thầy nào giúp em với ạ? thanks?

 

[Ba Tê]

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 đã có sẵn 100 cái tem, làm sao để đưa số tem cần in vào các form?
p/s: hiện tại em đang phải copy số lượng lên từng ô của form in tem rất lâu và mất thời gian. Anh chị giúp em thiết lập công thức hoặc hướng dẫn VBA giúp em với ạ?
Em có file đính kèm,
Em cảm ơn!

Public Sub s_Gpe()
Dim sArr(), dArr(1 To 1000, 1 To 5)
Dim I As Long, J As Long, K As Long,  R As Long, Col As Long
sArr = Sheet10.Range("F2", Sheet10.Range("F2").End(xlDown)).Resize(, 2).Value
R = UBound(sArr)
K = 1: Col = 1
For I = 1 To R
    If sArr(I, 2) <> "" Then
        For J = 1 To sArr(I, 2)
            dArr(K, Col) = sArr(I, 1)
            Col = Col + 1
            If Col > 5 Then
                Col = 1
                K = K + 1
            End If
        Next J
    End If
Next I
Sheet11.Range("A1").Resize(K, 5) = dArr
End Sub

 

[Trung Kien Phan]

Mong anh chị giúp đỡ

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

Public Sub s_Gpe()
Dim sArr(), dArr(1 To 1000, 1 To 5)
Dim I As Long, J As Long, K As Long,  R As Long, Col As Long
sArr = Sheet10.Range("F2", Sheet10.Range("F2").End(xlDown)).Resize(, 2).Value
R = UBound(sArr)
K = 1: Col = 1
For I = 1 To R
    If sArr(I, 2) <> "" Then
        For J = 1 To sArr(I, 2)
            dArr(K, Col) = sArr(I, 1)
            Col = Col + 1
            If Col > 5 Then
                Col = 1
                K = K + 1
            End If
        Next J
    End If
Next I
Sheet11.Range("A1").Resize(K, 5) = dArr
End Sub

Thầy ơi, cách sử dụng như thế nào vậy ạ, em copy vào excel rồi, nhưng câu lệnh để triên khai là gì vậy ạ?