如何从一个工作簿里的工作表数据按模板分配到多个工作簿或工作表里？

gwjkkkkk · 发表于 2024-4-4 21:05

本帖最后由 gwjkkkkk 于 2024-4-4 21:11 编辑

请参考附件、、、

逆天修炼 · 发表于 2024-4-4 22:07

本帖最后由逆天修炼于 2024-4-4 22:19 编辑

gwjkkkkk 发表于 2024-4-4 21:05
请参考附件、、、

gwjkkkkk老师，你也太牛了吧

你这代码里用了数组、字典和自定义函数，感觉里面逻辑性很强，我看了半天感觉一头雾水啊

这非得对VB代码有深刻的理解才能做得到。
dr = [{"B2",1;"B3",2;"F2",3;"F3",4;"H2",5;"H3",6;"D15",7;"I15",8}]这个集合定义，我第一次见
dic(ar(i, 2)) = dic(ar(i, 2)) & " " & i 这个部分的健和值，我也没理解透
Function cutArray(ByVal ar, iCutNum&) As Variant 这个自定义函数也没太理解明白
看来我的路还有好长要走啊

gwjkkkkk老师，可否把“公司名称：AAA”和“公司地址：BBB”以及“合计金额(大写):叁仟零玖拾元整”这三个部分中的AAA、BBB和“叁仟零玖拾元整”这个单独拆出来，以方便设置字体？可否用mid函数把公司名称、公司地址、合计金额(大写)取出来，通过定义字符串变量的方式定义字体呢？

逆天修炼 · 发表于 2024-4-4 23:30

ykcbf1100 发表于 2024-4-4 16:41
参与一下。。。

ykcbf1100老师，你的这个代码是应用了字典套字典吧？
可否帮忙把超过8行时需增加工作表的后续代码完善一下？
谢谢ykcbf1100老师费心了！我想如果能完全读懂你和gwjkkkkk老师的代码，需要费很长时间

gwjkkkkk · 发表于 2024-4-5 18:38

简单修改一下即可。。。

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

[求助] 如何从一个工作簿里的工作表数据按模板分配到多个工作簿或工作表里？

评分