Kế toán Excel - VBA (1 người xem)

[chgjst]

Dear Các bạn

Mình có viết một chương trình kế toán Excel nguồn VBA, muốn hợp tác với các bạn để phát triển và cung cấp cho mọi người free. Nếu bạn thấy hứng thú thì phản hồi mình nhé.

Chương trình gồm 2 file, file dữ liệu và 1 file chứa code, nhằm mục đích nâng cấp dễ dàng mà không ảnh hưởng gì đến dữ liệu cũ

http://www.easicount.com/file-cabinet/EasiCount Advance v1.33 sp1.xlam?attredirects=0&d=1
http://www.easicount.com/file-cabinet/EasiCount Blank Data.xlsx?attredirects=0&d=1

Thanks

 

[chgjst]

Phần Ribbon:

<customUI onLoad="RibbonOnLoad" xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>

<tab id="EasiExcel" getLabel="GetPrgLabelC" >
<group id="Prg10" label="Program" insertAfterMso="GroupEditingExcel">
<splitButton id="Prg11" size="large" >
<button id="Prg111" label="Run" onAction="StartingC" imageMso="MacroPlay" />
<menu id="Prg112" itemSize="normal" >
<button id="Prg1121" label="Set Autorun" onAction="AutorunC" imageMso="StarRatedFull" />
<button id="Prg1122" label="Remove Auto" onAction="RemoveAutoC" />
</menu>
</splitButton>
<button id="Prg12" label="Pause" size="large" onAction="StoppingC" imageMso="PauseTimer" />
<button id="Prg13" label="Close" size="large" onAction="CloseC" imageMso="PrintPreviewClose" />
</group>
<group id="Prg20" label="Insert" insertAfterMso="GroupEditingExcel" >
<button id="Prg21" label="Date" size="large" onAction="CalendarC" imageMso="ViewAllProposals" getEnabled="SupportC" />
<button id="Prg22" label="Saving" size="large" onAction="SvCalculatorC" imageMso="Calculator" getEnabled="SupportC" getVisible="GetVisible" tag = "TPM" />
</group>
<group id="Acc10" label="Nh?p d? li?u" insertAfterMso="GroupEditingExcel" getVisible ="GetVisible" tag = "Acc">
<button id="Acc11" label="From Fast" size="large" onAction="NhapFFastC" imageMso="ImportTextFile" getEnabled="SupportC" />
</group>
<group id="Acc20" label="Soát xét" insertAfterMso="GroupEditingExcel" getVisible ="GetVisible" tag = "Acc">
<button id="Acc21" label="Soát xét All" size="large" onAction="SoatXetAllC" imageMso="RefreshAll" getEnabled="SupportC" />
<button id="Acc22" label="Mã HH" size="normal" onAction="SoatXetHHC" imageMso="CreateModule" getEnabled="SupportC" />
<button id="Acc23" label="Mã KH" size="normal" onAction="SoatXetKHC" imageMso="OutlookGears" getEnabled="SupportC" />
<button id="Acc24" label="Mã NCC" size="normal" onAction="SoatXetNCCC" imageMso="OutlookGlobe" getEnabled="SupportC" />
</group>
<group id="Acc30" label="Xem l?i" insertAfterMso="GroupEditingExcel" getVisible ="GetVisible" tag = "Acc">
<button id="Acc31" label="S? chi ti?t" size="large" onAction="TaoSCTC" imageMso="TableOfAuthoritiesInsert" getEnabled="SupportC" />
<button id="Acc32" label="Phi?u thu chi" size="large" onAction="TaoPTCC" imageMso="SignatureLineInsert" getEnabled="SupportC" />
</group>
<group id="Acc40" label="K?t qu? Kinh doanh" insertAfterMso="GroupEditingExcel" getVisible ="GetVisible" tag = "Acc">
<button id="Acc41" label="K?t chuy?n S? du" size="large" onAction="KetChuyenSDC" imageMso="CacheListData" getEnabled="SupportC" />
<button id="Acc42" label="K?t chuy?n KQKD" size="large" onAction="KetChuyenKQKDC" imageMso="ExportSharePointList" getEnabled="SupportC" />
<button id="Acc43" label="Báo cáo Tài chính" size="large" onAction="BaoCaoTCC" imageMso="FileDocumentInspect" getEnabled="SupportC" />
</group>
<group id="Acc50" label="Edit" insertAfterMso="GroupEditingExcel" getVisible ="GetVisible" tag = "Acc">
<button id="Acc51" label="Thông tin Công ty" size="large" onAction="ThongtinCtyC" imageMso="SmartArtLayoutGallery" getEnabled="SupportC" />
<button id="Acc52" label="Copy to Hoá don" size="large" onAction="CopyMaNhanhC" imageMso="ExportSharePointList" getEnabled="SupportC" />
</group>

