excelvba编程实用技巧（还在用ExcelVBA编程试试这个）

excelvba编程实用技巧（还在用ExcelVBA编程试试这个）如上图所示，“订单”表中的“产品ID”列表项目就是从“产品”表的“产品名称”中动态生成的。Dim c As Col = Tables("订单").Cols("产品ID")Dim c As Col = Tables("订单").Cols("产品ID")c.ComboList = "P01|P02|P03|P04|P05"这里的列表项目是可以自定义的，不同列表项之间用“|”隔开即可。如果想这种输入变成多选的，只需再加上一行代码。如：

Excel作为处理办公数据的必备工具，易用性毋庸置疑，但出于数据输入规范及后期数据统计等方面的考虑，很多功能还需要使用VBA编程处理。

对于一般的使用者来说，VBA学习起来并不容易。本文介绍另外一种处理方法，它的编程效率和ExcelVBA相比高的可不是一点半点。尤其是对海量数据的处理，更是它的拿手好戏，刚好可以弥补Excel某些方面的不足。

现以几种最常见的输入方式为例，来看看这款工具Foxtable的编程效率。

列表项目输入

“产品ID”列本来只能手工输入的，只要使用如下两行代码，就可以让它立即变成列表式的选择输入：

Dim c As Col = Tables("订单").Cols("产品ID")

c.ComboList = "P01|P02|P03|P04|P05"

这里的列表项目是可以自定义的，不同列表项之间用“|”隔开即可。如果想这种输入变成多选的，只需再加上一行代码。如：

Dim c As Col = Tables("订单").Cols("产品ID")

如上图所示，“订单”表中的“产品ID”列表项目就是从“产品”表的“产品名称”中动态生成的。

只需一行代码即可让数值和日期列立即启用内置输入器

这个非常简单，一看就明白是怎么回事。代码还是精灵方式输入哦，不用担心记不住里面的属性或方法：

任何文本类型的列，可随时扩展为文件管理列

如下图，只要两行代码就把“客户ID”列扩展成文件列了，每行的“客户ID”都可以保存指定的文件，也可随时打开或删除某行上的文件：

同样只需2行代码，立即就能创建一个自己的图片管理器

使用的代码和扩展为文件时的代码相同，只需把File改成Images即可。代码执行之后，每个单元格旁边都会生成一个“...”按钮，单击这个按钮就弹出图片管理器了：

除了图片管理器之外，对于扩展成图片的列，它还同时可以图片窗口方式展示。如下图：

由以上几个简单的小例子可以发现，Foxtable已经把日常数据管理中的一些常用功能全部模块化了，我们在开发时只需使用很少的代码即可实现看起来非常复杂的功能。

当然，因篇幅所限，以上仅仅只是列举了数据输入方面的几个小例子，其实它更强大的功能主要体现在对海量数据的加载、查询、统计等方面，个人觉得要比Excel的POWER QUERY强大的多。最关键的是，我们开发的项目还可编译成EXE文件独立发布和运行。

欢迎大家持续关注本头条号，后面还将发布系列文章来详细说明如何使用Foxtable进行软件开发。