Xin mọi người giúp in phần in bill hóa đơn bằng excel (1 người xem)

[d1207t]

Xin chào mọi người, hiện tại em có 1 file gồm 2 sheet (data và In)
Em muốn nhập dữ liệu vào sheet "data" thì sheet "in" tự thêm dòng và tự cập nhật hàng hóa vào phần giữa (Phần nội dung mặt hàng) và phần tổng tiền sheet "In" tự cộng tổng khi thêm dòng mới vào bằng VBA
Cảm ơn mọi người nhiều ạ

 

[phulien1902]

Xin chào mọi người, hiện tại em có 1 file gồm 2 sheet (data và In)
Em muốn nhập dữ liệu vào sheet "data" thì sheet "in" tự thêm dòng và tự cập nhật hàng hóa vào phần giữa (Phần nội dung mặt hàng) và phần tổng tiền sheet "In" tự cộng tổng khi thêm dòng mới vào bằng VBA
Cảm ơn mọi người nhiều ạ

Thử:

Sub abc()
    Dim LR&
    Sheets("IN").Range("A6500").End(xlUp).Resize(2).Offset(-1).EntireRow.ClearContents
    With Sheets("DATA")
        With .Range("A3:C" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
            Sheets("IN").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, 3).Value = .Value
        End With
    End With
    With Sheets("IN")
        LR = .Range("A6500").End(xlUp).Row
        .Range("D5:D" & LR).Formula = "=B5*c5"
        .Range("A" & LR + 2) = "T" & ChrW(7893) & "ng ti" & ChrW(7873) & "n"
        .Range("A" & LR + 2).Resize(, 4).Font.Bold = True
        .Range("D" & LR + 2).Formula = "=SUM(D5:D" & LR & ")"
        .Range("A" & LR + 3) = "C" & ChrW(7843) & "m " & ChrW(417) & _
                               "n quý khách " & ChrW(273) & "ã mua hàng!"
        .Range("A" & LR + 3).Font.Bold = True
    End With
End Sub

 

[d1207t]

Thử:

Sub abc()
    Dim LR&
    Sheets("IN").Range("A6500").End(xlUp).Resize(2).Offset(-1).EntireRow.ClearContents
    With Sheets("DATA")
        With .Range("A3:C" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
            Sheets("IN").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, 3).Value = .Value
        End With
    End With
    With Sheets("IN")
        LR = .Range("A6500").End(xlUp).Row
        .Range("D5:D" & LR).Formula = "=B5*c5"
        .Range("A" & LR + 2) = "T" & ChrW(7893) & "ng ti" & ChrW(7873) & "n"
        .Range("A" & LR + 2).Resize(, 4).Font.Bold = True
        .Range("D" & LR + 2).Formula = "=SUM(D5:D" & LR & ")"
        .Range("A" & LR + 3) = "C" & ChrW(7843) & "m " & ChrW(417) & _
                               "n quý khách " & ChrW(273) & "ã mua hàng!"
        .Range("A" & LR + 3).Font.Bold = True
    End With
End Sub

Cảm ơn code của bác, mỗi lần click thì nó lại tự thêm bản sheet data. Em muốn nó chỉ update dữ liệu y hệt thôi chứ không thêm thì sao ạ?
như này thì dữ liệu sẽ bị lặp ạ. Với lại em muốn giữ nguyên định dạng sheet In có được không ạ