ComboBox的下拉列表的动态改变

fukw · 发表于 2004-3-31 10:46

在一个userform 上有68个ComboBox, 开始时我给每个ComboBox加入相同的Items, 如何做到如下功能，当我用鼠标给某个ComboBox选中某个item a, 那么同时从别的ComboBox内删去此item a. 这样同一item就不会被多个ComboBox选中。谢谢。 发贴时请使用明确的题目. 谢谢合作

[此贴子已经被taller于2004-3-31 14:08:20编辑过]

firstone · 发表于 2004-3-31 10:53

太难了.

pwkduke · 发表于 2004-3-31 11:00

不要使用添加item功能，而采用rowsource，将项目与工作表内容相链接，选中一个combobox后，将相应的单元格进行处理。

wenz · 发表于 2004-3-31 11:13

68个ComboBox，不可思义，控件太多，速度太慢。

fukw · 发表于 2004-3-31 11:17

我不要求速度，只要好用

goots · 发表于 2004-3-31 11:24

以下是引用fukw在2004-3-31 10:46:00的发言：
在一个userform 上有68个ComboBox, 开始时我给每个ComboBox加入相同的Items, 如何做到如下功能，当我用鼠标给某个ComboBox选中某个item a, 那么同时从别的ComboBox内删去此item a.

我的一个打印对话框，请参考：
dispbbs.asp?BoardID=2&ID=28636

fukw · 发表于 2004-3-31 11:57

goots,请问下面的语句应怎么改才行，谢谢。 Private Sub ComboBox1_Change() For i = 2 To 68
Me.Controls("ComboBox" & i).RemoveItem Me.Controls("ComboBox" & i).Value
Next i End Sub

taller · 发表于 2004-3-31 13:56

uP8kyNV1.zip (12.95 KB, 下载次数: 353)
用自定义类实现的,好处在于不用每个控件去单独写事件代码,因为是刚学着用类,所以有很多东西不知道怎么实现.这个例子只实现了基本功能,有个问题-如果你选错了,重新选择,那么我的代码没法把原来选中的值加到下拉列表中.哪位帮助实现一下

fukw · 发表于 2004-3-31 15:22

Taller DX, 谢谢指正和你的程序。不过我又多了几个问题。请问这个你怎么想到的呀； Dim Combs() As New Class3
Public WithEvents CombGroup As MSForms.ComboBox
有什么书好介绍吗？谢了先！！

taller · 发表于 2004-3-31 15:29

我在8楼说过,我也是刚开始学着用,所以上面的问题没有完全解决.不知道哪里有资料,只是从一个例子上看到过一点代码,请参考 dispbbs.asp?BoardID=2&ID=39160&replyID=151578&skin=1 又琢磨了一下,8楼的问题基本解决.现存问题时:改变后没有对列表排序

LYbMtaEW.zip (13.97 KB, 下载次数: 275)

[此贴子已经被作者于2004-3-31 17:06:12编辑过]

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