将工作簿中各表符合条件的记录汇总到一个工作表

seelookme

zhaogang1960 发表于 2011-8-24 17:12

高手，能否显示在单元格里面呢?我想复制这些记录到另一张表格。

seelookme

flysum2008 发表于 2011-8-8 17:56

你好高手，我想再请教你一个问题：我想将sheet2符合条件的记录按金额排名前3位的显示在sheet1.sheet1设计一个文本窗口，当我输入品名是就会自动显示sheet2与之对应品名金额前3名的记录（区域、客户名称、品名、金额）。如，我在sheet1的文本窗口输入“原味果果”后按http://file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/369041544/QQ/WinTemp/RichOle/QK]S@Z8FC29P62HI{E`VNTU.jpg就会自动显示sheet2与之相符“原味果果”记录的前三名且按金额按降序排列（须显示区域、客户名称、品名、金额）。能帮忙设置一下VBA语句吗？ 品项排序.rar (15.51 KB, 下载次数: 5)

2011-8-24 19:21 上传

点击文件名下载附件

seelookme

zhaogang1960 发表于 2011-8-24 17:12

看了您写的语句，请教一下，如果我在SHEET2表里面要“金额”后面再加一列“费用”字段，那么我现在想以“费用”排序，那么要改动VBA整个语句的那个地方呢？

seelookme

zhaogang1960 发表于 2011-8-8 17:49
请测试
Sub Macro1()
    Dim cnn As Object, rs As Object, SQL$, i&

本人用以下方法进行列内查找重复数据，但是不行。附件里面的数字前14位一样，后4位不一样也会显示颜色，也就是说用以下方法没办法准确地标出重复值的颜色。
1、选中在表中需要重复查找的列A。
2、打开“格式”－＞“条件格式”对话框。
3、把“条件格式”对话框最左边的“单元格数值”改为“公式”，并且在右边的文本框中输入“=COUNTIF(A:A,A1)>1”。此公式的含义是：彻底查看列A列的整个区域。计算此区域内有多少单元格的值与单元格A1相同，然后进行对比以确定该计数是否大于 1。
4、点选“条件格式”对话框中的“格式”，出现“单元格格式”对话框，点选“图案”标签，选中自己想要的颜色，点“确定”，此时“条件格式”对话框中“格式”颜色改变（当然也可以改边框、字体）。再次点击“条件格式”对话框中的“确定”，这样就完成了重复数据的颜色显示。 Book2.rar (28.88 KB, 下载次数: 6)

2011-9-18 20:58 上传

点击文件名下载附件

neemx

很精彩，我也有此类的问题，我得继续学习，好发帖提问题
看了您的精彩解答，我也在思考代码如何编写的思路
我想做一个合同管理系统，那么对应的有客户表，合同详情，合同清单和打印合同表，商品表
我先自己尝试着自己写，遇到问题再提问吧。
目前我已经解决了合同清单里的合同编号自动编号的语句了

LMY123

Set rs = cnn.Execute(SQL)