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

  • Thread starter Thread starter chgjst
  • Ngày gửi Ngày gửi
Elx Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
C

chgjst

Thành viên mới
Tham gia
28/10/08
Bài viết
12
Được thích
22
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
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
chgjst đã viết:
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
Nhấp chuột vào đây để mở rộng...

mật khẩu của Add ins là gì vậy bạn ? mình muốn xem Code VBA của Add ins để học tập được hông bạn ?
 
Upvote 0
hpkhuong đã viết:
Là sao? Share toàn bộ/ Đang tìm kiếm đối tác...???--=0--=0--=0
Nhấp chuột vào đây để mở rộng...
có nghĩa là Bảo kiếm tặng anh hùng
phải có kiến thức uyên thâm để quản lý được Project khủng cỡ này thì mới xứng đáng được tiếp quản , hiểu chưa nè ?


46c4def2ef7be5f77647c92e5379fe4e.png
 
Upvote 0
doveandrose đã viết:
có nghĩa là Bảo kiếm tặng anh hùng
phải có kiến thức uyên thâm để quản lý được Project khủng cỡ này thì mới xứng đáng được tiếp quản , hiểu chưa nè ?
Đã tìm được người tiếp quản xứng đáng rồi.}}}}}


46c4def2ef7be5f77647c92e5379fe4e.png
Nhấp chuột vào đây để mở rộng...
Đã tìm được người tiếp quản rồi.)(&&@@)(&&@@)(&&@@}}}}}}}}}}--=0--=0
 
Upvote 0
chgjst đã viết:
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
Nhấp chuột vào đây để mở rộng...
Mình mới coi thấy code viết gọn gàng sạch sẻ .... nhưng nếu muốn kinh doanh mà cho Licence vào Add-ins luôn thì cũng là cao thủ rồi đó --=0--=0--=0
 
Lần chỉnh sửa cuối:
Upvote 0
Hợp tác bằng cách nào? Có thấy thiết kế của bạn ra sao đâu?
Trước khi tôi bỏ thì giờ đọc một đống code, và test một đống code của bạn, tôi cần biết thiết kế có đúng, hợp lý, và có thể phát triển hay không đã.
Gởi thêm một mớ tài liệu thiết kế xem có đạt tiêu chuẩn hôn rồi nói chuyện tiếp.

tb. nói trước là tôi có tật thích chửi bằng tiếng Tây. Gặp tình trạng giao thiệp nửa Tây nửa ta tôi hay bị quen mồm chửi tục lắm.
 
Upvote 0
chgjst đã viết:
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
Nhấp chuột vào đây để mở rộng...

If you want to share code, why have VBA project password?
If you do not want to share the codes, why to be shared your files?

VBA project password is not safe.........
 
Upvote 0
Gửi các bạn.

Cao thủ, nhưng vẫn thiếu một cái gì đó. Tạm thời khoan nói chuyện tiếng Anh hay Việt nhé, vì chúng ta vẫn dùng toàn từ Hán Việt thôi.

Tôi định free cả mã code cho mọi người cùng phát triển. Nhưng giờ có bạn cao thủ đưa cho mọi người rồi nên cũng chẳng cần nói thêm gì nữa.

Thôi bye bye.
 
Upvote 0
Post thành 2 bài mất rồi, nhờ mod xóa dùm
 
Lần chỉnh sửa cuối:
Upvote 0
chgjst đã viết:
Gửi các bạn.

Cao thủ, nhưng vẫn thiếu một cái gì đó. Tạm thời khoan nói chuyện tiếng Anh hay Việt nhé, vì chúng ta vẫn dùng toàn từ Hán Việt thôi.

Tôi định free cả mã code cho mọi người cùng phát triển. Nhưng giờ có bạn cao thủ đưa cho mọi người rồi nên cũng chẳng cần nói thêm gì nữa.

Thôi bye bye.
Nhấp chuột vào đây để mở rộng...

