[已解决]这样的下拉菜单能实现吗？

武林长风

不知能否实现这样的下拉菜单：比如在A1单元格选A后 ，弹出A1,A2，A3,A4,A5,A6;再选择其中的一个比如A4，最后在A1单元格显示的是A4。在A1单元格选B后 ，弹出B1,B2,B3,B4,B5,B6;再选择其中的一个比如B6，最后在A1单元格显示的是B6。在A1单元格选C后 ，弹出C1,C2,C3,C4,C5,C6;再选择其中的一个比如C5，最后在A1单元格显示的是C5。 新建文件夹.rar (4.76 KB, 下载次数: 8)

2013-11-29 21:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2013-11-29 22:50

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    If Target.Address = Range("A1").Address And [a1] = "" Then [a1].Validation.Delete
   
3. End Sub
   
4. 
   
5. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
6. Dim i As Integer, str As String
   
7. If Target.Address = Range("A1").Address Then
   
8. '  If [a1] <> "" And Right([a1].Value, 1) > "9" Then  '如果已经选择了的，不需要再次添加数字组合的请用这个哈
   
9.   If [a1] <> "" Then
   
10.     For i = 1 To 6
    
11.       str = str & "," & [a1].Value & i
    
12.     Next
    
13.     With [a1].Validation
    
14.         .Delete
    
15.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Mid(str, 2)
    
16.     End With
    
17.   End If
    
18. End If
    
19. End Sub

复制代码

楼主你看看这个是不是你需要的呢？

跳转到最佳答案楼层

tgydslr

弹出A1,A2，A3,A4,A5,A6是什么意思？在哪里弹出？
另外你说的a1里面选A,是什么意思

武林长风

tgydslr 发表于 2013-11-29 21:11
弹出A1,A2，A3,A4,A5,A6是什么意思？在哪里弹出？
另外你说的a1里面选A,是什么意思

对不起我没说明白，在A1单元格选择A后，显示A1,A2，A3,A4,A5,A6。然后再A1,A2，A3,A4,A5,A6 里选择其中的一个，相当于下拉菜单，不同的是全在A1单元格里显示，不知能否实现？

tgydslr

武林长风 发表于 2013-11-29 21:20
对不起我没说明白，在A1单元格输入A后，显示A1,A2，A3,A4,A5,A6。然后再A1,A2，A3,A4,A5,A6 里选择其中的 ...

你说的是数据有效性吧，A1单元格输入A后，到底在那里（单元格）显示A1,A2，A3,A4,A5,A6？
总之还是很模糊

武林长风

tgydslr 发表于 2013-11-29 21:35
看你的意思好像用条件格式可以实现，显示可以用突出显示可以吧，就是加颜色或边框，具体的你可以拿出个方 ...

我只是在工作中遇到问题想这样，我做不出来，只能表述了，对不起。我的excel方面的问题得到了这里的很多老师的帮忙，十分感谢！！！

tgydslr

做不出来可以把您想实现的愿望说清楚吧

武林长风

tgydslr 发表于 2013-11-29 21:35
你说的是数据有效性吧，A1单元格输入A后，到底在那里（单元格）显示A1,A2，A3,A4,A5,A6？
总之还是很模 ...

A1单元格选择A后仍在A1单元格显示A1-A6。

武林长风

tgydslr 发表于 2013-11-29 21:40
做不出来可以把您想实现的愿望说清楚吧

看一下sheet2

tgydslr

武林长风 发表于 2013-11-29 21:42
A1单元格选择A后仍在A1单元格显示A1-A6。

这个是不可行的，自相矛盾啊
最多可以这样说：输入A，显示A1-A6
这样的话可以通过自动更正来解决，要不是这样的话，感觉就无解了

武林长风

tgydslr 发表于 2013-11-29 21:47
这个是不可行的，自相矛盾啊
最多可以这样说：输入A，显示A1-A6
这样的话可以通过自动更正来解决，要不 ...

输入也行，拜托做个吧。哦，数据有效性？！