<group id="TPM60" label="Presentation" insertAfterMso="GroupEditingExcel" getVisible="GetVisible" tag="TPM">
<button id="Pre01" label="Slide Show" size="large" onAction="FstSlShowC" imageMso="ViewSlideShowView" getEnabled="SupportC" />
<button id="Pre02" label="From Current" size="large" onAction="CurSlShowC" imageMso="SlideShowFromCurrent" getEnabled="SupportC" />
<button id="Pre03" label="Exit Show" size="large" onAction="ExitShowC" imageMso="ViewNormalViewPowerPoint" getEnabled="SupportC" />
<separator id="PreSpr01" />
<button id="Pre04" label="Reset Pages" size="large" onAction="PrsRsPagesC" imageMso="AccessFormModalDialog" getEnabled="SupportC" />
<button id="Pre05" label="Export to PPT" size="large" onAction="PrsExportPPTC" imageMso="UpgradePresentation" getEnabled="SupportC" />
</group>
<group id="TPM10" label="Switch To" insertAfterMso="GroupEditingExcel" getVisible="GetVisible" tag="TPM">
<splitButton id="TPM11" size="large" getEnabled="SupportC" >
<button id="Home" label="Home" onAction="ToSheetC" imageMso="OpenStartPage" />
<menu id="TPM12" itemSize="normal" >
<button id="Organization" label="01. Pillar team Vision and Mission" onAction="ToSheetC" image="S01" />
<button id="SWOT" label="02. SWOT and Commitments" onAction="ToSheetC" image="S02" />
<button id="RoadMapID1" label="03. Pillar Priorities Strategy/Road map" onAction="ToSheetC" image="S03" />
<button id="KPIID1" label="04. KPI’s Results 3Y targets and BM/TL" onAction="ToSheetC" image="S04" />
<button id="LastAudit" label="05. PDCA on the Last audit" onAction="ToSheetC" image="S05" />
<button id="LinktoSA" label="06. Link with SAFETY" onAction="ToSheetC" image="S06" />
<button id="Deployment" label="07. KPI Deployment" onAction="ToSheetC" image="S07" />
<button id="SummaryID1" label="08. Close the Loop" onAction="ToSheetC" image="S08" />
<button id="BronzeGap" label="08. Additional: Gap to Bronze Award" onAction="ToSheetC" image="S08A" />
<button id="ZerolossID1" label="09. Activities done since last audit" onAction="ToSheetC" image="S09" />
<button id="ZerolossID2" label="10. Activities-1" onAction="ToSheetC" image="S10" />
<button id="ZerolossID3" label="11. Activities-2" onAction="ToSheetC" image="S11" />
<button id="TeamPlanID1" label="12. Improvement Activities OTIF/Savings" onAction="ToSheetC" image="S12" />
<button id="ZerolossID4" label="13. List of eradications, GP and HE" onAction="ToSheetC" image="S13" />
<button id="RoadMapID2" label="14. Next steps" onAction="ToSheetC" image="S14" />
</menu>
</splitButton>
<button id="KPIID2" label="KPI" size="large" onAction="ToSheetC" imageMso="Chart3DColumnChart" getEnabled="SupportC" />
<button id="TeamPlanID3" label="Team Plan" size="large" onAction="ToSheetC" imageMso="DatabaseSqlServer" getEnabled="SupportC" />
<button id="FiveSPlan" label="5S Plan" size="large" onAction="ToSheetC" imageMso="SmartArtChangeColorsGallery" getEnabled="SupportC" />
<button id="Meeting" label="Meeting Minute" size="large" onAction="ToSheetC" imageMso="MeetingsWorkspace" getEnabled="SupportC" />
<button id="SummaryID2" label="Summary" size="large" onAction="ToSheetC" imageMso="ChartTypeOtherInsertGallery" getEnabled="SupportC" />
<splitButton id="TPM13" size="large" getEnabled="SupportC" >
<button id="DS_ID1" label="Driving System" onAction="ToSheetC" imageMso="AccessNavigationOptions" />
<menu id="TPM14" itemSize="normal" >
<button id="DS01" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS02" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS03" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS04" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS05" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS06" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS07" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS08" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS09" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS10" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS11" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
<button id="DS12" getLabel="GetDSLabelC" onAction="DSToSheetC" getImage="GetDSImageC" getVisible="GetDSVisibleC" />
</menu>
</splitButton>
</group>
<group id="TPM20" label="Summary" insertAfterMso="GroupEditingExcel" getVisible="GetVisible" tag="TPMSum">
<button id="Sum01" label="Refresh Charts" size="large" onAction="SumRefreshC" imageMso="ChartRefresh" getEnabled="SupportC" />
<separator id="SumSpr01" getVisible="IsAdminC" />
<button id="Sum02" label="Review All" size="large" onAction="SumReviewAllC" imageMso="FindDialog" getVisible="IsAdminC" getEnabled="SupportC" />
</group>
<group id="TPM30" label="RoadMap" insertAfterMso="GroupEditingExcel" getVisible="GetVisible" tag="TPMRMp">
<button id="RMp01" label="Redraw Priority" size="large" onAction="RMDrawPrioC" imageMso="ChartRefresh" getEnabled="SupportC" />
<separator id="RMpSpr01" />
<button id="RMp02" label="One Year" size="large" onAction="RMOneYearC" imageMso="ReadingViewShowOnePage" getEnabled="SupportC" />
<button id="RMp03" label="Three Years" size="large" onAction="RMThreeYearC" imageMso="ReadingViewShowTwoPages" getEnabled="SupportC" />
<button id="RMp04" label="Prev Year" size="normal" onAction="RMBackC" imageMso="GoRtl" getEnabled="SupportC" />
<button id="RMp05" label="Next Year" size="normal" onAction="RMNextC" imageMso="GoLeftToRight" getEnabled="SupportC" />
<button id="RMp06" label="Currently" size="normal" onAction="RMNormalC" imageMso="AccessRefreshAllLists" getEnabled="SupportC" />
</group>
<group id="TPM40" label="Planning" insertAfterMso="GroupEditingExcel" getVisible="GetVisible" tag="TPMPln">
<button id="Pln01" label="Refresh Status" size="large" onAction="PlanAuditFlwC" imageMso="ChartRefresh" getEnabled="SupportC" />
<separator id="PlnSpr01" />
<button id="Pln02" label="Timeline" size="large" onAction="PlanTimelineC" imageMso="Chart3DBarChart" getEnabled="SupportC" />
<button id="Pln03" label="Short" size="normal" onAction="PlanShortShowC" imageMso="CreateFormBlankForm" getEnabled="SupportC" />
<button id="Pln04" label="Audit" size="normal" onAction="PlanAuditShowC" imageMso="AccessFormDatasheet" getEnabled="SupportC" />
<button id="Pln05" label="Full" size="normal" onAction="PlanFullShowC" imageMso="CreateFormWithMultipleItems" getEnabled="SupportC" />
<separator id="PlnSpr02" getVisible="IsAdminC" />
<button id="Pln06" label="Review All" size="large" onAction="PlanReviewAllC" imageMso="FindDialog" getVisible="IsAdminC" getEnabled="SupportC" />
</group>
<group id="TPM50" label="Driving System" insertAfterMso="GroupEditingExcel" getVisible="GetVisible" tag="TPMDSt">
<button id="DSt01" label="Refresh Charts" size="large" onAction="DSRefreshC" imageMso="ChartRefresh" getEnabled="SupportC" />
<button id="DSt02" label="Prev Month" size="normal" onAction="DSBackC" imageMso="GoRtl" getEnabled="SupportC" />
<button id="DSt03" label="Next Month" size="normal" onAction="DSNextC" imageMso="GoLeftToRight" getEnabled="SupportC" />
<button id="DSt04" label="Currently" size="normal" onAction="DSNormalC" imageMso="AccessRefreshAllLists" getEnabled="SupportC" />
<separator id="DStSpr01" />
<button id="DSt05" label="Insert Formula" size="large" onAction="DSFormulaC" imageMso="FunctionWizard" getEnabled="SupportC" />
<button id="DSt06" label="Repair Charts" size="large" onAction="DSRepairC" imageMso="TableDesign" getEnabled="SupportC" />
</group>

