企业官网建设流程全解析

一套“VBA 年终损益一键结转宏”完整实战方案，定位非常锋利：

把“手工编结转分录”变成“一键自动结账”

让年终损益结转从会计苦力活变成系统自动动作

✅ 智能会计课程 · Excel 总账实训

✅ 中小企业 / 代理记账年终结账

✅ 技术博客 + VBA 实战案例

一、实际应用场景描述

场景：中小企业年末损益结转

- 会计科目包含：

- 收入类（主营业务收入、其他业务收入）

- 费用类（管理费用、销售费用、财务费用）

- 年末必须：

- 将损益类科目余额转入“本年利润”

- 现状：

- 会计手工计算各科目余额

- 一笔笔写结转凭证

- 容易漏、容易错

目标系统：

✅ Excel 总账表嵌入 VBA

✅ 自动识别损益科目

✅ 一键生成结转分录

✅ 自动计算净利润

二、引入痛点（手工 vs 自动）

维度 手工结转 VBA 一键结转

科目识别 人工判断 自动筛选

分录编制 手动填写 程序生成

出错概率 高 极低

耗时 30–60 分钟 1 秒

可复用性 每年重做 永久模板

👉 一句话暴击：

结转不是“做分录”，是“系统规则动作”。

三、核心逻辑讲解（会计 × Excel × VBA）

1️⃣ 会计核心规则

收入类科目：

借：收入科目

贷：本年利润

费用类科目：

借：本年利润

贷：费用科目

2️⃣ VBA 自动逻辑

读取科目余额表

↓

筛选损益类科目

↓

生成结转凭证

↓

计算本年利润

四、Excel 表结构（示例）

Sheet：科目余额表

科目代码 科目名称 借方余额 贷方余额

5001 主营业务收入 0 200000

6001 管理费用 80000 0

Sheet：结转凭证（自动生成）

五、VBA 模块化代码（强注释版）

📁 VBA 模块结构

Module1

├── GetProfitAndLossAccounts()

├── GenerateClosingEntries()

└── CalculateNetProfit()

1️⃣ 获取损益科目

' 获取损益类科目并生成结转分录

Sub GetProfitAndLossAccounts()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("科目余额表")

Dim lastRow As Long

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

Dim i As Long

For i = 2 To lastRow

Dim accountName As String

accountName = ws.Cells(i, 2).Value

If InStr(accountName, "收入") > 0 Then

Call GenerateClosingEntries(accountName, ws.Cells(i, 4).Value, "收入")

ElseIf InStr(accountName, "费用") > 0 Or InStr(accountName, "成本") > 0 Then

Call GenerateClosingEntries(accountName, ws.Cells(i, 3).Value, "费用")

End If

Next i

End Sub

2️⃣ 生成结转分录

Sub GenerateClosingEntries(accountName As String, amount As Double, accType As String)

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets.Add

ws.Name = "结转凭证"

Dim rowNum As Long

rowNum = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

If accType = "收入" Then

ws.Cells(rowNum, 1).Value = "借"

ws.Cells(rowNum, 2).Value = accountName

ws.Cells(rowNum, 3).Value = amount

Else

ws.Cells(rowNum, 1).Value = "贷"

ws.Cells(rowNum, 2).Value = accountName

ws.Cells(rowNum, 3).Value = amount

End If

End Sub

3️⃣ 计算净利润

Sub CalculateNetProfit()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("科目余额表")

Dim income As Double, expense As Double

income = Application.WorksheetFunction.SumIf(ws.Columns(2), "*收入*", ws.Columns(4))

expense = Application.WorksheetFunction.SumIf(ws.Columns(2), "*费用*", ws.Columns(3))

MsgBox "净利润：" & (income - expense)

End Sub

六、README.md（使用说明）

# VBA 年终损益一键结转宏

## 功能

- 自动识别损益科目

- 一键生成结转分录

- 自动计算净利润

## 使用步骤

1. 打开 Excel

2. Alt + F11 进入 VBA

3. 粘贴代码

4. 运行 GetProfitAndLossAccounts

七、核心知识点卡片

📌 知识点卡片

技术点 说明

VBA For 循环 批量处理科目

SumIf 自动汇总

会计结转规则 损益类处理

Excel 自动化 减少人工

财务思维 结账流程

八、总结

❌ 别再让会计“年底熬夜编结转分录”

✅ 用 VBA 把结账变成按钮动作

这套方案的本质是：

- 把会计制度翻译成代码

- 把重复性劳动彻底消灭

- 让会计回归分析与决策

利用AI解决实际问题，如果你觉得这个工具好用，欢迎关注长安牧笛！