Tự động hóa công việc lập báo cáo tài chính, báo cáo thuế bằng VBA Excel [ Phần 1 ]

CÔNG TY TNHH PHÚ AN
Địa chỉ: Số 102/04 Đường DT744, Tổ 10, ấp Phú Thứ, Xã Phú An, Thị Xã Bến Cát, Tỉnh Bình Dương

Tên giao dịch: PHU AN CO., LTD
✉ : phuanemail@gmail.com
✉ : namtrungemail@gmail.com
📞 : 0968 970 650
Lĩnh Vực - Ngành Nghề : Công Ty chuyên Sản xuất Thớt gỗ theo mô hình OEM, Gia công sấy gỗ thuê, bán ký gửi gỗ cao su, gỗ tràm, gỗ xà cừ,...

Gia Công Xẻ Gỗ Tươi, Sấy Thuê gỗ các loại

Gia Công Xẻ Gỗ Tươi, Sấy Thuê gỗ các loại

Giới Thiệu Sơ Lược : Công ty thành lập ngày 04/04/2007 và là công ty chuyên cung cấp Phôi Gỗ Cao Su - Cưa, Xẻ, tẩm sấy theo quy cách chủ yếu làm nguyên liệu sản xuất gỗ ghép và thanh nguyên bào 2 mặt , 4 mặt phục vụ sản xuất chi tiết mặt hàng mộc như bàn ghế gỗ, tủ gỗ, giường gỗ, mặt bậc cầu thang, chân bàn chân ghế .... Ván gỗ ghép được xem là sản phẩm có thế mạnh của của công ty chúng tôi được cung cấp chủ yếu cho các đơn vị trực tiếp sản xuất sản phẩm mộc phục vụ tiêu dùng trong nước và xuất khẩu. Sản phẩm có thế mạnh khác của chúng tôi còn là thớt gỗ theo tiêu chuẩn xuất khẩu.
Công ty TNHH Phú An cùng với đội ngũ nhân viên năng động, nhiệt tình, lành nghề và luôn nỗ lực phấn đấu trong công việc vì lợi ích chung của công ty. Kể từ ngày thành lập đến nay, công ty TNHH Phú An đã, đang và tiếp tục dành sự quan tâm chăm sóc đến với tất cả khách hàng với phương châm: “CHẤT LƯỢNG, SỰ ỔN ĐỊNH, GIAO HÀNG ĐÚNG THỜI GIAN VÀ ĐÔI BÊN CÙNG CÓ LỢI “

Tắt Ads Nhà Tài Trợ

Nhận Gia Công Gỗ Ghép, SX Thớt Gỗ Các Loại

Tắt Ads Nhà Tài Trợ

Công Ty Cổ Phần Ván Ghép Năm Trung
Xưởng 1 Sx Ván Ghép : 255/9B KP. Chiêu Liêu, Tân Đông Hiệp, Dĩ An - Bình Dương
Xưởng 2 Sản xuất Thớt Gỗ tại : Phú An - Bến Cát - Bình Dương

✉ : namtrungemail@gmail.com
Website :
1. : Goghepthanh.Com
2. : Ntwood.vn
📞 : 0968 970 650
Lĩnh Vực - Ngành Nghề : Chuyên Sản xuất theo mô hình OEM sản phẩm mộc : Thớt gỗ, mặt bàn ghế gỗ, mặt bậc cầu thang & bán gỗ ghép theo yêu cầu.

Chuyên Nhận Gia Công Sản Xuất Các Loại Thớt Gỗ Cao Cấp, Gỗ Ghép Độc Đáo :

Thớt gỗ các loại

Gia công sấy gỗ thuê, bán gỗ cao su, gỗ tràm xẻ sấy , gỗ xoan, gỗ xoài, gỗ điều, gỗ xà cừ,...
Kinh Doanh Bán Ký Gửi :
1. Sàn gỗ kỹ thuật
2. Sàn Tre Ngoài Trời
3. Sàn Nhựa Hèm Khoá
4. Mua Ván mdf
5. Ván Plywood