Diễn đàn này không giống như bạn nghĩ . Biết mở Project VBA là 1 chuyện , đem Code công khai lên cho mọi người đọc lại là 1 chuyện khác , ở đây chúng tôi tôn trọng ý kiến của người viết ra Code , nên chừng nào bạn chưa Up File đã gỡ Password VBA lên , thì diễn đàn sẽ không có chuyện thảo luận nội dung chứa trong File của bạn . Nếu không tin bạn có thể để thời gian trả lời .
 
Lần chỉnh sửa cuối:
Upvote 0
chgjst đã viết:
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
Nhấp chuột vào đây để mở rộng...

bạn muốn khóa code thì liên hệ Kieu Manh
trùm luôn đó..........hihihihi
 
Upvote 0
Gửi các bạn.

Cám ơn các bạn đã ủng hộ. Tôi không định làm mọi việc trở nên nghiêm trọng, nhưng tôi có một số lời thế này.

1. Hiện tại tôi đang dùng Win không có bản quyển, tôi có hỏi khi mua đĩa rằng: có đĩa bản quyền không anh, thì anh ta trả lời là không. Tôi mua đĩa không bản quyền để dùng, nhưng tôi tôn trọng Microsoft và một ngày nào đó tôi sẽ mua bản quyền cho các phần mềm của họ. Thế nên việc tôn trọng bản quyền của các bạn tôi cũng không thực sự lấy đó làm mục tiêu. Và nếu bạn hiểu chiến lược của MS thì bạn cũng hiểu bản quyển chỉ là chuyện nhỏ.

2. Tôi biết nhiều bạn đang loay hoay tìm kiếm các công cụ kế toán Excel, trong khi đó trên thị trường thì đầy rẫy các phiên bản hack, crack của vô số các Misa, Fast,... Mà thực sự ai cũng chạy theo đồng tiền cả. Cái này cũng phải xin lỗi vì trước đây mấy năm tôi còn định bán phần mềm này của mình.

3. Và diễn đàn này thực sự là nơi chúng ta có thể tập trung lại để cùng tạo dựng một chương trình kế toán Excel của mình, của người Việt Nam, dành cho các công ty vừa vả nhỏ, không phải mua phần mềm hack hay crack nào cả. Tuy nhiên tôi cần sự đảm bảo để có thể bắt đầu. Cái tôi mong muốn là chúng ta, các công ty lớn không nói vì họ có tiềm lực tài chính, nhưng các công ty nhỏ, ít ra không phải lo nghĩ gì về phần mềm kế toán. Nhất là khi chúng ta vừa ký hiệp định TPP. Tôi không định nói tôi giúp được ai, nhưng chí ít ta phải giúp được nhiều người chứ.

Tất nhiên, một mình tôi làm không xuể, nên tôi mới post lên đây.

Tôi cũng định kiếm Mạnh Thường Quân để đầu tư dự án nhưng vụ lợi mà chắc cũng chẳng cần, Đơn giản hiệu quả là hơn cả.

Và, để tránh trưởng hợp mỗi người phát triển một hướng không tạo thành công cụ tổng hợp nên tôi cần một tổ chức thống nhất. Tôi cần có ai đó đứng ra nhận trách nhiệm cho việc này, khi mà tôi không thể làm được.
 
Upvote 0
dauxom đã viết:
Trum gì vậy? xây (thiết kế kiến trúc, kết cấu) mới khó còn đập khóa đập nhà thì nhiều người làm được.
chgjst mới đưa lên, chưa kịp phản ứng gì đã lao vào mở ra là sao? rồi vặn vẹo là không share với free.
Quan trọng là văn hóa tôn trọng bản quyền thôi, còn giờ nhiều khóa vạn năng, không khóa thì búa vạn nặng đầy trên mạng.
Nhấp chuột vào đây để mở rộng...

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
 
