Mừng Sinh Nhật GPE 11: sáng 25/6 Hà Nội; 1/7 Huế/Đà Nẵng; Trưa 2/7 TPHCM

Hướng dẫn cách lập, in phiếu thu và phiếu chi

Thảo luận trong 'Excel và Kế Toán' bắt đầu bởi khoavu87, 20 Tháng ba 2010.

  1. khoavu87

    khoavu87 Vũ Trần Khoa

    Bạn hoa hoa <ang_may_hong2003@yahoo.com> có nhờ mình gửi file lên diễn đàn nhờ mọi người giúp đỡ vấn đề như file đính kèm. Mong mọi người giúp đỡ
    PM : không biết gửi lên mục này đúng không nữa? nếu không đúng Nhờ Mod chuyển dùm em ạ. Em cảm ơn.
     
  2. Hai Lúa Miền Tây

    Hai Lúa Miền Tây Thành viên gạo cội Staff Member Super Moderator

    Bạn dùng code sau để cập nhật dữ liệu và in phiếu sau khi cập nhật đầy đủ các thông tin.

    Mã:
    Sub CapNhat()
        Dim historyWks As Worksheet, inputWks As Worksheet
        Dim nextRow As Long, oCol As Long
        Dim myRng As Range, myCell As Range
        Dim myCopy As String
        
        myCopy = "D7,C8,C9,H7,H8,H9,H10,E11,E12,E13"
    
        Set inputWks = Worksheets("phieu thu")
        Set historyWks = Worksheets("chi tiet")
    
        With historyWks
            nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
        End With
    
        With inputWks
            Set myRng = .Range(myCopy)
    
            If Application.CountA(myRng) <> myRng.Cells.Count Then
                MsgBox "Vui long dien day du thong tin!"
                Range("D7").Select
                Exit Sub
                Else
                .PrintOut
            End If
        End With
    
        With historyWks
            oCol = 1
            For Each myCell In myRng.Cells
                historyWks.Cells(nextRow, oCol).Value = myCell.Value
                oCol = oCol + 1
            Next myCell
        End With
        
        With inputWks
          On Error Resume Next
             With .Range(myCopy).Cells.SpecialCells(xlCellTypeConstants)
                  .ClearContents
                  Application.Goto .Cells(1)
             End With
          On Error GoTo 0
        End With
    End Sub
    
    
    Còn việc nhập bên sheet ChiTiet dữ liệu cập nhật qua sheet PhieuThu thì bạn dùng hàm nhé.
    Tham khảo thêm file đính kèm nhe
     

    Các file đính kèm:

    Lần chỉnh sửa cuối: 20 Tháng ba 2010
  3. truongmn

    truongmn Thành viên mới

    Phiếu thu

    Chào tất cả mọi người.
    Mình hiện tại đang làm kế toán cho trường mầm non
    Cứ đến cuối tháng mình phải ngồi viết phiếu thu cho tiền ăn rất mất thời gian.
    Nay mình muốn nhờ các bạn giúp dùm mình in phiếu thu dựa vào danh sách học sinh vắng.
    Mình có file nhưng không biết đính kèm.
    Thanks.
     
    Lần chỉnh sửa cuối: 2 Tháng tư 2014
  4. chuot0106

    chuot0106 Thành viên gắn bó

    Bạn chọn nút "Sửa bài viết"--> "Đổi sang khung lớn"---> ĐÍnh kèm File.
    anh.JPG
     
    Lần chỉnh sửa cuối: 2 Tháng tư 2014
  5. emmuonquaylai

    emmuonquaylai Thành viên mới

    Tôi là một kế toán, Ngày 20/05/2009 giám đốc cử tôi đến DNTN A thu tiền công trình. tôi đã viết phiếu thu 40.000.000 đồng và DN đó lại viết 1 phiếu chi 40.000.000 đồng cho tôi, nội dung y như nhau, hai phiếu đều có chữ ký của tôi và của chủ DN A. Vậy cho tôi hỏi phía bên doanh nghiệp đó nói công ty chúng tôi đã thu của họ 80.000.000 đồng như vậy có đúng không?
     

Chia sẻ trang này