求教各位大神，这个功能怎么实现？在线等

kanonxu · 发表于 2017-8-8 19:54

本帖最后由 kanonxu 于 2017-8-8 20:01 编辑

各位大神，我遇到这样一个问题：
我建立一个产品列表，几十种，附件仅列出15种供参考
我想在表格2里设置公式，对应表格1里第二行的产品信息，实现后如下图：
想实现的报告1.png

然后，我把表格1的第二行删掉，第三行就自动变成新的第二行，然后表格2里自带填充新的第二行的信息，生成一张报告，打印。实现后如下图：
想实现的报告2.png

以此类推，我每天要生成并打印60张报告，这些报告打印一下就好了，不保存。

请问各位大神，有没有可实现的公式或方法？

changhong8 · 发表于 2017-8-8 20:47

这个用几行代码很容易就一次完成了，但是需要知道你的XX报告是什么文字

kanonxu · 发表于 2017-8-8 20:53

changhong8 发表于 2017-8-8 20:47
这个用几行代码很容易就一次完成了，但是需要知道你的XX报告是什么文字

中文，可以理解写成：检验报告

changhong8 · 发表于 2017-8-8 20:57

是固定的“检验报告”四个字吗

小倒霉蛋子 · 发表于 2017-8-8 21:13

我来理解一下你的意思：
表格1是你的数据源，表格2是打印页，每次打印对应表格1的一行内容，是这样吗？
如果是的话，我来提供3个方法。

1、按你思路里面的方法，可以在表格2引用数据的时候通过F4键添加$来使表格2引用的数据固定在表格1的某一行，不因删除或者添加而改变。
2、这个方法也是函数引用来实现，你在表2的某处添加单独添加一行数据，然后表2打印部分单独引用这行数据，通过行标和array函数或者其他会用的函数来引用数据。
3、VBA，最简单，一键完成，两个表打开以后一键就等着打印完即可，这个要自己学一下，不难。

changhong8 · 发表于 2017-8-8 21:13

详见附件，先把打印格式调整好，点击一次打印完成，可根据工作表名称把代码里面的“表格1”、"表格2"等字样替换掉

kanonxu · 发表于 2017-8-8 21:47

changhong8 发表于 2017-8-8 21:13
详见附件，先把打印格式调整好，点击一次打印完成，可根据工作表名称把代码里面的“表格1”、"表格2"等字样 ...

非常感谢，这么神奇的VBA，我也学学去

kanonxu · 发表于 2017-8-9 08:05

本帖最后由 kanonxu 于 2017-8-9 08:08 编辑

changhong8 发表于 2017-8-8 21:13
详见附件，先把打印格式调整好，点击一次打印完成，可根据工作表名称把代码里面的“表格1”、"表格2"等字样 ...

非常给力，谢谢谢谢谢谢谢

changhong8 · 发表于 2017-8-9 08:10

本帖最后由 changhong8 于 2017-8-17 23:06 编辑

此处因系统原因无法显示

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

[求助] 求教各位大神，这个功能怎么实现？在线等

评分

最新热点 /1