EXCEL中高效图片刷新管理打印法.docVIP

《编码管理项目》图片刷新导入教程 作者：周世杰 PAGE 6 - “《编码管理项目》图片刷新导入”法—操控教程 ·首先制作出“单行表”，如下图所示。 ·接下来再制作一个“数据表”，此表与“单行表”中的字段数目要等同。如下图： 点击“单行表”在“页面设置”菜单中找到“工作表”选项卡，设置打印区域。如图所示： 说明：A2:Q32指“单行表”打印范围，此范围以外的区域不参与打印工作。 ·接着制作控制按钮，这里制作时需注意，请将按钮施放设置在打印区域以外的地方。在工具栏空白处点击鼠标右键，找到窗体工具栏。点击“微调项”将其拖放至打印区域以外，点击“按钮”拖放至合适位置。 可给按钮命名 在H1单元格输入数值（为起始记录标记号）在I1单元格输入数值（此数值根据“数据表”内记录定）。 接下来在微调按钮处用鼠标右键点击，在弹出的对话框中选取“设置控件格式”。如下图： ·在弹出“对象格式”对话框，将当前值输入为1，最小值1，最大值可自定，步长为1，单元格链接指的是开始号码所处单元格，这里设置为“$H$1”，如下图所示。 接下来输入VB打印代码，按快捷键ALT+F11键进入Microsoft Visual Basic，双击左侧“单行表”即可弹出代码窗口，在窗口内输入打印代码，输入完毕后保存并关闭VB编辑器窗口。 如图所示： Sub 打印() 定义代码宏名称为“打印”； On Error Resume Next 容错语句，即允许继续向下执行； x = [h1] 定义变量X的值为开始单元格（H1） y = [i1] 定义变量y的值为结束单元格（i1） For i = x To y 当i变量从x开始后到y结束时 [h1] = i 定义i为开始单元格（H1） ExecuteExcel4Macro PRINT(1,3,5,TRUE,,FALSE) 调取打印指令 Next i 读取变量i向下执行 End Sub 结束 ·接着在打印按钮处点击鼠标右键，弹出右键菜单，选定“指定宏”。 ·在弹出的“指定宏”对话框中选中“打印”宏代码（也就是刚输入的名称为“打印”的代码名）。确定！ 下一步点击“单行表”内数据填充处，输入Vlookup引用公式。 =VLOOKUP(H1,数据库!$A$5:$BW$800,2,0) Vlookup 函数体，水平方向按参数条件引用查找。 H1 以当前表中H1单元格参数为引用查找依据 数据库!$A$5:$BW$800 以“数据库”表的A5单元格到BW800为引用范围 2,0 引用本行的第二个数据值，0是指精确引用。 此时输入完后按回车即可实现引用结果。如下图所示： 单元格内有数据的证明数据库表内是有内容的，如返回的为“0”值，说明数据库表内是空数据。 如不需要0值，可以在“工具”/“选项”菜单中找到“视图”选项卡，将“零值”勾选取掉即可。 接下来我们回到“数据库”表，将照片插入到所设定的单元格内，为提高图片刷新率，图片尽量不超过500KB。 接下来要定义名称了，按快捷键Ctrl+F3键，弹出定义名称对话框。名称可随意起。 Offset 以指定的引用为参照系，通过给定偏移量返回新的引用。 OFFSET 函数体 数据库!$BP$4 以数据库表的BP列第4行单元格为参照（这里是照片框） 房屋建筑(单表)!$H$1,0) 通过“房屋建筑(单表)”的H1数值为引用返回值，0为偏移量。 再接下来进入到“单行表”中，在工具栏空白处按鼠标右键，找到“控件工具箱”在弹出的工具箱内找到图像，将其拖放到需插入照片的单元格处。如下图所示： 将编辑栏内的参数改为所定义的名称“zsj”即可，最终效果如下图： 另有动态效果见 动画效果.GIF…… OK，本教程到此结束，谢谢大家！！ 2013年4月25日