如何让输入过数据的单元格自动保留相应数目的数据并形成下拉菜单供选择？

honggexjq · 发表于 2010-11-1 17:48

到底是顺延还是覆盖，我做的是覆盖，如果按你的意思是要最后输入的20条记录那么应该是覆盖

寒舍痴人 · 发表于 2010-11-1 18:03

我要的是往后自然顺延，而不是覆盖。就是数据往下撵的意思。

寒舍痴人 · 发表于 2010-11-1 18:04

就是每重新输入一个数据后，最后面那个数自然消失。

[ 本帖最后由寒舍痴人于 2010-11-1 18:08 编辑 ]

honggexjq · 发表于 2010-11-1 19:21

也就是说新进来的数据总在G1是吗？

寒舍痴人 · 发表于 2010-11-1 19:59

对，就是把新输入的总是保留在G1，其他的往后撵，该消失的就自然消失。

[ 本帖最后由寒舍痴人于 2010-11-1 20:01 编辑 ]

honggexjq · 发表于 2010-11-1 20:08

那更简单了

寒舍痴人 · 发表于 2010-11-1 20:17

还有一问，就是，出现输入的数据有相同时只保留一个，请帮考虑。
另外，请帮我把代码直接写出来吧，进去找我不大会弄。

honggexjq · 发表于 2010-11-1 20:47

就是说如果输入的是重复值那么就不顺移是吗

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A2" Then Exit Sub
If Not [g1:z1].Find(Target, , , 1) Is Nothing Then Exit Sub
Dim aa
Application.EnableEvents = False
aa = [g1:y1]
[h1:z1] = aa
[g1] = [a2]
Application.EnableEvents = True
End Sub

复制代码

寒舍痴人 · 发表于 2010-11-1 20:53

意思是如果重复了，就只保存一个数据，不必要保存两个。
还有，就是还要在A2单元格引用G1至Z1的数据并生成下拉菜单，要在A2重新输入数据也可以，要在A2的下拉菜单里面选择也可以，这样更好。
谢谢你了，热心人，没有人理睬我，就你肯帮忙，谢谢谢谢。

[ 本帖最后由寒舍痴人于 2010-11-1 21:14 编辑 ]

honggexjq · 发表于 2010-11-1 21:14

呵呵，我只能做成这样了
热心人还是很多的，只是这个要用到VBA，如果不满意我的答案你可以去VBA重开一个帖，会有很多人帮你的

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

[转帖] 如何让输入过数据的单元格自动保留相应数目的数据并形成下拉菜单供选择？

回复 11楼 honggexjq 的帖子

回复 11楼 honggexjq 的帖子

回复 14楼 honggexjq 的帖子

回复 16楼 honggexjq 的帖子

回复 18楼 honggexjq 的帖子