Giúp lấy dữ liệu để lập phiếu (1 người xem)

[colozero]

Mình muốn lấy dữ liệu từ sheet 2 qua sheet 1 theo số phiếu để in từng phiếu, nhưng nghĩ mãi không ra công thức. ACE giúp mình lấy dữ liệu từ sheet2 qua sheet1 để in phiếu với. Cảm ơn ACE đã quan tâm!

 

[duongmanhquan]

Chào bạn!
Bạn tham khảo file này nhé. Sử dụng hàm vlookup thôi. Đây cũng là 1 hàm đơn giản và dễ làm. Chỉ trình bày sao cho đẹp mắt thôi. (trình bày sao cho phiếu in ra đẹp và bố cục hợp lý). Phần số phiếu bạn tạo list bằng Data validation là được.

 

[MinhKhai]

Mình muốn lấy dữ liệu từ sheet 2 qua sheet 1 theo số phiếu để in từng phiếu, nhưng nghĩ mãi không ra công thức. ACE giúp mình lấy dữ liệu từ sheet2 qua sheet1 để in phiếu với. Cảm ơn ACE đã quan tâm!

Bạn xem file đính kèm như 1 cách tham khảo nhé.
File còn có thể cải tiến, nhưng ban đầu cứ thế để bạn dễ học và tìm hiểu

 

[xuan.nguyen82]

Mình muốn lấy dữ liệu từ sheet 2 qua sheet 1 theo số phiếu để in từng phiếu, nhưng nghĩ mãi không ra công thức. ACE giúp mình lấy dữ liệu từ sheet2 qua sheet1 để in phiếu với. Cảm ơn ACE đã quan tâm!

Mình cũng thử làm kiểu này cho bạn, bạn dùng được cách nào thì dùng nhé:
Bạn nhập số phiếu ở ô I1 nhé.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sArr(), dArr(), I As Long, J As Long, K As Long, Tem As Long
If Target.Address = "$I$1" Then
    If IsNumeric(Target) Then
        Tem = Target.Value
        With Sheet2
            sArr = .Range(.[A2], .[A65000].End(xlUp)).Resize(, 10).Value
        End With
        ReDim dArr(1 To UBound(sArr, 1), 1 To 8)
        For I = 1 To UBound(sArr, 1)
            If sArr(I, 1) = Tem Then
                [C4] = sArr(I, 2)
                K = K + 1
                dArr(K, 1) = K
                dArr(K, 2) = sArr(I, 3)
                For J = 4 To 7
                    dArr(K, J) = sArr(I, J)
                Next J
                dArr(K, 8) = dArr(K, 6) - dArr(K, 7)
            End If
        Next I
    End If
    [A9:H15].ClearContents
    If K Then [A9].Resize(K, 8).Value = dArr
End If
End Sub

file đính kèm: