根据数据有序性序列生成不同的工作薄并按指定格式命名

green0705 · 发表于 2019-1-19 13:57

目的：根据H7数据有效性单元格批量生成单独的工作薄，并以“20190119税金通知单-乐清市白石街道下阮村污水跟进通信管道工程”方式命名
相关数据填在了数据表内

朱荣兴 · 发表于 2019-1-19 15:50

提示: 作者被禁止或删除内容自动屏蔽

green0705 · 发表于 2019-1-19 16:52

朱荣兴发表于 2019-1-19 15:50
Private Sub Worksheet_Change(ByVal T As Range)
Application.DisplayAlerts = False
If T.Address "$H ...

在帮忙看看吧，复制到VBA里面没有反应，找不到宏名称

green0705 · 发表于 2019-1-19 16:58

green0705 发表于 2019-1-19 16:52
在帮忙看看吧，复制到VBA里面没有反应，找不到宏名称

只看到你回复的3行代码，还是无法运行，能不能帮忙修改完整些，麻烦了。

朱荣兴 · 发表于 2019-1-19 19:55

提示: 作者被禁止或删除内容自动屏蔽

mhps159357 · 发表于 2019-1-25 09:02

处理数据联系QQ595213060
新建一个文件夹，将“20190119税金通知单-乐清市白石街道下
阮村污水跟进通信管道工程”工作簿放在新建文件夹里面，
在H7单元格中输入不同数值，输入一个运行以下下面代码即可
Sub xx()
For i = 2 To 8
If Workbooks(1).Sheets("数据表").Cells(i, 3) = Workbooks(1).Sheets("模板").Cells(7, "h") Then
GoTo 100
End If
Next
100:
Workbooks(1).SaveAs ThisWorkbook.Path & "\" & Workbooks(1).Sheets("数据表").Cells(i, 2) & ".xlsx"
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 根据数据有序性序列生成不同的工作薄并按指定格式命名

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-1-19 15:50 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-1-19 19:55 来自手机 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报