[已解决]请高手们帮帮忙,谢谢了!

810126769

lbhlbh 发表于 2014-4-10 12:43
你好，真的不好意思，才有空上网，上面的代码还是不理想，ar = Array("校办", "财务室", "后勤处")这句代 ...

不知道这些表名的变化的规律，请详细说明有哪些变化规律。

lbhlbh

810126769 发表于 2014-4-10 12:47
不知道这些表名的变化的规律，请详细说明有哪些变化规律。

也没有什么规律的，就是些部门的表格，因为这些部门有时没有数据时就不会生成了，表的名称有时也会变换的，谢谢了

810126769

lbhlbh 发表于 2014-4-10 13:01
也没有什么规律的，就是些部门的表格，因为这些部门有时没有数据时就不会生成了，表的名称有时也会变换的 ...

必须知道你的表名称的变化规律才知道怎么写代码

lbhlbh

810126769 发表于 2014-4-10 15:08
必须知道你的表名称的变化规律才知道怎么写代码

主要是根据“出库单列表”C列和E列的部门和类别名称生成 的，谢谢了

810126769

lbhlbh 发表于 2014-4-10 19:45
主要是根据“出库单列表”C列和E列的部门和类别名称生成 的，谢谢了

请试试看吧，不知道是不是你想要的效果，
固定22.rar (186.58 KB, 下载次数: 2)

2014-4-10 21:15 上传

点击文件名下载附件

810126769

lbhlbh 发表于 2014-4-10 19:45
主要是根据“出库单列表”C列和E列的部门和类别名称生成 的，谢谢了

如果不是想要的结果，请详细说明工作表名与"出库单列表"C列和E列的部门和类别生成的规律。最好模拟一些生成的工作表名。

lbhlbh

810126769 发表于 2014-4-10 21:18
如果不是想要的结果，请详细说明工作表名与"出库单列表"C列和E列的部门和类别生成的规律。最好模拟一些生 ...

谢谢了，我修改了一点：将Sheets(“校办”).Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _        SkipBlanks:=False, Transpose:=False中的Sheets(“校办”)修改成Sheets(j)才比较完美，谢谢

lzrlzr

810126769 发表于 2014-4-10 21:18
如果不是想要的结果，请详细说明工作表名与"出库单列表"C列和E列的部门和类别生成的规律。最好模拟一些生 ...

老师你好，我还个问题请帮我解决，谢谢了。要求：根据表3的“A3”单元格的值，如何使用公式或代码引用表1中相对应的值返回到A3表的A5和B5中，如当A3=JZ1009时，A5=KK。详见附件。

810126769

lzrlzr 发表于 2014-4-11 13:21
老师你好，我还个问题请帮我解决，谢谢了。要求：根据表3的“A3”单元格的值，如何使用公式或代码引用表1 ...

公式和代码都可以：
1.rar (54.32 KB, 下载次数: 4)

2014-4-11 15:54 上传

点击文件名下载附件

lzrlzr

810126769 发表于 2014-4-11 15:54
公式和代码都可以：

什么都没有的？