本人曾因为在单位上班时用的一个BS系统中没有票据打印功能，而花时间开发过一款票据套打软件，软件小巧，使用简单，工作中经常用到，但是今天闲来无事，又突发奇想，能不能每次直接用单位工作系统导出的数据，直接在EXCEL表中打印呢？说干就干
第一个问题，是在EXCEL文件表一中，如何才能实现点击选定的某行记录，在表二指定的单元格中，显示表一选定的这行记录对应的列的值
因为我已经注册过ChatGPT，因此有问题，我首先想到的就是上ChatGPT问这个超人，结果超人给出的答案是让我使用数据透视表，第一次，我看不大懂，于是，跟它讲，让它提供一个示例表给我看看，结果它马上给了我一个示例，可惜我头脑笨，还是操作不来，我让它提供视频，结果它提供了一个YouTube地址的视频
当然因为某些众所周知的原因，我无法立即打开此视频观看学习，于是放弃了使用数据透视表的办法，转而使用VBA实现了此功能，也就是先在模块中定义一个全局变量iRow来记录sheet1当前选择的行号：public iRow as integer这是Sheet1表当我们在sheet1中选定了某个行之后，就把行号赋值给它:iRow=ActiveCell.Row然后我们在打开sheet2表时，VBA使用这个行号获取sheet1表中对应行列单元格的值，显示在sheet2表格对应的单元格中
类似 Sheet2.Cells(4,5)=Sheet1.Cells(iRow,6)这是Sheet2表，设计成票据和格式好了，现在选定Sheet1表中的一行记录，Sheet2表中对应单元格的值也跟着变动了，这不是用公式或数据透视表实现的，而是用VBA代码实现的
第二个问题，就是在EXCEL表中，怎么样才能只打印指定颜色的文字，其它颜色的文字及表格线不打印
我又问ChatGPT，可是办法好像也挺复杂，反正我试了几次，都没有实现，有时间我会再试的，有兴趣的朋友也可以根据下图这些步骤去试试
后来，我想到了一个非常简单的办法，就是增加一个Sheet3表，在这个表里，只显示表二Sheet2蓝色显示的那些文字，这样，在打印时就不会打印那些表格线和那些黑色的文字了
格式设置好后，我们可以设置表格或单元格保护，以免不小心破坏格式
第三个问题，是怎么样才能更快速的把上面的办法用在新导出的数据表格中，是在新导出的表格中粘贴上面这个文件中的代码和表格呢？还是在上面设计好的这个表格中，追加新导出的数据，如果用后一种方法，怎么办才更方便快捷？以前我曾开发过一个EXCEL多表合并插件，对于上面的问题，我思来想去，还是将新导出的数据合并到我上面设计好的表格中，这样更加简单，于是，我又向ChatGPT提出一个帮助写一段把b.xls文件中的sheet1表中的第4行开始到最后一行的数据复制了合并到a.xls文件中的sheet1表后的VBA代码，ChatGPT马上给出了代码，测试也没问题
然后，我又想，我应该是先打开打印表，然后导入从申拨系统中新导出的表到当前已经打开的表的最后一行的，又让ChatGPT把a.xls替换成当前活动的工作表，这次ChatGPT给出的结果就完全是我要的内容了，我再添加了一个文件名变量，让程序运行时，提示我输入新表的文件路径名，同时在数据表的左上角增加一个追加数据的按钮，这下就完美了
这是Sheet1表至此，一个方便自由的EXCEL票据套打工具就算做好了，每次要打印了，我先打开此表，再导出申拨系统中的数据，保存到桌面上，在这个表中，点击左上角的按钮，让VBA自动合并入新数据，我再选择新数据中的这些新数据，就可快速打印出申拨单了，当然，我这个表格，也是适用于其它票据的套打的，修改的简单程度也不输我原来开发的票证套打程序，而且以后要查询统计这些已经打印过的数据，在EXCEL中也是非常方便快捷