Office中国论坛/Access中国论坛

标题: 求助!有点难度 [打印本页]

作者: ytxxj 时间: 2008-11-12 20:27
标题: 求助!有点难度
希望功能:
1)当客户栏输入 A时会提示以A开头的客户有那些,可以选择
例:A开头的客户有A-F 和ADG 当输入A时就会提示选择

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

拜托各位大侠指点...

作者: 欢欢 时间: 2008-11-12 20:33
这个我好像做过你论坛找找论坛太多文章了你自己找一下我回答过的

作者: ytxxj 时间: 2008-11-12 20:57
我找了好多遍也没发现有类似问题，可能是找的方法不对，拜托指教！！！

作者: pureshadow 时间: 2008-11-12 22:05
抄的一段代码，给你参考一下
显示窗体
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 时间: 2008-11-13 07:57
看来需要编程了,能不能在基本设置里加上公式或函数就可以简单的做出来？不在太麻烦的？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)