[已解决]关于组合框选择并显示相应内容的求助

ckoeng · 发表于 2014-3-24 01:43

本帖最后由 ckoeng 于 2014-3-24 14:35 编辑

说明：
1.A、B列为产品的序号及重量，其数量范围为1000~40000，即数据行的数目不定；
2.上表为各产品的重量平均值、最大值、最小值，产品种类的会一直增加，即产品数量不定；

希望实现的功能为：
1.用VBA代码把产品列表中产品名称增加到组合框中，并当产品种类有增加时，复选框同样自动增加产品种类；
2.当组合框选中某产品时，左表C、D、E列自动填入产品对应的平均值、最大值、最小值，并自动向下填充到与A、B列相等的行数。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-24 14:24

组合框.rar (24.07 KB, 下载次数: 10)

hwc2ycy · 发表于 2014-3-24 07:25

组合框.rar (23.01 KB, 下载次数: 7)

ckoeng · 发表于 2014-3-24 13:32

hwc2ycy 发表于 2014-3-24 07:25

感谢你的回复，可惜跟我期望的效果差距有点大，希望能做成浮动的组合框，而且希望达成的功能也没全部实现

hwc2ycy · 发表于 2014-3-24 13:42

ckoeng 发表于 2014-3-24 13:32
感谢你的回复，可惜跟我期望的效果差距有点大，希望能做成浮动的组合框，而且希望达成的功能也没全部实现 ...

你直接说哪要改就成了。想做成什么效果，自己说。

ckoeng · 发表于 2014-3-24 13:49

hwc2ycy 发表于 2014-3-24 13:42
你直接说哪要改就成了。想做成什么效果，自己说。

希望实现的效果为:
1、组合框是浮动的
2、用VBA代码把产品列表中产品名称增加到组合框中，并当产品种类有增加时，复选框同样自动增加产品种类(即G列)；
3、当组合框选中某产品时，左表C、D、E列自动填入产品对应的平均值、最大值、最小值，并自动向下填充到与A、B列相等的行数。(A、B列得行数从4000~40000之间)。

hwc2ycy · 发表于 2014-3-24 13:51

ckoeng 发表于 2014-3-24 13:49
希望实现的效果为:
1、组合框是浮动的
2、用VBA代码把产品列表中产品名称增加到组合框中，并当产品种类 ...

你解释下什么叫浮动的。

ckoeng · 发表于 2014-3-24 13:59

hwc2ycy 发表于 2014-3-24 13:51
你解释下什么叫浮动的。

就是可以移动位置的，因为实际应用的时候除了附件的数据外其余地方都是数据或图表，而且不希望表格太大，所以希望组合框可以移动位置

hwc2ycy · 发表于 2014-3-24 14:07

跟着活动单元格跑好不？

ckoeng · 发表于 2014-3-24 14:20

hwc2ycy 发表于 2014-3-24 14:07
跟着活动单元格跑好不？

如果是活动单元格的，我已经有类似代码了，就是不知道怎么连接到表单型的组合框中和实现产品列表增加就自动增加到组合框中，麻烦帮忙看看是否有办法？非常感谢！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [f4].Address Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim rng As Range, rw&
rw = [b65536].End(3).Row
Set rng = Sheets("产品列表").[a1].CurrentRegion.Find(Target, lookat:=xlWhole)
[c11] = rng.Offset(b2, 1)
[d11] = rng.Offset(b3, 2)
[e11] = rng.Offset(b4, 3)
[c11:e11].AutoFill Destination:=Range("c11:e" & rw), Type:=xlFillDefault
End Sub

hwc2ycy · 发表于 2014-3-24 14:24

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

组合框.rar (24.07 KB, 下载次数: 10)

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