Upvote 0
Tôi thì lại nghĩ chủ Topic nghĩ theo một hướng mở. Với cách bạn ý viết tôi tin chắc bạn ý thừa hiểu pass vba chả có gì là bảo mật và bạn ý đủ khả năng để làm ở một dạng bảo mật cao hơn. Có lẽ bạn ý cần góp ý cho sản phẩm hoặc giống như kiểu làm chung dạng cộng đồng nhằm cho ra một sản phẩm hoàn thiện, đa dạng phục vụ tốt nhất, tối ưu nhất cho công việc kế toán mà rất nhiều bạn trong lĩnh vực này cần dùng.
 
Upvote 0
chgjst đã viết:
Gửi các bạn.

Cám ơn các bạn đã ủng hộ. Tôi không định làm mọi việc trở nên nghiêm trọng, nhưng tôi có một số lời thế này.

1. Hiện tại tôi đang dùng Win không có bản quyển, tôi có hỏi khi mua đĩa rằng: có đĩa bản quyền không anh, thì anh ta trả lời là không. Tôi mua đĩa không bản quyền để dùng, nhưng tôi tôn trọng Microsoft và một ngày nào đó tôi sẽ mua bản quyền cho các phần mềm của họ. Thế nên việc tôn trọng bản quyền của các bạn tôi cũng không thực sự lấy đó làm mục tiêu. Và nếu bạn hiểu chiến lược của MS thì bạn cũng hiểu bản quyển chỉ là chuyện nhỏ.

2. Tôi biết nhiều bạn đang loay hoay tìm kiếm các công cụ kế toán Excel, trong khi đó trên thị trường thì đầy rẫy các phiên bản hack, crack của vô số các Misa, Fast,... Mà thực sự ai cũng chạy theo đồng tiền cả. Cái này cũng phải xin lỗi vì trước đây mấy năm tôi còn định bán phần mềm này của mình.

3. Và diễn đàn này thực sự là nơi chúng ta có thể tập trung lại để cùng tạo dựng một chương trình kế toán Excel của mình, của người Việt Nam, dành cho các công ty vừa vả nhỏ, không phải mua phần mềm hack hay crack nào cả. Tuy nhiên tôi cần sự đảm bảo để có thể bắt đầu. Cái tôi mong muốn là chúng ta, các công ty lớn không nói vì họ có tiềm lực tài chính, nhưng các công ty nhỏ, ít ra không phải lo nghĩ gì về phần mềm kế toán. Nhất là khi chúng ta vừa ký hiệp định TPP. Tôi không định nói tôi giúp được ai, nhưng chí ít ta phải giúp được nhiều người chứ.

Tất nhiên, một mình tôi làm không xuể, nên tôi mới post lên đây.

Tôi cũng định kiếm Mạnh Thường Quân để đầu tư dự án nhưng vụ lợi mà chắc cũng chẳng cần, Đơn giản hiệu quả là hơn cả.

Và, để tránh trưởng hợp mỗi người phát triển một hướng không tạo thành công cụ tổng hợp nên tôi cần một tổ chức thống nhất. Tôi cần có ai đó đứng ra nhận trách nhiệm cho việc này, khi mà tôi không thể làm được.
Nhấp chuột vào đây để mở rộng...

Đã có thời tôi nghĩ như bạn nhưng rồi phải dừng lại. Tạo ra một sản phẩm cụ thể từ nhiều người, ngoài chuyên môn và khả năng mỗi module còn phải có cả một phương pháp tổ chức, ý thức làm nhóm, làm qua mạng thì lại vô cùng khó. Bạn có thể tìm các dự án OpenSource ở Việt Nam mà xem có bao nhiêu cái thành công trong khi nước ngoài thì nhan nhản. Một trong những yếu tố ảnh hưởng đó là ý thức về tôn trọng quyền tác giả (không phải cứ phải trả tiền đâu mà người ta còn lấy của mình thành lợi ích cá nhân). Hiện tại tôi tin vào 2 hướng mà "đứa con" của bạn trưởng thành nhanh hơn là:
1. Xây dựng dự án thương mại, mời nhà đầu tư. Có ngân sách bạn sẽ tập trung và kêu gọi người tham gia sẽ dễ hơn. Phương án này nghe thì hợp lý nhưng thực thi tôi đánh giá là khó vì tính kinh tế trong dự án này không cao, một phần nó là sản phẩm không mới và đi sau quá nhiều người.
2. Bắt đầu từ đam mê và tâm huyết của bạn, bạn cố gắng tự làm hoàn chỉnh cho một mô hình doanh nghiệp. Đến đâu bạn up lên diễn đàn nhờ mọi người test (tôi nghĩ không khó nếu bạn cam kết nó là free). Một cá nhân làm thực sự sẽ khó bởi phải chi phối nhiều thời gian bên cạnh chuyện cơm áo gạo tiền. Vậy nên xác định mục tiêu có thể lớn nhưng mục đích chia từng giai đoạn sẽ phù hợp. Nhưng tôi tin với đam mê thực sự là làm được!
 
