求助!有点难度

ytxxj

希望功能:
1)当 客户栏输入 A时 会提示以A开头的客户有那些,可以选择
   例:A开头的客户有A-F 和ADG  当输入A时就会提示选择

2)型号
   当客户为A-F时 型号档的下拉条中只显示A-F客户的产品型号
   当客户为B-A时 型号档的下拉条中只显示B-A客户的产品型号
客户及型号设定请参考表2

拜托各位大侠指点...

欢欢

这个我好像做过 你论坛找找 论坛太多文章了 你自己找一下  我回答过的

ytxxj

我找了好多遍也没发现有类似问题，可能是找的方法不对，拜托指教！！！

pureshadow

抄的一段代码，给你参考一下
显示窗体       
        sub show()
        UserForm1.Show
        End Sub
设置       
        Private Sub ComboBox1_Change()
            On Error Resume Next
            Dim xx()
            Dim zz(0)
            ww = ComboBox1.Value
            yy = Application.CountIf(Columns(1), ww & "*")
            If yy = 0 Then ComboBox1.List() = zz
            ReDim xx(yy - 1)
            k = -1
            For i = 1 To Sheets("sheet1").[a65536].End(xlUp).Row
                If Cells(i, 1).Value Like ww & "*" Then
                    k = k + 1
                    xx(k) = Cells(i, 1).Value
                End If
            Next i
            ComboBox1.List = xx
            ComboBox1.DropDown
        End Sub

ytxxj

看来需要编程了,能不能在基本设置里加上公式或函数就可以简单的做出来？不在太麻烦的？