<group id="SHE10" label="SHE" insertAfterMso="GroupEditingExcel" getVisible="GetVisible" tag="SHETag">
<button id="SHE11" label="Review All Tags" size="large" onAction="TagReviewAllC" imageMso="FindDialog" getEnabled="SupportC" />
</group>

</tab>
</tabs>
</ribbon>

<contextMenus>
<contextMenu idMso="ContextMenuCell">
<button id="cMn10" label="Format Title" insertBeforeMso="Cut" onAction="SetTitleC" imageMso="AppointmentColor3"/>
<menu id="cMn20" label="Case Menu" insertBeforeMso="Cut" >
<button id="cMn21" label="Upper Case" onAction="UpperMacroC" imageMso="OutlineMoveUp"/>
<button id="cMn22" label="Lower Case" onAction="LowerMacroC" imageMso="OutlineMoveDown"/>
<button id="cMn23" label="Proper Case" onAction="ProperMacroC" imageMso="GoTo"/>
<button id="cMn24" label="Sentence Case" onAction="SentenceMacroC" imageMso="Repeat"/>
</menu>
<menuSeparator id="cMnSpr01" insertBeforeMso="Cut" />
</contextMenu>
</contextMenus>
</customUI>

 

[dauxom]

bạn đã nặng lời rồi đó,
thứ nhất tôi muốn nói rỏ cho bạn biết (nếu bạn ko có đọc nhiều bài trên diễn đàn) thì bạn kiều Mạnh có rất nhiều bài viết vể bảo mật code tức nhiên là dạng học thuật tìm tòi, tôi không nói bạn ấy crack code giỏi
thứ nhì, diễn đàn này là nơi chia sẻ? phải không? đó có phải tôn chí của diễn đàn này không?vậy thì bạn đưa một tiện ích lên đây, kêu người ta tùy chỉnh để sử dụng, lấy cái gì để mà chỉnh đây?
========
tôi chẳng crack code của bạn ấy làm gì, vì tôi chẳng phải là kế toán nên cũng chẳng quan tâm, mà nó thiệt với bạn một khi tôi muốn làm gì thì tôi có thể lục tung cả google lên để tìm và tự làm là được, kể cả cách để crack code
==========
quan điểm của tôi, đã chia sẻ cho công đồng mởi mà khóa pass là không đúng với tinh thần, nếu ai cũng khóa thì diễn đàn này có phát triển mạnh như bây giờ không?
chừng nào mà tôi vào trang riêng của bạn ấy rồi crack đó là ăn cắp, đó là không có văn hóa như bạn nói
======
một vài ý kiến trao đổi với bạn

 