Tắt Ads Nhà Tài Trợ

Cần thuê Kế Toán giỏi, Hơn 15 Năm Kinh Nghiệm ?

Tắt Ads Nhà Tài Trợ

CÔNG TY TNHH TƯ VẤN ĐẦU TƯ NASA
Địa chỉ 01: 3.03 Green Building, số 540/1 Cách Mạng Tháng Tám, P.11, Q.03, TPHCM
Địa chỉ 02: 5.04A Ruby Garden, số 2A Nguyễn Sỹ Sách, P.15, Q.Tân Bình, Tp.HCM

✉ : info@ketoannasa.com; thaiacc@ketoannasa.com
🕸️ Website:
1. : dichvuketoanplus.com
2. : ketoannasa.com
📞 : 0926 533 733
☎ : 028.6272 6915
Hơn 15 năm kinh nghiệm, Chúng tôi chuyên làm các dịch vụ sau :
- Tư vấn và thành lập công ty trọn gói cho các nhà đầu tư là người Việt Nam và Người Nước Ngoài.
- Chuyên tư vấn thuế và làm dịch vụ kế toán cho các công Việt Nam và Công ty Nước Ngoài.
- Chuyên xin giấy phép lao động cho người nước ngoài.
- Chuyên làm hồ sơ giải thể tất cả các công ty trong nước và nước ngoài.

Tắt Ads Nhà Tài Trợ

Chuyên Mục Và Bài Viết Nổi Bật

Top Sản Phẩm / Nhà Tài Trợ

Top Sản Phẩm Kiếm Thêm Thu Nhập Online

Home

Cách làm sổ sách kế toán trên Excel

Kế Toán Máy Excel

Tự động hóa công việc lập báo cáo tài chính, báo cáo thuế bằng VBA Excel [ Phần 1 ]

Hôm nay Gia Bảo sẽ chia sẽ cách giúp bạn Tự động hóa công việc lập báo cáo tài chính, báo cáo thuế bằng VBA Excel, trong nội dung lần trước mình đã chia sẻ hướng dẫn các giúp bạn tạo sổ nhật ký chung, là phần dữ liệu quan trọng giúp bạn lập báo cáo tài chính và các loại sổ sách báo cáo thuế.

Bước 1 : Bạn tạo các sheet cấu trúc sổ sách kế toán xử lý dữ liệu bao gồm.

Sheet HTTK
Sheet INSO
Sheet CDSPS
Sheet Bia-NkC
Sheet NKC
Sheet SC
Sheet SCC-TK
Sheet CP
Sheet SQ
Sheet KH
Sheet PB

Bước 2 : Viết code lập trình VBA giúp bạn tự động hóa công việc tạo sổ sách kế toán, In sổ báo cáo thuế định kỳ, lập báo cáo tài chính.

Bao gồm các loại sổ & báo cáo kế toán cơ bản sau đây :

CDSPS Bảng cân đối số phát sinh
BIA-NKC Bìa Nhật Ký Chung
NKC Nhật Ký Chung
BIA-SC Bìa - Sổ Cái
SC Sổ Cái
SQ Sổ quỹ tiền mặt
BIA-SQ Bìa Sổ quỹ tiền mặt
BIA-KH Bìa Khấu Hao
KH Khấu Hao
BIA-PB Bìa khấu hao
KH BẢng phân bổ
BIA-NVL Bìa bảng nhập xuất tồn - nguyên vật liệu
NXT NVL Nhập xuất tồn - nguyên vật liệu
Bia-TP Bìa - Bảng nhập xuất tồn thành phẩm
NXT TP Nhập xuất tồn thành phẩm
BIA-HH Bìa - Nhập xuất tồn hàng hóa
NXT HH Nhập xuất tồn hàng hóa
BIA-BH Bìa sổ chi tiết bán hàng
CTBH Chi tiết bán hàng
BIA-MH Bìa sổ chi tiết mua hàng
NK MUA Sổ chi tiết mua hàng
BIA-TL Bìa - Bảng thanh toán tiền lương
BL Bảng Lương

