VBA 个税用的

最新推荐文章于 2025-03-16 14:16:49 发布

qq_42561756

最新推荐文章于 2025-03-16 14:16:49 发布

阅读量269

点赞数

文章标签： p2p linq c#

本文链接：https://blog.csdn.net/qq_42561756/article/details/122875361

版权

这是一个使用VBA编写的Excel宏，用于清空和生成个税申报的模板。当输入数据不完整时，程序会提示错误信息并退出。程序还会创建公司文件夹，根据输入的日期范围生成多个月份的个税导入模板，自动填充模板数据并保存为独立的Excel文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 清空_Click()
On Error Resume Next
Set sb = ThisWorkbook.Sheets("无税申报个税导入模板生成器")
sb.Range("A2:I2").ClearContents
sb.Range("K2").ClearContents
sb.Range("C3:G21").ClearContents
sb.Range("A2").Select
End Sub

Sub 生成金三导入模板_Click()
On Error Resume Next
Set sb = ThisWorkbook.Sheets("无税申报个税导入模板生成器")
If [A2] = "" Then
[A2].Select
MsgBox "请输入纳税人识别号"
Exit Sub
ElseIf [b2] = "" Then
[b2].Select
MsgBox "请输入纳税人名称"
Exit Sub
ElseIf [C2] = "" Then
[C2].Select
MsgBox "请输入员工姓名"
Exit Sub
ElseIf [D2] = "" Then
[D2].Select
MsgBox "请选择身份证类型"
Exit Sub
ElseIf [E2] = "" Then
[E2].Select
MsgBox "请输入国籍"
Exit Sub
E