[已解决]求助模糊查询

kgblin

那个高手能帮我做下这附件里的东西。
通过线路查途经范围做好了
现在想在加个通过途经范围查路线

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-23 07:14

把窗体2的控件复制到窗体1，代码也一并复制过。
TEXTCHANEG事件代码略改一下就成了。
把If InStr(ar(i, 1), TextBox1.Text) > 0 Then
改为
If InStr(ar(i, 3), TextBox1.Text) > 0 Then

跳转到最佳答案楼层

hwc2ycy

你能查出线路来，范围就是一个道理。

hwc2ycy

工作表事件改下

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Select Case Target.Address(False, False)
   
3.         Case "C2"
   
4.             UserForm2.Show
   
5.         Case "M2"
   
6.             UserForm1.Show
   
7.     End Select
   
8. End Sub

复制代码

hwc2ycy

把窗体2的控件复制到窗体1，代码也一并复制过。
TEXTCHANEG事件代码略改一下就成了。
把If InStr(ar(i, 1), TextBox1.Text) > 0 Then
改为
If InStr(ar(i, 3), TextBox1.Text) > 0 Then

hwc2ycy

模糊查询.rar (18.87 KB, 下载次数: 11)

2013-7-23 08:49 上传

点击文件名下载附件

kgblin

谢谢！

kgblin

hwc2ycy 发表于 2013-7-23 08:49

谢谢解答