Danh sách sổ sách kế toán được liệt kê trên được nhiều bạn nhận làm dịch vụ kế toán giá rẻ tại nhà áp dụng phù hợp với mô hình doanh nghiệp, công ty mới thành lập, doanh nghiệp có quy mô vừa và nhỏ.

Hình ảnh minh họa Sổ Cái - Báo Cáo Tài Chính - Báo Cáo Thuế Bằng Excel & VBA

Sau đây toàn bộ code giúp bạn tự động hóa công việc lập báo cáo tài chính, báo cáo thuế bằng VBA Excel, giúp bạn hoàn thiện và tự động hóa công việc phòng kế toán. Không chỉ áp dụng cho nhân viên kế toán công ty, mà còn áp dụng cho nhiều công ty chuyên cung cấp dịch vụ kế toán trọn gói theo hợp đồng thuê ngoài của nhiều doanh nghiệp mới thành lập, công ty thuộc nhiều lĩnh vực ngành nghề bao gồm doanh nghiệp chuyên sản xuất nhựa, sản xuất tôn tráng kẽm, sản xuất gỗ, gia công cơ khí, xây dựng, thiết kế xây dựng, trang trí nội thất. Doanh nghiệp bán sản phẩm sơn, keo, giấy nhám, vật tư, phụ kiện ngành gỗ....

Lưu ý tên Sheet thông tin số dòng, tiêu đề cột cần thực hiện chính xác như bảng sheet hình ảnh minh họa về cấu trúc sổ sách kế toán máy bằng Excel như đã chia trên blog này, tránh khi thực code số liệu hiển thị sai dòng, code ảnh hưởng đến kết quả tính toán.

Code VBA Tự động hóa công việc lập báo cáo tài chính, báo cáo thuế bằng VBA Excel.

Module 1 : Bao gồm các code xử lý dữ liệu cân đối số phát sinh,...

Sub KC_CDSPS()

