拆分工具之六

独行侠123 · 发表于 2021-12-22 01:14

老师，从看你的拆分工作1直到拆分工作6，让我很是拆服，完全可以用完美和精艺求精来形容，我也是表哥爱好者，我的工作是财会方面的，用函数用的多，以前学表格时可以用疯狂来形容，你让我有了必须学好vba的决心，不久将来有信心能超越老师

独行侠123 · 发表于 2021-12-22 01:18

牛，很清晰明了

独行侠123 · 发表于 2021-12-22 17:50

老师：给指导一下：我想做一个食堂主副食购入和消耗的表格，有一个数据录入的台账，所有的信息都在台账工作表，现在需要做月、季度、年度报表，关键字查询模板，和按菜品折分出来单独的工作表，看老师的折分工具就很棒，我想不要老师拆分工具高端的窗体选项，而是直接固定设置好后一个按键直接拆分出来

3190496160 · 发表于 2021-12-22 21:20

独行侠123 发表于 2021-12-22 17:50
老师：给指导一下：我想做一个食堂主副食购入和消耗的表格，有一个数据录入的台账，所有的信息都在台账工作 ...

见不到你的文件，一切都是未知的，可以加我qq私聊

独行侠123 · 发表于 2021-12-22 21:35

老师早上时加您微信了

wzxiao123 · 发表于 2022-1-20 16:28

你好，想请教一下，这两句代码的意思是什么。谢谢！
If Trim(ar(s, Val(xh))) <> "" Then
d(Trim(ar(s, Val(xh)))) = ""

3190496160 · 发表于 2022-1-20 17:19

wzxiao123 发表于 2022-1-20 16:28
你好，想请教一下，这两句代码的意思是什么。谢谢！
If Trim(ar(s, Val(xh))) "" Then
d(Tri ...

如果数组的s行，xh列不为空，则把这个数据赋值给字典d

wzxiao123 · 发表于 2022-1-20 17:24

3190496160 发表于 2022-1-20 17:19
如果数组的s行，xh列不为空，则把这个数据赋值给字典d

好的谢谢大神我以为是数组不为空则字典 d(Trim(ar(s, Val(xh)))) =“” 赋值为空

joyark · 发表于 2022-2-13 16:53

谢谢分享，留个记号

smhf_6 · 发表于 2022-2-14 02:41

现在，wps的功能中，本身含有数据拆分，和多工作簿汇总

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

[分享] 拆分工具之六