[已解决]按照模糊查询制作的另一份表格出现错误

流星的承诺 · 发表于 2016-6-8 07:12

本帖最后由流星的承诺于 2016-6-10 21:49 编辑

在表里插入两个控件（ListBox1 TextBox1）后就在编码中模糊输入名称列表里的编码或首拼时出现错误，序号怎么样自动添加，编码输入B列改C列可以给另一份文档吗，我想学习一下怎么样制作这样的表格，看一下，B列和C列的代码有哪些不同，学习了[url=][[/url][url=]窗体控件[/url] [url=]模糊输入的例子（应网友求助答复）[/url]没弄明白怎么改列。

要求在编码下输入模糊查询后，单击鼠标就输入到单元格中，序号也添加。

B列编码输入完成后不下移，和下移的代码有哪些不同。

请大神能不能在不同处的代码文本弄到表格中，让我学习一下。错误处能注解一下。为什么按照您制作好的就没问题，但我自己制作就出现各种不同的错误。

最佳答案

月排行榜 / 总排行榜

zjdh

2016-6-8 09:22

本帖最后由 zjdh 于 2016-6-8 09:36 编辑

模糊输入.rar (113.8 KB, 下载次数: 29)

02761752696 · 发表于 2016-6-8 08:35

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)‘这是工作表单元格单击事件
   下面是判断区域语句：
   If Target.Column = 2 Then '这个Target.Column就是你点击的单元格所在的列=2，就是第二列B列有效
   If Target.Row < 10 Then    '这个Target.Row 就是你点击的单元格所在的行小于10，就是第1到9行有效

老司机带带我 · 发表于 2016-6-8 08:44

本帖最后由老司机带带我于 2016-6-8 08:46 编辑

把Worksheet_SelectionChange事件中的

Arr = Sheets("名称列表").UsedRange

复制代码

这句代码放到TextBOX1_KeyUp事件中，你上面表述的问题就不会出现了，即把Worksheet_SelectionChange事件中的这句代码删掉，然后TextBOX1_KeyUp如下，其实该代码一般不会出问题，只是当代码中断之后Arr被清了缓存，而此时你有没有去选择其他单元格，从而没有触发Worksheet_SelectionChange事件，导致Arr是空值，所以报此错误，其他没发现什么错误！

Private Sub TextBOX1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim I&, J%, t%, myStr$, k&, N$, P$, S$
Dim LG As Boolean, Arr1()
Me.ListBox1.Clear
myStr = UCase(Me.TextBox1.Value)
For I = 1 To Len(myStr)
If Asc(Mid$(myStr, I, 1)) < 0 Then LG = True: Exit For
Next
arr2 = Array("编码", "名称")
k = k + 1
ReDim Arr1(1 To 2, 1 To k)
For I = 1 To 2
Arr1(I, k) = arr2(I - 1)
Next
Arr = Sheets("名称列表").UsedRange
For I = 1 To UBound(Arr)
S = Arr(I, 1) & " " & Arr(I, 2)
N = ""
If LG Then
N = S
Else
N = PINYIN(S)
End If
If InStr(N, myStr) Then
k = k + 1
ReDim Preserve Arr1(1 To 2, 1 To k)
For t = 1 To 2
Arr1(t, k) = Arr(I, t)
Next
End If
Next I
If t = 0 Then Exit Sub
Me.ListBox1.List = Application.Transpose(Arr1)
End Sub

复制代码

zjdh · 发表于 2016-6-8 09:22

本帖最后由 zjdh 于 2016-6-8 09:36 编辑

模糊输入.rar (113.8 KB, 下载次数: 29)

		自动登录	找回密码
密码			注册

[已解决]按照模糊查询制作的另一份表格出现错误

相关帖子