Upvote 0
Nguyễn Duy Tuân đã viết:
Đã có thời tôi nghĩ như bạn nhưng rồi phải dừng lại. Tạo ra một sản phẩm cụ thể từ nhiều người, ngoài chuyên môn và khả năng mỗi module còn phải có cả một phương pháp tổ chức, ý thức làm nhóm, làm qua mạng thì lại vô cùng khó. Bạn có thể tìm các dự án OpenSource ở Việt Nam mà xem có bao nhiêu cái thành công trong khi nước ngoài thì nhan nhản. Một trong những yếu tố ảnh hưởng đó là ý thức về tôn trọng quyền tác giả (không phải cứ phải trả tiền đâu mà người ta còn lấy của mình thành lợi ích cá nhân). Hiện tại tôi tin vào 2 hướng mà "đứa con" của bạn trưởng thành nhanh hơn là:
1. Xây dựng dự án thương mại, mời nhà đầu tư. Có ngân sách bạn sẽ tập trung và kêu gọi người tham gia sẽ dễ hơn. Phương án này nghe thì hợp lý nhưng thực thi tôi đánh giá là khó vì tính kinh tế trong dự án này không cao, một phần nó là sản phẩm không mới và đi sau quá nhiều người.
2. Bắt đầu từ đam mê và tâm huyết của bạn, bạn cố gắng tự làm hoàn chỉnh cho một mô hình doanh nghiệp. Đến đâu bạn up lên diễn đàn nhờ mọi người test (tôi nghĩ không khó nếu bạn cam kết nó là free). Một cá nhân làm thực sự sẽ khó bởi phải chi phối nhiều thời gian bên cạnh chuyện cơm áo gạo tiền. Vậy nên xác định mục tiêu có thể lớn nhưng mục đích chia từng giai đoạn sẽ phù hợp. Nhưng tôi tin với đam mê thực sự là làm được!
Nhấp chuột vào đây để mở rộng...

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
 

File đính kèm

Upvote 0
Giới thiệu qua các module:

mAccount: các công cụ Kế toán
mWH: các công cụ quản lý kho
mMain: khởi tạo chương trình và các tính năng hệ thống
mSHE: các công cụ liên quan đến An toàn - đang xây dựng
mTPM: các công cụ liên quan đến Hệ thống - đang xây dựng
mTransfer: các công cụ liên quan đến chuyển dữ liệu từ excel vào các chương trình khác

zCalendar: Hỗ trợ ngày tháng, âm dương lịch
zConnect: Hỗ trợ lấy dữ liệu từ file khác
zDeclare: Khai báo
zFomula: Hàm đưa ra Excel
zFont: tiếng Việt và xử lý string
zLicence: Kiểm tra licence
zPresent: phóng to Excel để trình chiếu
zRegistry: can thiệp hệ thống
zRibbon: công cụ ribbon

Các Class module để kế nối với từng nhóm công cụ trong đó EasiExcel là class chính.

Trong này mình tâm đắc nhất việc lưu Ribbon vào chính tên vùng của Excel, tránh trường hợp mất trỏ. (Có nhiều người lưu vào cell). Và vì nó là Excel chứ không phải Access nên mình hạn chế tối đa việc làm form. Sử dụng hết Excel đã là lý tưởng rồi.

