Hiển thị kết quả tìm kiếm từ 1 đến 5 trên tổng số: 5
  1. #1
    Tham gia ngày
    03 2009
    Nơi Cư Ngụ
    CIMAS
    Bài gởi
    1,289
    Cảm ơn
    1,744
    Được cảm ơn 1,708 lần trong 856 bài viết

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

    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 đỡ
    Yêu cầu : khi thu tiền có thể viết trực tiếp trên phiếu thu va in ra.Khi đó bên chi tiết tự động cập nhât dữ liệu.
    Ngược lại viết thông tin bên chi tiết rồi chọn nút in ra thi dữ liệu tự cập nhật bên phiếu thu rồi in ra.
    bên chi tiết tke nút in khi an vào nút in thì in ra dc phiếu thu


    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. #2
    Tham gia ngày
    03 2008
    Nơi Cư Ngụ
    Đồng ruộng Long An
    Bài gởi
    5,470
    Cảm ơn
    8,531
    Được cảm ơn 9,604 lần trong 4,322 bài viết
    Trích Nguyên văn bởi khoavu87 View Post
    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.
    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.

    Code:
    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
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: Hai Lúa Miền Tây, 20-03-10 lúc 11:16 AM
    Già của tuổi trẻ, trẻ của tuổi già.

  3. Có 2 thành viên cảm ơn Hai Lúa Miền Tây về bài viết này:


  4. #3
    Tham gia ngày
    03 2012
    Bài gởi
    7
    Cảm ơn
    1
    Được cảm ơn 0 lần trong 0 bài viết

    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.
    thay đổi nội dung bởi: truongmn, 02-04-14 lúc 03:57 PM

  5. #4
    Tham gia ngày
    01 2013
    Nơi Cư Ngụ
    QUẢNG NINH
    Bài gởi
    1,664
    Cảm ơn
    983
    Được cảm ơn 1,050 lần trong 752 bài viết
    Trích Nguyên văn bởi truongmn View Post
    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.
    Bạn chọn nút "Sửa bài viết"--> "Đổi sang khung lớn"---> ĐÍnh kèm File.
    Nhấp chuột vào hình để phóng to

Name:	anh.JPG
Views:	9
Size:	33.6 KB
ID:	118819
    thay đổi nội dung bởi: chuot0106, 02-04-14 lúc 04:20 PM

  6. #5
    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?

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Giúp mình viết code VBA cho phiếu nhập, phiếu xuất thay cho hàm Vlookup với.
    Viết bởi ninhtom1 trong chuyên mục Lập Trình với Excel
    Trả lời: 24
    Bài mới gởi: 27-08-14, 10:24 PM
  2. Có ai có mẫu form Phiếu thu/phiếu chi bằng Excel không ?
    Viết bởi laianhtu trong chuyên mục Hỏi đáp những vấn đề khác
    Trả lời: 13
    Bài mới gởi: 11-05-13, 04:13 PM
  3. Trả lời: 15
    Bài mới gởi: 04-10-12, 10:33 AM
  4. Xin file NXT theo phương pháp NTXT , in ra phiếu Nhập và phiếu xuấtkho
    Viết bởi THU NHUT trong chuyên mục Excel và Kế Toán
    Trả lời: 12
    Bài mới gởi: 12-07-12, 09:31 PM
  5. Trả lời: 3
    Bài mới gởi: 08-08-08, 07:26 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]