Hoi thao the gioi ke toan CleverCFO Công ty CP Tư Vấn Thuế Vinatax
+ Reply to Thread
Trang 1 của 3 1 2 3 CuốiCuối
Kết quả 1 tới 10 của 23
  1. #1
    lanhuong2201
    Khách vãng lai

    In phiếu thu chi tự động trên Excel

    Em có điều này muốn hỏi các bác mong các bác chỉ giáo hộ. Em tạo ra một chương trình in phiếu thu chi trên máy nhưng có điều là phần Nợ, Có trên phiếu em chưa lập được công thức vì phát sinh 1 vấn đề. Ví dụ khi em chi tiền điện thoại chẳng hạn, sẽ phát sinh 2 Nợ - 1 Có, lúc đó máy sẽ ko tự đọc được. Em không gửi được files Excel lên đây nhờ các bác chỉ giùm em. Mong sớm nhận được hồi âm của các bác về đ/c email của em: lanhuong2201@yahoo.com. Em cảm ơn rất nhiều!

  2. #2
    NgânGiang
    Khách vãng lai
    Vấn đề là xác định nợ/có theo tài khoản tiền mặt.
    Nếu với gợi ý trên bạn vẫn chưa giải quyết được thì mail cho tôi nhé tranngangiang2002@yahoo.com.vn

  3. #3
    WhoamI
    Khách vãng lai
    Mình cũng có làm 1 file in phiếu thu - chi bằng Excel, nhưng mình lập dựa vào bảng kê chứng từ phát sinh TK111 chứ ko nằm trong sheet tổng hợp (như nhật ký chung chẳng hạn), do đó mình định khoản luôn cả số TK và số tiền trên PT-PC, làm như vậy thì ko chuyên nghiệp nhưng mình nghĩ cách SD đơn giản, ai cũng có thể làm đc (vì cũng có khi bạn phải nhờ người khác làm hộ ấy mà). Do đó mình nghĩ bạn nên lập 3 sheet (or 2 cũng đc):
    1. Sheet đầu tiên là BK với nội dung:STT - TÊN ĐV,KH - NỘI DUNG-STTHU-STCHI(CHIA RA 2 CỘT LÀ: CHƯA THUẾ VÀ VAT)-TỒN QUỸ-TK ĐỐI ỨNG
    2. Sheet để in phiếu thu-chi ( cái này thì bạn tham khảo cách làm của bạn Thanhnhan nhé. ( ở sheet này bạn SD hàm vlookup để tìm dữ liệu trên BK nhé!)
    Mong là bạn sẽ thiết lập riêng cho mình 1 file in PT-PC phù hợp với bạn. Thân.

  4. #4
    NgânGiang
    Khách vãng lai
    Bạn dùng index, match, indirect, address cũng được (vlookup thì không). Tuy nhiên trong trường hợp của bạn, tôi hiểu rằng bạn chỉ cần tìm ra cái dòng thứ 2 là thằng VAT thôi. Theo tôi bạn nên sử dụng hàm sumproduct trong trường hợp này có vẻ thích hợp hơn (cột số chứng từ của bạn phải điền đầy đủ nhé, kế cả những cái có nhiều định khoản đấy)

    Ô tiền thuế = sumproduct((sochungtu=H2)*(tkno=133)*sotien)

    Đó là vấn đề của bạn (tạm thời coi nó là cái cần chứ không phải con cá nhé vì tôi chưa sờ mó trực tiếp vào cái file của bạn). Bạn sẽ ghi nhớ cách của WhoamI và bạn sẽ dùng đến khi nào bạn cần tìm các dòng dữ liệu nhiều hơn 2.

  5. #5
    Thiên Thanh
    Khách vãng lai
    Cảm ơn các bác em sẽ thử làm lại lần nữa xem thế nào, trình độ của em còn yếu nên mong mọi người sẽ chỉ bảo nhiều!

  6. #6
    ForestC
    Khách vãng lai
    Bạn lanhuong2201 có đồng ý với mẫu phiếu tôi đưa ra không?

  7. #7
    lanhuong2201
    Khách vãng lai
    chào ngân giang ? bạn có thể gửi cho mình một bản được không ? nik của mình là :Nguyenthithuy2008@yahoo.com . cảm ơn bạn nhiều nhé

  8. #8
    Tuanktcdcn
    Khách vãng lai
    Nếu chúng ta có một hàm DFind("Tìm theo nhiều điều kiện&quot=Giá trị cần tìm thì tuyệt vời phải không? Rất tiếc tất cả các hàm tìm kiếm của EXCEL hiện nay đều chỉ tìm theo 1 điều kiện, và rõ ràng nếu chúng ta dùng Auto/Advance Filter trường hợp này là không hợp lý! Nhất thiết làm việc trên EXCEL phải có một hàm tìm giá trị theo nhiều điều kiện!!!

    Dù sao vấn đề của bạn chỉ nằm trong một sheet nên dễ hơn.
    Mình gợi ý viết một hàm gọi là GetValueBy(...) để nhận TK thứ 3.
    Tôi giả định Sổ Nhật ký của bạn có các cột [..., SoCT, VAT, TKNO, TKCO, ...]

    '============Copy Hàm này vào môi trường VBA trên file EXCEL của bạn
    Function GetValueBy(Byval strSoCT as String, Byval nCotTraVe as Integer) as String
    On Error Goto LOI:
    '===Các khai báo sau dấu bằng (=) bạn hãy tự thay đổi theo cấu trúc sổ của bạn
    Const strNhatky="SheetNhatky"
    Const nStartRow=4 'tùy vào dòng đầu sổ nhật ký của bạn

    Const nSoCT=1 'Cột Số CT
    Const nVAT=5 ' Cột ghi VAT
    Const nTKNO=6 'Cột ghi TK Nợ
    Const nTKCO=7 'Cột ghi TK Có
    '===========Kết thúc khai báo của bạn

    Dim d as Long
    Dim WS as Worksheet
    Set WS=Worksheets(strNhatky)

    d=nStartRow

    Do While WS.Cells(d,nSoCT).Value<>&quot;&quot;
    If (WS.Cells(d,nSoCT).Value=strSoCT And WS.Cells(d,nVAT).Value<> &quot;&quot then
    GetValueBy=WS.Cells(d,nCotTraVe).Value
    Exit Do
    End If

    d=d+1
    Loop

    LOI:
    Set WS= Nothing
    If Err<>0 then Msgbox(&quot;Có lỗi: &quot; & Err.Description)

    End Function
    '==========================Kết thúc Hàm

    Chúc bạn thành công!
    VBA giúp gỡ rối trong công việc rất nhiều! Bằng cách nào đó các bạn nên học VBA căn bản!

  9. #9
    tubtuan
    Khách vãng lai
    cho hỏi thêm 1 chút có cách nào đánh số các phiếu thu chi trên excel de in ra ko???

  10. #10
    WhoamI
    Khách vãng lai
    Điều này thì tui làm được, và tôi đang sử dụng rất tốt. Có điều bạn mail cho tôi bản bạn làm thì mới biết phải dùng lệnh nào. Trong trường hợp này phải dùng các lệnh gồm: type, match, index và offset. Quan trọng là phải biết kết hợp thế nào thôi!
    Thân chào


 

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

     

Similar Threads

  1. In phiếu thu chi tự động trên Excel
    By lanhuong2201 in forum Ứng dụng Excel
    Trả lời: 21
    Bài viết cuối: 06-01-2012, 11:54 PM
  2. Trả lời: 3
    Bài viết cuối: 07-30-2010, 03:14 PM
  3. Lỗi in Phiếu thu chi trên Excel
    By huyentvp in forum Ứng dụng Excel
    Trả lời: 1
    Bài viết cuối: 07-30-2010, 02:50 PM
  4. Trả lời: 15
    Bài viết cuối: 07-30-2010, 11:14 AM
  5. Trả lời: 2
    Bài viết cuối: 07-29-2010, 07:38 PM

Quyền viết bài

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi đính kèm
  • Bạn không thể sửa bài viết của bạn