[dauxom]

Cám ơn bạn.

Tôi nhờ bạn Nguyễn Duy Tuân cùng với các bạn tranhungdao12a3, dauxom, Let'GâuGâu, doveandrose, chuot0106, cùng với tất cả các bạn yêu thích VBA Excel cùng cải tiến chương trình này. Với lời nhắn: Miễn phí cho tất cả mọi người cùng sử dụng học tập. Không mua bán trao đổi và cài thêm mã độc nhé.

Trước khi post code lên để các bạn có thể tối ưu hóa và thêm các tính năng khác thì mình xin gửi bản mới nhất cho các bạn. (Tất nhiên mình đã xóa các phần liên quan đến công ty mình - confidential).

Thanks you all.

Pass VB: 12345678

Rất tiếc là không thể giúp bạn được, .... như kiểu rối canh hẹ. Tôi chỉ có thể là người vỗ tay ủng hộ dự án của bạn và hy vọng ở đây có người chung tay giúp bạn.

 

[chgjst]

Cám ơn bạn, có người ủng hộ thêm là được rồi. Chúng ta tạm thời thôi nói chuyện bản quyền hay gì đó nhé, vì mình đã làm những gì phải làm rồi. Thế nhé.

 

[sealand]

Tôi có 1 số ý kiến tham gia với bạn:
1/Việc sống còn của 1 file kế toán trên Excel là phải ly khai các báo cáo và các công thức của nó. Nếu không file sẽ rất nặng về cuối năm có khi chạy không nổi nữa. Mặt khác, có phải lúc nào ta cũng cần báo cáo đâu
2/Viêc để file Advance dưới dạng Adin cũng bất tiện, phải kiểm tra load Adin thường xuyên khi dùng Exc
Theo tôi nên bố trí như sau cho hợp lý:
-1 file Hệ thống (Sys): Bao gồm toàn bộ giao tiếp người dùng, Code.
-1 file Báo cáo ( Toàn bộ sổ sách báo cáo) file này có thể ghép chung vào Sys.
-1 file Dữ liệu (Data): Lưu trữ toàn bộ dữ liệu người dùng cung cấp vào.