Nếu cần trao đổi gì các bạn gửi email vào: Easicount@gmail.com

Thế nhé
 
Lần chỉnh sửa cuối:
Upvote 0
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>
 
Upvote 0
Let'GâuGâu đã viết:
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
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
Upvote 0
chgjst đã viết:
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
Nhấp chuột vào đây để mở rộng...

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.
 
Lần chỉnh sửa cuối:
Upvote 0
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é.
 
Upvote 0
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á.
 
Upvote 0
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?
 
Upvote 0
sealand đã viết:
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á.
Nhấp chuột vào đây để mở rộng...

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.
 
Upvote 0
huuthang_bd đã viết:
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?
Nhấp chuột vào đây để mở rộ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.
 
Upvote 0
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.
 
Upvote 0
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!!!!-=.,,
 
Upvote 0
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?
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

P
Hyperlink_Cách chuyển cả thư mục và file tổng hợp sang máy khác không bị lỗi (5 người xem)
Trả lời
1
Đọc
14
Maika8008
Maika8008
HeSanbi
Tiện ích Web: Tự động nhấn nút "Bỏ qua" quảng cáo Youtube (1 người xem)
    • Thích
    • Yêu thích
Trả lời
13
Đọc
1K
Gà Con yêu VBA
Gà Con yêu VBA
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
55
Đọc
22K
Gà Con yêu VBA
Gà Con yêu VBA
C
Fix lỗi Application.InputBox Type:=8 (1 người xem)
    • Cười
Trả lời
20
Đọc
535
cdshtz88
C
ptm0412
Quá tin tưởng vào AI các thể loại (2 người xem)
    • Cười
Trả lời
4
Đọc
136
Maika8008
Maika8008
A
  • Question Question
Không tìm được lỗi code (1 người xem)
Trả lời
6
Đọc
88
ptm0412
ptm0412
SA_DQ
Copilot bình luận về một ván cờ vua
    • Thích
Trả lời
5
Đọc
368
SA_DQ
SA_DQ
W
Tham chiếu theo chuỗi ký tự
Trả lời
8
Đọc
281
dungpham01
D
tritv.dad
Lấy dữ liệu từ folder các tờ khai thông quan để theo dõi hiệu suất công việc.
Trả lời
8
Đọc
250
BlueSphere
B
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11 (2 người xem)
    • Thích
Trả lời
0
Đọc
669
GPE-Trợ Lý
GPE-Trợ Lý
SA_DQ
Xin chúc mừng các thầy cô giáo trên cộng đồng nhân 20/11
    • Thích
    • Yêu thích
Trả lời
1
Đọc
105
BuiQuangThuan
B
M
chuyển đổi số thành chữ
Trả lời
15
Đọc
288
dungpham01
D
V
Lỗi copy sheet: the name already exists.
Trả lời
7
Đọc
677
nghiabros
N
L
Nhờ hỗ trợ tìm hàm excel trả về giá trị
Trả lời
4
Đọc
118
lechuong174
L
SA_DQ
Copilot & giúp hỗ trợ nhập các ký tự đặt biệt
    • Thích
Trả lời
0
Đọc
79
SA_DQ
SA_DQ
GPE-Trợ Lý
[GPE20] BIỂU ĐỒ CHUYÊN NGHIỆP: PHÁ VỠ GIỚI HẠN 2 TRỤC CỦA EXCEL
    • Thích
    • Yêu thích
Trả lời
1
Đọc
4K
GPE-Trợ Lý
GPE-Trợ Lý
hadu8889
EXCEL TỰ ĐỘNG ĐÓNG KHI SỬA TEXT Ở TRÊN USERFORM
Trả lời
10
Đọc
248
LOGANWover
L
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
565
Đọc
78K
lacmatquan
L
H
Lấy giá trị format trong ô của excel
Trả lời
2
Đọc
170
LOGANWover
L
A
Tìm nơi học VBA uy tín
    • Cười
Trả lời
2
Đọc
159
SA_DQ
SA_DQ
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom