In phiếu thu chi

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi mountain, 9 Tháng năm 2006.

Trạng thái chủ đề:
Không mở trả lời sau này.

20,104 lượt xem

  1. mountain

    mountain Thành viên hoạt động

    Bài viết:
    85
    Đã được thích:
    0
    Nơi ở:
    Việt Nam
    Mình có tải về một file excel về in phiếu thu chi. Cho mình hỏi về cách tạo list phiếu thu chi để chọn mà không phải gõ vào. Các bạn giúp mình với nhé, cảm ơn nhiều!!!
     
    #1
  2. tuankq

    tuankq Thành viên thân thiết

    Bài viết:
    245
    Đã được thích:
    2
    Nơi ở:
    Hanoi, Vietnam
    Cái này nếu bạn tìm kỹ đã có các bạn trước hướng dẫn rồi. Để mình nói lại nhé
    Vào Insert-name-Define xác định 1 cột ghi số phiếu ở bảng nguồn đặt tên ví dụ là A. Ở bảng in phiếu thì vào Data-Data validation-setting, mụcAllow chọn list, mục Source chọn =A, thế là xong
     
    #2
  3. mountain

    mountain Thành viên hoạt động

    Bài viết:
    85
    Đã được thích:
    0
    Nơi ở:
    Việt Nam
    Cảm ơn bạn tuankq, mình đã đã làm được rồi!
     
    #3
  4. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    File in phiếu thu-chi = Excel

    Đây là file in phiếu thu chi = Excel, số phiếu được đánh lại từ 1 đầu mỗi tháng. Nếu bạn muốn đánh số cho cả năm thì cột tháng bạn chỉ để là 1 tháng mà thôi, thí dụ tháng 1.

    Bạn phải nhập đúng dữ liệu cần In tại 2 Sheet DataThu và DataChi theo đúng cấu trúc của nó. File sử dụng Font Unicode, nếu bạn muốn chuyển qua các font khác thì chỉ cẩn thận với định dạng trang in.
    - Thông tin của công ty bạn chỉ cần thay đổi ở sheet CompanyInfo, không cần thay đổi chỗ nào khác.
    - Nếu bạn chỉ xem trang in thì chọn vào Xem trước.
    - Mỗi lần in chỉ in 1 tháng, nếu bạn nhấn In tất cà thì nó sẽ in tất cả các tháng.
    - Bạn có thể in 2 liên trên 1 trang A4 (Chọn in 2 liên). Nếu bạn chỉ in 1 liên(chọn in 1 liên), thì mỗi trang A4 sẽ in ra 2 phiếu.

    Chú ý: File này chưa có bẫy lỗi vì tôi chưa có thời gian sửa lại. Hơn nữa quan điểm của tôi là các file Excel chỉ có tác dụng gợi ý, bạn phải biết Excel để sửa lại theo ý mình mới dùng được.
     

    Các file đính kèm:

    #4
  5. heroic

    heroic Thành viên hoạt động

    Bài viết:
    56
    Đã được thích:
    0
    Nơi ở:
    vn
    Quá hoàn hảo với việc IN

    Thanks Adam_tran đây là file quá hay để mọi người học tập, VBA thật tuyệt khi giúp cải thiện công việc in ấn và nhiều thứ nữa. Xem qua file này em lại có cơ hội học tập thêm. Cơ hội cho các newbie học hỏi, em đang phải in từng phiếu một rất mất thời gian chọn phiếu in. Chắc phải tìm hướng in một loạt trong tháng như Adam_tran tham khảo code của Bác làm mà không được bác giúp em một tay nhé.
     
    #5
  6. belovely

    belovely Thành viên hoạt động

    Bài viết:
    57
    Đã được thích:
    0
    Nơi ở:
    VN
    Cảm ơn Adam_tran nhiều nhe! Mình thấy file của bạn rất hay, giúp mình tiết kiệm được nhiều thời gian nữa.
     
    #6
  7. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    Cám ơn các bạn quá khen. Code trong file hoàn toàn không chuẩn và, về mặt tổ chức CSDL và kiểu, nó lỗi nhiều. Thí dụ số phiếu chi gõ là 2bis chẳng hạn, vòng lặp For sẽ bỏ sót phiếu này ngay. Hoặc gõ vào ký tự chữ thay vì số khi nhập form, nó cũng lỗi!
    File trên chỉ có thể cho newbie tham khảo về cách sử dụng Form và vòng lặp For. IF và 1 số control. Đây là file làm theo kiểu giải quyết rác kế toán khi phải nhận làm lại sổ sách ngoài. Nó tiết kiệm thời gian nhưng nếu dùng nó để theo dõi và nhập liệu hàng ngày thì cần tổ chức lại nhiều thứ.

    File code mở mà, bạn nào đọc không hiểu thì cứ hỏi. Sắp tới buổi học VBA thứ 3 (CN này), các bạn sẽ làm quen với cách sử dụng các Control và vòng lặp For, thiết kế form đơn giản.
     
    Last edited: 11 Tháng năm 2006
    #7
  8. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    Em có vài ý vầy:
    - Bác xem có cách nào biến nó thành một file dử liệu thu chi chung luôn và 1 phiếu thu và chi chung luôn.
    - Cột tháng em nghĩ không cần thiết, bác có thể đặt thêm tên để lấy giá trị tháng. cũng được mà.
    - Phần mềm nào cũng có lỗi. Không ai đảm bảo có thể dự đoán được hết tất cả các lỗi. Vấn đề là ở kiến thức người sử dụng.
     
    #8
  9. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    Chung luôn không khó, nhưng vì file này làm để "dọn rác" in lại phiếu thu chi từ dữ liệu là các sheet tờ khai đầu ra - đầu vào, thành ra mình tách ra cho dễ làm! Copy bảng kê 12 tháng vô, sửa 1 tí, in 1 lượt!
    Chính xác, nhưng 1 số cty thì dữ liệu ít, mình đánh số tăng dần cho đến hết năm. lúc đó trên form in phiếu sẽ bôi trắng chỗ tháng. Nhưng 1 số cty nhiều thì đánh số quay lại 1 mỗi tháng (cũng phải dựa vào cách đánh số của kế toán cũ nửa). Do đó thêm cột phụ cho dễ thao tác!
     
    #9
  10. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Không đồng ý...

    Dĩ nhiên, nhưng người viết phải lường trước được các khả năng có thể xảy ra, dùng tất cả các cách có thể được nhằm bắt buộc người sử dụng chỉ có thể làm việc với yêu cầu người viết đặt ra mà thôi!
    Thân,
    Lê Văn Duyệt
     
    #10
  11. Long-spclt

    Long-spclt Thành viên sơ cấp

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    TP.HO CHI MINH
    Chào bác Adam Tran,

    Em tải File in phieu thu chi về máy của em rồi nhưng mà nó bị báo lỗi ngay, tự động hiện ra cửa số MVB và tự bôi đen cái hàng:Hang = Array("None", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", "g" & ChrW$(236) & " " & ChrW$(273) & "・) trong đọan Code ở dưới, và em Click mãi mới đóng được cái cửa số này.
    Em thử mở file lại và Khi nhấn vào Nút để in em thấy được cái Form nhập thông số để in nhưng khi nhấn nút In trong Form này thì máy lại báo lỗi.
    Em muốn in thử mà không biết làm sao cả, bác chỉ cho em với.
    Chân thành cảm ơn

    Function VNUnicode(baonhieu)
    Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String
    Dim i, J, ViTri As Byte, S As Double
    Dim Hang, Doc, Dem
    If baonhieu = 0 Then
    KetQua = "Kh" & ChrW$(244) & "ng " & ChrW$(273) & ChrW$(7891) & "ng"
    Else
    If Abs(baonhieu) >= 1E+15 Then
    KetQua = "S" & ChrW$(7889) & " qu" & ChrW$(225) & " l" & ChrW$(7899) & "n - H" & ChrW$(224) & "m " & ChrW$(273) & ChrW$(7893) & "i s" & ChrW$(7889) & " ra ch" & ChrW$(7919) & " Vi" & ChrW$(7879) & "t Nam; font ch" & ChrW$(7919) & " .Vntime - Copyright by MaiKa of AQN (0953-357-988)"
    Else
    If baonhieu < 0 Then
    KetQua = ChrW$(194) & "m" & Space(1)
    Else
    KetQua = Space(0)
    End If
    SoTien = Format(Abs(baonhieu), "##############0.00")
    SoTien = Right(Space(15) & SoTien, 18)
    Hang = Array("None", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", "g" & ChrW$(236) & " " & ChrW$(273) & "・)
     
    #11
  12. maihien

    maihien Thành viên sơ cấp

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    Hà Nội
    Các bạn ơi
    Mình mới biết đến diễn đàn
    Các bạn có thể chỉ giúp mình muốn download các chương trình các bạn đã đưa lên thì mình phải vào đâu?
    Ví dụ như A-Exel2
    Cám ơn các bạn nhé
    Help me!
     
    #12
  13. mysterious_girl

    mysterious_girl Thành viên sơ cấp

    Bài viết:
    358
    Đã được thích:
    1
    Nơi ở:
    ...close to you...
    Bạn vào thư viện,click vào file bạn muốn download.

    Chúc bạn thành công.
     
    #13
  14. Ngoc Thu

    Ngoc Thu Thành viên thân thiết

    Bài viết:
    58
    Đã được thích:
    0
    Nơi ở:
    Phu yen
    Cho em hỏi xíu..
    Công ty em hơi khác so với mấy công ty khác.Chứng từ Thu,Chi 1 phần giống cái chung,cái riêng ở đây,phiếu thu,chi tạm ứng $ để trả thưởng cũng đanh STT độc lập, không liên quan đến thu chi hằng ngày với phiếu thu chi bình thường hằng ngày.Vậy phải thêm cái nào nữa cho nó hoàn chỉnh?
    Cảm ơn nhiều.
     
    #14
  15. Ocean 13

    Ocean 13 Đại dương bao la ...

    Bài viết:
    1,155
    Đã được thích:
    5
    Nơi ở:
    Đại Dương
    Cảm ơn anh AdamTran nhiều lắm, file này rất hay anh ạ, tiết kiệm đc nhiều thời gian.

    Nhưng Anh cho em hỏi chút xíu thôi ạ: Như vậy thì ở phiếu thu - chi thì ko TK đối ứng là ko tách đc hả anh ? VD: N642;1331/C1111 hoặc N1111/C511;3331 chẳng hạn.

    :bigok: :dzo: :friend: :dzo: :bigok: ​
     
    #15
  16. Ocean 13

    Ocean 13 Đại dương bao la ...

    Bài viết:
    1,155
    Đã được thích:
    5
    Nơi ở:
    Đại Dương
    Mình cũng ko biết là bạn dùng font chữ gì nhưng mình vẫn load đc mà, load về rồi giải nén bằng winrar thôi. nếu bạn tải về mà vẫn chưa đọc đc thì cho mình email mình gửi lại cho.
     
    #16
  17. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    File đó dùng Unicode, bộ font chuẩn của Windows như Times New Roman, Arial, Tahoma.......
     
    #17
  18. vongphuc

    vongphuc Excel Fans Club

    Bài viết:
    300
    Đã được thích:
    4
    Nơi ở:
    Ha Noi
    Ôi giời ơi, có cái file này mà anh adam cũng tranh giành bản quyền với mình. Hi hi. Nói thật là file của anh và của em là khác nhau thể hiện ra ở một số điểm như là:
    - File của em in phiếu thu chi từ sổ quỹ tiền mặt, file của anh in phiếu từ nhật ký thu và nhật ký chi
    - File của em không có phần định khoản, file của anh có phần định khoản

    Tuy thể hiện khác nhau như vậy nhưng về bản chất là rất khác, hay nói đúng hơn là file của anh adam bị "ngược". Nhưng "ngược" ở đây lại là một vấn đề luôn có trong dân kế toán mình. Bạn nào mà mới ra trường chắc hẳn sẽ thấy lo khi các anh chị đi trước tâm sự rằng ôi tao đi làm không giống như được học, toàn làm từ dưới lên trên. Ở đây ý nói là kế toán thường tính toán một lợi nhuận hợp lý, sau đó mới điều chỉnh doanh thu - giá vốn - chi phí sao cho tạo ra được lợi nhuận đó. Sau khi tính toán khớp hết số liệu rồi mới in sổ sách và đặc biệt là các bác làm dịch vụ kế toán thuê
    - Ở file của anh adam, sau khi có dữ liệu là các sheet tờ khai đầu ra đầu vào, mà các sheet này tất nhiên là cuối tháng mới hoàn thành, dữ liệu này được dùng để in phiếu thu phiếu chi, trong khi lẽ ra các phiếu này phải được in hàng ngày. Như vậy là bị ngược về mặt thời gian
    - Ở file của anh adam, định khoản được in ngay trên phiếu thể hiện kế toán viên làm công tác định khoản, mà lẽ ra công việc này phải là của người kế toán tổng hợp. Người kế toán tổng hợp (chứ không phải là kế toán trưởng) là người nắm vai trò quyết định điều tiết dữ liệu. Căn cứ vào bản chất của các nghiệp vụ kinh tế phát sinh và tình hình hoạt động kinh tế tài chính của công ty mà người kế toán tổng hợp quyết định định khoản các nghiệp vụ phát sinh thế nào cho hợp lý. Như vậy là bị ngược về mặt quy trình

    Vậy file của anh adam chỉ dùng trong trường hợp "dọn rác" như anh nói và thực ra trong một trường hợp cụ thể thì đây là một sự thể hiện của việc trùng lắp công việc kế toán

    Hì hì, đùa anh adam tý, chứ cái gì cũng có lý do của nó, cả 2 file đều đang được dùng trong thực tế. Các bạn khi áp dụng vào công việc của mình cần vận dụng cho đúng
     
    #18
  19. Phuong ngoc

    Phuong ngoc Thành viên sơ cấp

    Bài viết:
    8
    Đã được thích:
    0
    Nơi ở:
    tphcm
    Bạn chỉ mình cách tải file E xcel in phiếu thu chi với. Mình có tải về nhưng mở ra thì file đó không đọc được. Giúp mình với .

    Cảm ơn bạn trước nha!
     
    #19
  20. adam_tran

    adam_tran Steel Partner

    Bài viết:
    1,373
    Đã được thích:
    32
    Nơi ở:
    Goooogle
    Font sử dụng là bộ font Unicode mà, tại sao lại lỗi? Hoặc có thể bạn ser Security Option ở mức Hign Level thành ra file không chạy được.
    Vào Tool - Macro - Security chọn là Medium hoặc Low. Tắt Excel, khởi động lại và mở file
     
    #20
Trạng thái chủ đề:
Không mở trả lời sau này.

Chia sẻ trang này