Khi cập nhật ta chỉ thay 2 file đầu.
3/Nên để file cố định theo QD 48 vì mục đích của chương trình là vậy. Nếu theo QD 15 (200) thì hệ thống TK và code sử lý dữ liệu sẽ khác đi nhiều.
4/Data nên dùng chung các loại chứng từ và có phân loại để dễ tách. Tránh trùng dụng giữa các chúng từ vì có chứng từ chỉ 1 dòng nhưng có chứng từ cả chục dòng nên chia thành 2 bảng, 1 là số chứng từ pS và 1 bảng là chi tiết của chứng từ.
5/Bạn nên xem lại cách tổng hợp phát sinh. Nếu như bạn đang làm sẽ sai lệch đối với loại TK có số dư 2 bên và Lưu chuyển tiền tệ.

Còn 1 số vấn đề nữa, nhưng mình soạn lại khó và lủng củng quá.

 

[huuthang_bd]

Không biết là do code ribbon có lỗi hay là do máy tôi mà tôi mở add in không load được ribbon. Tôi dùng Excel 2007, mọi người có load được ribbon không?

 

[chgjst]

Tôi có 1 số ý kiến tham gia với bạn:
1/Việc sống còn của 1 file kế toán trên Excel là phải ly khai các báo cáo và các công thức của nó. Nếu không file sẽ rất nặng về cuối năm có khi chạy không nổi nữa. Mặt khác, có phải lúc nào ta cũng cần báo cáo đâu
2/Viêc để file Advance dưới dạng Adin cũng bất tiện, phải kiểm tra load Adin thường xuyên khi dùng Exc
Theo tôi nên bố trí như sau cho hợp lý:
-1 file Hệ thống (Sys): Bao gồm toàn bộ giao tiếp người dùng, Code.
-1 file Báo cáo ( Toàn bộ sổ sách báo cáo) file này có thể ghép chung vào Sys.
-1 file Dữ liệu (Data): Lưu trữ toàn bộ dữ liệu người dùng cung cấp vào.