Sheets("CDSPS").Select
Range("I10").Select
Selection.AutoFilter Field:=7
    Sheets("NKC").Select
    Range("A3:J3").Activate
    Selection.EntireColumn.Hidden = False
    Range("DateKC").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(thang,date,2,0)"
    Range("DateKC").Select
    Selection.Copy
    Range("Datev1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("Datev2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("KC5111n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""5111"",ST_CO)-SUMIF(SH_TK,""5111"",ST_NO)"
    Range("KC5111c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC5112n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""5112"",ST_CO)-SUMIF(SH_TK,""5112"",ST_NO)"
    Range("KC5112c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC5113n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""5113"",ST_CO)-SUMIF(SH_TK,""5113"",ST_NO)"
    Range("KC5113c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC5118n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""5118"",ST_CO)-SUMIF(SH_TK,""5118"",ST_NO)"
    Range("KC5118c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC515_1n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""515-1"",ST_CO)"
    Range("KC515_1c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC515_2n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""515-2"",ST_CO)"
    Range("KC515_2c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC711n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,711,ST_CO)"
    Range("KC711c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC632n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,632,ST_NO)"
    Range("KC632c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6411n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6411,ST_NO)"
    Range("KC6411c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6412n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6412,ST_NO)"
    Range("KC6412c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6413n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6413,ST_NO)"
    Range("KC6413c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6414n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6414,ST_NO)"
    Range("KC6414c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6415n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6415,ST_NO)"
    Range("KC6415c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6417n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6417,ST_NO)"
    Range("KC6417c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6418n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6418,ST_NO)"
    Range("KC6418c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6421n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6421,ST_NO)"
    Range("KC6421c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6422n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6422,ST_NO)"
    Range("KC6422c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6423n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6423,ST_NO)"
    Range("KC6423c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6424n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6424,ST_NO)"
    Range("KC6424c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6427n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6427,ST_NO)"
    Range("KC6427c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6428n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6428,ST_NO)"
    Range("KC6428c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC6429n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,6429,ST_NO)"
    Range("KC6429c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC64210n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,64210,ST_NO)"
    Range("KC64210c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC635_1n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""635-1"",ST_NO)"
    Range("KC635_1c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC635_2n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,""635-2"",ST_NO)"
    Range("KC635_2c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC811n").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK,811,ST_NO)"
    Range("KC811c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("KC421n").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUM(vds)>SUM(vcp),SUM(vds)-SUM(vcp),SUM(vcp)-SUM(vds))"
    Range("KC421c").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("LL1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUM(vds)>SUM(vcp),911,4212)"
    Range("LL2").Select
    ActiveCell.FormulaR1C1 = "=IF(LL1=911,4212,911)"
    Range("LL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("LL4").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[1]"
    Range("J9").Select
    ActiveCell.FormulaR1C1 = "=SUM(ST_NO1)"
    Range("K9").Select
    ActiveCell.FormulaR1C1 = "=SUM(ST_CO1)"
    Range("H9:K9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("CDSPS").Select
    Range("E21").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK1,RC2,ST_NO1)"
    Range("F21").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(SH_TK1,RC2,ST_CO1)"
    Range("G21").Select
    ActiveCell.FormulaR1C1 = _
        "=IF((RC[-4]+RC[-2])>(RC[-3]+RC[-1]),(RC[-4]+RC[-2])-(RC[-3]+RC[-1]),0)"
    Range("H21").Select
    ActiveCell.FormulaR1C1 = _
        "=IF((RC[-2]+RC[-4])>(RC[-5]+RC[-3]),(RC[-2]+RC[-4])-(RC[-5]+RC[-3]),0)"
    Range("E21:H21").Select
    Selection.Copy
    Range("CD").Select
    ActiveSheet.Paste
    Range("psc133_1").Select
    ActiveCell.FormulaR1C1 = "=psn133_1"
    Range("psc133_2").Select
    ActiveCell.FormulaR1C1 = "=psn133_2"
    Range("psn133").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn133,1,0,2,1))"
    Range("psn152").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn152,1,0,2,1))"
    Range("psc152").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc152,1,0,2,1))"
    Range("psn156").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn156,1,0,2,1))"
    Range("psc156").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc156,1,0,2,1))"
    Range("psn211").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn211,1,0,6,1))"
    Range("psc211").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc211,1,0,6,1))"
    Range("psn214").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn214,1,0,3,1))"
    Range("psc214").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc214,1,0,3,1))"
    Range("psn212").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn212,1,0,2,1))"
    Range("psc212").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc212,1,0,2,1))"
    Range("psn241").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn241,1,0,3,1))"
    Range("psc241").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc241,1,0,3,1))"
    Range("psn333").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn333,1,0,8,1))"
    Range("psc333").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc333,1,0,8,1))"
    Range("dcn333").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcn333,1,0,8,1))"
    Range("dcc333").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcc333,1,0,8,1))"
    Range("psn112").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn112,1,0,10,1))"
    Range("psc112").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc112,1,0,10,1))"
    Range("dcn112").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcn112,1,0,10,1))"
    Range("dcc112").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcc112,1,0,10,1))"
    Range("psn338").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn338,1,0,7,1))"
    Range("psc338").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc338,1,0,7,1))"
    Range("dcn338").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcn338,1,0,7,1))"
    Range("dcc338").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcc338,1,0,7,1))"
    Range("psn341").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn341,1,0,2,1))"
    Range("psc341").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc341,1,0,2,1))"
    Range("dcn341").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcn341,1,0,2,1))"
    Range("dcc341").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(dcc341,1,0,2,1))"
    Range("psn421").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn421,1,0,2,1))"
    Range("psc421").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc421,1,0,2,1))"
    Range("psn511").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn511,1,0,4,1))"
    Range("psc511").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc511,1,0,4,1))"
    Range("psn515").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn515,1,0,2,1))"
    Range("psc515").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc515,1,0,2,1))"
    Range("psn521").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn521,1,0,3,1))"
    Range("psc521").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc521,1,0,3,1))"

    Range("psn611").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn611,1,0,2,1))"
    Range("psc611").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc611,1,0,2,1))"
    Range("psn627").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn627,1,0,6,1))"
    Range("psc627").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc627,1,0,6,1))"
    Range("psn635").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn635,1,0,2,1))"
    Range("psc635").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc635,1,0,2,1))"
    Range("psn641").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn641,1,0,7,1))"
    Range("psc641").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc641,1,0,7,1))"
    Range("psn642").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psn642,1,0,8,1))"
    Range("psc642").Select
    ActiveCell.FormulaR1C1 = "=sum(offset(psc642,1,0,8,1))"
    Range("tgddn").Select
    ActiveCell.FormulaR1C1 = "=SUM(vtg1)-ddn112-ddn152-ddn156-ddn211-ddn212-ddn214-ddn241-ddn333-ddn338-ddn341-ddn421"
    Range("tgddc").Select
    ActiveCell.FormulaR1C1 = "=SUM(vtg2)-ddc112-ddc152-ddc156-ddc211-ddc212-ddc214-ddc241-ddc333-ddc338-ddc341-ddc421"
    Range("tgpsn").Select
    ActiveCell.FormulaR1C1 = "=SUM(vtg3)-psn112-psn133-psn152-psn156-psn211-psn212-psn214-psn241-psn333-psn338-psn341-psn421-psn511-psn515-psn627-psn635-psn641-psn642"
    Range("tgpsc").Select
    ActiveCell.FormulaR1C1 = "=SUM(vtg4)-psc112-psc133_1-psc133_2-psc152-psc156-psc211-psc212-psc214-psc241-psc333-psc338-psc341-psc421-psc511-psc515-psc627-psc635-psc641-psc642"
    Range("tgdcn").Select
    ActiveCell.FormulaR1C1 = "=SUM(vtg5)-dcn112-dcn152-dcn156-dcn211-dcn212-dcn214-dcn241-dcn333-dcn338-dcn341-dcn421"
    Range("tgdcc").Select
    ActiveCell.FormulaR1C1 = "=SUM(vtg6)-dcc112-dcc152-dcc156-dcc211-dcc212-dcc214-dcc241-dcc333-dcc338-dcc341-dcc421"
    Range("thu1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(tgpsn<>tgpsc,""BAÛNG CDSPS KHOÂNG CAÂN"","""")"
    Range("thu2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(tgpsno<>tgpsco,""NHAÄT KYÙ KHOÂNG CAÂN"","""")"
    Range("ND_CDSPS").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("NKC").Select
    Range("e13").Select
    ActiveCell.FormulaR1C1 = "=IF((RC[5]+RC[6])<>0,""v"","""")"
    Range("e13").Select
    Selection.Copy
    Range("E13:E1058").Select
    ActiveSheet.Paste
    Range("E12").Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.AutoFilter
    Range("E13").Select
    Selection.AutoFilter Field:=5, Criteria1:="v"
    Range("F9:g9").Activate
    Selection.EntireColumn.Hidden = True
    Range("I9").Activate
    Selection.EntireColumn.Hidden = True
Sheets("CDSPS").Select
Range("I10").Select
Selection.AutoFilter Field:=7, Criteria1:="1"
End Sub

Module số 2 : Xử lý số liệu sổ cái,..

Sub INTOANBOSOCAI()
Dim i
With Range("cdsps!b1")
    For i = 10 To 139
    If .Offset(i, 7) = 1 Then
        Range("sc!c11").Value = .Offset(i, 0)
        Sheets("sc").Select
        SOCAI
        ActiveSheet.PrintOut
    End If
    Next i
    End With
End Sub
Sub INSOKT()
Dim a, b
With Range("inso!b1")
    For a = 2 To 100
        If .Offset(a, 2) = 1 Then
        b = .Offset(a, 0)
            If b = "SC" Then
            INTOANBOSOCAI
            Else
                If b = "SQ" Then
                SOQUY
                ActiveSheet.PrintOut
                    Else
                        If b = "CTBH" Then
                        CTBH
                        ActiveSheet.PrintOut
                            Else
                            Sheets(b).Select
                            ActiveSheet.PrintOut
                        End If
                End If
            End If
        End If
    Next a
End With
End Sub

Sub CTBH()
    Sheets("CTBH").Select
    Selection.AutoFilter Field:=1
    Range("A11:D169").Select
    Selection.ClearContents
    Range("F11:J169").Select
    Selection.ClearContents
    Application.Goto reference:="nkban1"
    Selection.Copy
    Sheets("CTBH").Select
    Range("A11").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.Goto reference:="nkban2"
    Selection.Copy
    Sheets("CTBH").Select
    Range("d11").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.Goto reference:="nkban3"
    Selection.Copy
    Sheets("CTBH").Select
    Range("F11").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.AutoFilter Field:=1, Criteria1:="1"
End Sub

Module số 3 : Xử lý số liệu sổ cái, sổ quỹ,...

Sub SOCAI()
    Sheets("NKC").Select
    Selection.AutoFilter Field:=5
    Application.Goto reference:="NKC1"
    Selection.Copy
    Sheets("SC").Select
    Range("A17").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("b2").Select
    ActiveCell.FormulaR1C1 = "=if(or(TK_sc=""133"",TK_sc=""152"",TK_sc=""156"",TK_sc=""511"",TK_sc=""515"",TK_sc=""611"",TK_sc=""635""),TK_sc&""*"",TK_sc)"
    Range("b3").Select
     ActiveCell.FormulaR1C1 = "=TK_sc"
    Application.Goto reference:="NKSC"
    Range("NKSC").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:B3"), Unique:=False
    Range("j11").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(cd_shtk,TK_sc,vtg1)"
    Range("k11").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(cd_shtk,TK_sc,vtg2)"
    Range("j12").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(cd_shtk,TK_sc,vtg3)"
    Range("k12").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(cd_shtk,TK_sc,vtg4)"
    Range("j13").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(cd_shtk,TK_sc,vtg5)"
    Range("k13").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(cd_shtk,TK_sc,vtg6)"
    Range("j11:k13").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Rows("1:3").Select
    Selection.EntireRow.Hidden = True
    Columns("E:E").Select
    Range("E9").Activate
    Selection.EntireColumn.Hidden = True
    Columns("h:h").Select
    Range("h9").Activate
    Selection.EntireColumn.Hidden = True
    Range("F1048").Select
End Sub
Sub SOQUY()

    Sheets("SQ").Select
    Range("G10").Select
    'ActiveSheet.ShowAllData
    Range("SQ_nd").Select
    Selection.ClearContents
    Sheets("SC").Select
    Range("C11").Select
    ActiveCell.FormulaR1C1 = "'111"
    SOCAI
    Range("SC_nd1,SC_nd2").Select
    Selection.Copy
    Sheets("SQ").Select
    Range("A12").Select
    ActiveSheet.Paste
    Range("SQ_tgnd").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("J13:J14"), Unique:=False
End Sub

Module số 4.

Sub KCSCC()

    Application.Goto reference:="NKTK"
    ActiveWindow.SmallScroll Down:=10
    ActiveSheet.ShowAllData
    Range("A17").Select
    ActiveCell.FormulaR1C1 = "=DATE(ncc,tcc,1)"
    Range("A17").Select
    Selection.Copy
    Application.Goto reference:="DATEtk"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("D17").Select
    ActiveCell.FormulaR1C1 = "Soá dö ñaàu kyø"
    Range("D17").Select
    Selection.Copy
    Application.Goto reference:="NDtk"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("HTTK").Select
    Range("SHTKcc").Select
    Selection.Copy
    Sheets("SCC-TK").Select
    Range("H17").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("L17").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC8,BANG_CDSPS,2,0)"
    Range("M17").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC8,BANG_CDSPS,3,0)"
    Range("L17:M17").Select
    Selection.Copy
    Application.Goto reference:="SDDtk"
    ActiveSheet.Paste
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.Goto reference:="NKC1"
    Selection.Copy
    Sheets("SCC-TK").Select
    Application.Goto reference:="NDNK"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    'Application.Goto Reference:="DATEctk"
    'ActiveCell.FormulaR1C1 = "=DATE(n_SCC,t_SCC,CDSPS!R1C9)"
    Range("A1190").Select
    Selection.Copy
    Application.Goto reference:="DATEctk"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("tgpscc").Select
    ActiveCell.FormulaR1C1 = "Toång soá phaùt sinh"
    Range("tgpscc").Select
    Selection.Copy
    Application.Goto reference:="NDtsps"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("HTTK").Select
    Range("SHTKcc").Select
    Selection.Copy
    Sheets("SCC-TK").Select
    Range("ndpscc").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("ndsdck").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("SCC-TK").Select
    Range("j1230").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC8,BANG_CDSPS,4,0)"
    Range("k1230").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC8,BANG_CDSPS,5,0)"
    Range("J1230:K1230").Select
    Selection.Copy
    Application.Goto reference:="STtsps"
    ActiveSheet.Paste
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("D1351").Select
    ActiveCell.FormulaR1C1 = "Soá dö cuoái kyø"
    Range("D1351").Select
    Selection.Copy
    Application.Goto reference:="NDck"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("L1371").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC8,BANG_CDSPS,6,0)"
    Range("M1371").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC8,BANG_CDSPS,7,0)"
    Range("L1371:M1371").Select
    Selection.Copy
    Application.Goto reference:="STck"
    ActiveSheet.Paste
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.Goto reference:="NKTK"
    Range("NKTK").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:b3"), Unique:=False
End Sub

Hình ảnh minh họa sheet cấu trúc sổ sách kế toán xử lý dữ liệu bao gồm :

Sheet HTTK : Hệ Thống Tài Khoản

Sheet INSO : Danh sách Sổ sách kế toán cần In

Sheet CDSPS : Cân Đối Số Phát Sinh

Sheet NKC : Sổ Nhật Ký Chung Làm kế Toán Máy & Báo Cáo Thuế Bằng Excel

Sheet SCC-TK : Sổ chi tiết các tài khoản làm báo cáo tài chính, kế toán máy trên Excel

Sheet CP : Sổ Chi Phí Sản Xuất Kinh Doanh, Làm Kế Toán Máy Bằng Phần Mềm Excel

Sheet SQ : Sổ quỹ Kế Toán Máy Bằng Excel.

Sheet KH : Sổ theo dõi TSCĐ & Trích khấu hao

Sheet PB : Sổ Phân Bổ Chi Phí

Lưu Ý Phần Xử Liệu dữ liệu Nhật Ký Chung đã được Gia Bảo trình bài trong nội dung bài viết " Hướng dẫn tạo sổ sách kế toán máy ( ghi sổ nhật ký chung ) cực dễ bằng VBA Excel " bạn xem nội dung chi tiết theo link bên dưới nhé...

https://www.digitalnomad.vn/2021/11/huong-dan-tao-so-sach-ke-toan-may-bang-excel-vbaGJ5EF6.html

Do nội dung hướng dẫn tương đối dài do đó Gia Bảo chia nhỏ bài viết thành nhiều phần khác nhau, trong nội dung bài viết kế tiếp :

Sẽ giúp bạn hoàn thiện chi tiết từng mẫu sổ sách được liệt kê trong nội dung bài viết :

Tự động hóa công việc lập báo cáo tài chính, báo cáo thuế bằng VBA Excel [ Phần 1 ]

Bao gồm :

Hướng dẫn chi tiết tạo và in sổ cái, sổ quĩ, sổ chi tiết tài khoản,...
Hướng dẫn chi tiết tạo và in sổ chi tiết xuất nhập tồn.
Hướng dẫn chi tiết tạo và in sổ cân đối số phát sinh làm báo cáo thuế bằng Excel .
,...

Xem bài viết kế tiếp : Tạo sổ cân đối phát sinh ( số dư tài khoản đầu kỳ )