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

tgydslr

哦，您这个是要做二级下拉菜单呀
也只能是这能这样啊：a1里输入A,b1里可以选a1，a2……a6，a1里输入b，b1里可以选b1，b2……b6
……
是这意思吗

武林长风

tgydslr 发表于 2013-11-29 21:52
哦，您这个是要做二级下拉菜单呀
也只能是这能这样啊：a1里输入A,b1里可以选a1，a2……a6，a1里输入b，b1里 ...

只在A列显示不想再B列的单元格显示。

tgydslr

你是说，a1输入A，然后在a1下面的单元格分别显示a1-a6吧,然后选a4，在a1里显示a4，对吧?这样的话可以实现，但是需要代码，就是vba，但是俺不会，要是这样还不是的话，你找个火星版的office吧，或许可以实现

tgydslr

武林长风 发表于 2013-11-29 21:50
输入也行，拜托做个吧。哦，数据有效性？！

自动更正可不是数据有效性，意思是输入A,显示B,输入B显示C……
工具---自动更正选项---打开后就看到了很好操作。

xdragon

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

复制代码

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