快速浏览

实际案例

||

|||||

收费项目

||||||

关键点

大家好，我是冷水泡茶。

前几天在论坛上看到一个求助帖子：帮助论坛：自动查询历史记录和输入。

具体要求：

忽略空行，从下往上搜索查询历史并自动输入（工作表行数会超过）软件是WPS，谢谢大家。

E列手动输入，按回车后自动显示F、G、H、J列。

数据表，只有一个表，数据

需求分析：

1.在数据表的E栏输入产品名称，若之前已经输入过，则会自动带出最近一条记录的数据，包括F栏的规格、G栏的颜色、H栏的单位、J栏的单价。

2、如果只针对这个需求，很简单，从当前行的前一行循环到表头第三行，如果发现相同的商品名称，就把对应的数据填入当前行对应的单元格中。这个问题很多人已经给出了答案。

3.不过我们还要再想一步，E列的产品名称的输入也是一个比较麻烦的问题，如果一个字一个字的手动输入，不仅速度慢还容易出错。我们考虑用下拉列表来选择输入，从已经输入的记录中选择，当然也可以直接手动输入。

4、另外我们还需要根据单价和数量的变化，实时更新K列的金额。

基本思想：

1.这里我们需要使用工作表事件。

2、当E列商品名称发生变化时，我们从下往上取上一行所有的商品名称，选出第一个遇到的，添加到（一个对象），并将对应的FGHJ列数据作为Item添加到一个数组中。

3.接下来我们以当前单元格的值作为key，提取数据如何输入下拉框选的内容，如果这个key存在，就把数据填充到对应的单元格中。

4、我们在工作表中添加一个控件，并在工作表事件中显示，并将键添加到列表中，用于下拉选择；位置在当前单元格的下方，以便当前单元格可以输入内容。

5.为了减少下拉列表项的数量，方便快速选择，我们根据当前单元格输入的内容来匹配key，将包含当前输入内容的key添加到列表中。

6、在工作表事件中，当单价和数量列发生变化时，重新计算金额列。

VBA 代码

代码详细说明在第二条推文中。

后记

1、在 中有一个“从下拉列表中选择”的功能，输入几行数据后，右键点击下一个空白行，在右键菜单中点击“从下拉列表中选择”，就会出现一个下拉列表，点击即可进入。但是它有限制，前一条记录不能有空白行，否则空白行之前的内容会被排除。

2、我们可以通过“数据验证”或者控件来解决下拉输入的问题。由于内容过多，“超过1万行”，数据验证无法处理，所以就采用了。另外我也模拟了1万行数据，速度还可以。

3.在下拉列表中输入。我们也可以建立一个“产品名称”表，将所有产品名称添加到此表中作为参考来源。

4.小问题：根据商品名称筛选添加的列表时，如果立即点击下拉箭头或者控件本身，下拉列表会只有一行，再次点击就恢复正常了。不知道为什么，不过时间关系，暂时就不去管了。

好啦，今天就到这里，我们下次再见！

~~~~~~结束~~~~~~

安利专卖店

安利的牙膏很好用，用完之后就不想用其他的了，洗洁精、洗衣液也是生活必需品，用过的人都说好用！

合谷医疗

合谷医疗专攻各类疑难杂症，尤其擅长抑郁症、焦虑症失眠症、儿童神经发育异常、多动症、自闭症、腰椎颈椎疾病等。太厉害了！体验过的人都说早该来的！

我的付费知识星球：学习和应用

帮助VBA初学者提高VBA编程技能，欢迎加入！