Khi cập nhật ta chỉ thay 2 file đầu.
3/Nên để file cố định theo QD 48 vì mục đích của chương trình là vậy. Nếu theo QD 15 (200) thì hệ thống TK và code sử lý dữ liệu sẽ khác đi nhiều.
4/Data nên dùng chung các loại chứng từ và có phân loại để dễ tách. Tránh trùng dụng giữa các chúng từ vì có chứng từ chỉ 1 dòng nhưng có chứng từ cả chục dòng nên chia thành 2 bảng, 1 là số chứng từ pS và 1 bảng là chi tiết của chứng từ.
5/Bạn nên xem lại cách tổng hợp phát sinh. Nếu như bạn đang làm sẽ sai lệch đối với loại TK có số dư 2 bên và Lưu chuyển tiền tệ.

Còn 1 số vấn đề nữa, nhưng mình soạn lại khó và lủng củng quá.

Many thanks

Tôi đã chia 2 bảng theo danh sách chung và riêng như ý 1 của bạn rồi, và cũng hạn chế tối đa dùng công thức. Tuy vậy vẫn chưa code hóa được hoàn toàn.

File chương trình không cần đưa vào addin, chỉ nhấp chuột mở là tự động load. cần thiết bạn chọn Autorun để đưa vào XLSTART, khi cập nhật cũng chỉ cần cập nhật file này (.xlam)

Mình cũng để cố định theo QDD48, tuy nhiên cũng đưa sẵn sàng hệ thống để chọn lựa theo QDD15, nhưng chưa đc thử nghiệm nhiều

Data đều lấy nguồn từ sheet Hoadon (chính), Chitiet (chi tiết hàng hóa trong HĐ), các số dư tại các Mã, các sheet có màu xanh da trời đều là sheet report tham khảo không chứa dữ liệu

Về tổng hợp phát sinh tôi sẽ xem lại xem thế nào.

 

[chgjst]

Không biết là do code ribbon có lỗi hay là do máy tôi mà tôi mở add in không load được ribbon. Tôi dùng Excel 2007, mọi người có load được ribbon không?

Bạn bỏ nó ra khỏi addin xem sao, mở chạy trực tiếp.

 

[Nguyễn Duy Tuân]

Không biết là do code ribbon có lỗi hay là do máy tôi mà tôi mở add in không load được ribbon. Tôi dùng Excel 2007, mọi người có load được ribbon không?

Bạn thử đoạn code đó trên một file xlsm xem có chạy không, nếu không chạy là khai báo xml ribbon lỗi.

 

[chgjst]

Hi các bạn, đã lâu không vào diễn đàn nên không biết có gì mới không.

Mình đang cần một bản đề cương training Excel cho ace kế toán, không biết có ai có tài liệu đó không share cho mình một bản.

Cám ơn nhiều.

 

[Rainbow208]

Dạ. E cũng rất muốn học vba bài bản. Nhưng h e cần đoạn code gấp để làm báo cáo ạ. Mai e phải nộp xếp rồi ợ. Ace giúp e với ạ.
E muốn trích lọc dữ liệu từ 1 sheet sang nhiều sheet khác nhau. VD: sheet tổng của e là doanh số bán hàng các mặt hàng(có ngày tháng, số lượng, tên KH, địa chỉ, Dthu...). E muốn tự động trích lọc doanh số của từng mặt hàng ra từng sheet. Nếu được giúp e lấy 1 số cột giá trị tương ứng. Chứ bảng của e dài lắm. ko cần trích hết các cột ra ạ.
Help me!!!!

 

[tuankt007]

Không dow được bạn ơi.

 

[tuankt007]

nếu ban muốn nâng cấp Pm của bạn lên thì tham gia vào face của mình để nói chuyện cụ thể, minh cũng có tí về VBA
và có các tool quan lý giữ liệu giành cho các kế toán trưởng hoặc cá giám đốc...
face cua minh : hoanghakt007@yahoo.com
tks ban hiện tại mình có một Pm hảnh chuyên chạy cho Kế toán trưởng và kế toán dịch chỉ 2M thôi
nếu bạn thật sự cao thủ thỉ mình sẽ bàn sâu, ko biết PM bạn bao nhiêu M?

 

[tuankt007]

sao xóa bài tôi vậy ...