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

yangrongguan · 发表于 2011-8-15 19:15

公式弄得如不喜欢请勿理会

zhaogang1960 · 发表于 2011-8-15 20:54

seelookme 发表于 2011-8-15 18:50

请测试
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Dim c As Range, s$, firstAddress$
Set c = [a:a].Find(Target.Value, , , 1)
With [a:a]
      Set c = [a:a].Find(Target.Value, , , 1)
      If Not c Is Nothing Then
         firstAddress = c.Address
         Do
            If c.Offset(, 12) <> "" Then s = s & vbCrLf & c.Offset(, 3) & "供应商，" & Target & "：" & c.Offset(, 12) & "元"
            Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> firstAddress
      End If
End With
If s <> "" Then MsgBox Mid(s, 2)
End Sub

seelookme · 发表于 2011-8-16 14:00

zhaogang1960 发表于 2011-8-15 20:54
请测试
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ...

高手，非常感谢你。用你语句差不多可以了。我输入一些品名时有的会显示所有与这个品名相同的供应商和单价信息，而输入一些品名只会显示与这一品名相同的供应商和单价信息的第一条记录。如输入“电子秤”里面有A公司电子秤33元、A公司电子秤35元和A公司电子秤38元（或者是B公司），当我输入电子秤时只会显示A公司电子秤33元，也就是第一条记录。能帮我看一下吗？

seelookme · 发表于 2011-8-16 14:01

seelookme 发表于 2011-8-16 14:00
高手，非常感谢你。用你语句差不多可以了。我输入一些品名时有的会显示所有与这个品名相同的供应商和单价 ...

还有显示窗口能再拉长吗？以便显示更多的信息。

zhaogang1960 · 发表于 2011-8-16 15:37

seelookme 发表于 2011-8-16 14:01
还有显示窗口能再拉长吗？以便显示更多的信息。

MsgBox函数一行显示60个字符没有问题，如果太长了会自动换行

seelookme · 发表于 2011-8-16 15:45

zhaogang1960 发表于 2011-8-16 15:37
MsgBox函数一行显示60个字符没有问题，如果太长了会自动换行

高手，非常感谢你。用你语句差不多可以了。我输入一些品名时有的会显示所有与这个品名相同的供应商和单价信息，而输入一些品名只会显示与这一品名相同的供应商和单价信息的第一条记录。如输入“电子秤”里面有A公司电子秤33元、A公司电子秤35元和A公司电子秤38元（或者是B公司），当我输入电子秤时只会显示A公司电子秤33元，也就是第一条记录。能帮我看一下吗？

zhaogang1960 · 发表于 2011-8-16 15:48

seelookme 发表于 2011-8-16 15:45
高手，非常感谢你。用你语句差不多可以了。我输入一些品名时有的会显示所有与这个品名相同的供应商和单价 ...

我测试了没有问题，请上传附件分析一下

seelookme · 发表于 2011-8-16 16:51

zhaogang1960 发表于 2011-8-16 15:48
我测试了没有问题，请上传附件分析一下

可以了，谢谢，是我表格设置有问题。

seelookme · 发表于 2011-8-24 16:32

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

你好高手，我想再请教你一个问题：我想将sheet2符合条件的记录按金额排名前3位的显示在sheet1.sheet1设计一个文本窗口，当我输入品名是就会自动显示sheet2与之对应品名金额前3名的记录（区域、客户名称、品名、金额）。如，我在sheet1的文本窗口输入“原味果果”后按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, 下载次数: 4)

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

seelookme 发表于 2011-8-24 16:32
你好高手，我想再请教你一个问题：我想将sheet2符合条件的记录按金额排名前3位的显示在sheet1.sheet1设计 ...

品项排序.rar (28.2 KB, 下载次数: 26)

		自动登录	找回密码
密码			免费注册

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