可在下拉式清单中增加清单的内容

p123456789 · 发表于 2003-12-25 16:34

X92ebeAT.rar (17.84 KB, 下载次数: 1368)

gonghg · 发表于 2004-1-10 21:42

好，谢谢，学习。

月黑风高 · 发表于 2004-1-30 23:42

不错

yanjun999 · 发表于 2004-2-3 22:38

是如何实现的呢？请教！

miken · 发表于 2004-2-8 23:27

好，谢谢，学习。

p123456789 · 发表于 2004-3-19 14:24

实际上是通过宏监视用户的操作来实现程序如下: Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewEntry As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub If Not Intersect(Target, Range("A1:A3000")) Is Nothing Then
NewEntry = ""
NewEntry = Target
If WorksheetFunction.CountIf(Sheet1.Range("Fruit"), NewEntry) = 0 Then
Sheet1.Range("Fruit").End(xlDown).Offset(1, 0) = NewEntry
Sheet1.Range("Fruit").Resize(Sheet1.Range("Fruit").Rows.Count + 1, 1).Name = "Fruit"
End If
End If End Sub

xing18b · 发表于 2004-3-25 13:01

WELL

852sxy · 发表于 2004-4-4 08:05

另外我要引用别的表的数据怎么办? 比如,设计好一张表,数据存在另一张表上,在姓名上做一个下拉菜单,怎么让它直接引用数据表的姓名列?

yujianhui · 发表于 2004-5-9 11:35

请教如何做一个下拉菜单?

yujianhui · 发表于 2004-5-9 11:38

如何在EXECL中做一个一拉菜单？

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

[VBA程序开发] 可在下拉式清单中增加清单的内容

不明白,可以讲讲吗?