[已解决]边输入边逐步自动提示

qiurongzhuang · 发表于 2015-7-6 08:26

要求对象出错，不知道什么意思？

zjdh · 发表于 2015-7-6 09:08

辅料.rar (103.63 KB, 下载次数: 71)

isqdpjy · 发表于 2015-8-7 18:40

zjdh 发表于 2014-6-20 14:19
修改这句
If Target.Column = 10 And Target.Row > 1 And Target.Cells.Count = 1 Then
和这句

您好！最近要帮自己做个入库表，在摸索vba，看了您的代码获益匪浅，想进一步请教下：
目前的这个似乎必须在sheet1的词库里选择？我如果确实要输入一个词库以外的词（新增货品的情况）就好像不行。请问有什么解决办法吗？非常感谢！

zjdh · 发表于 2015-8-7 19:16

说明你还是没看懂！
修改以下语句：（比原来简化了一点）
Private Sub TextBox1_Change()
Dim I&, Arr, d
Dim myStr As String
Set d = CreateObject("Scripting.Dictionary")
Me.ListBox1.Clear
Arr = Sheet1.[B6].CurrentRegion
For I = 1 To UBound(Arr)
      If InStr(Arr(I, 2), TextBox1.Value) Then d(Arr(I, 2)) = ""
Next
With ListBox1
      .Visible = True
      .Top = Selection.Offset(1).Top
      .Left = Selection.Offset(0, 0.8).Left
      .Width = Selection.Width * 2
      .Height = Selection.Height * 5
End With
Me.ListBox1.List = d.KEYS
End Sub
其中红色语句就是提取数据区的语句，可修改成任何工作表。

zjdh · 发表于 2015-8-7 19:23

在sheet1的词库里选择，是求助者提供的文件规定！

cczjw · 发表于 2017-3-26 23:25

zjdh 发表于 2014-6-20 14:16
要修改这句
With ListBox1
.Visible = True

请教老师，当输入的条目在数据字典中没有时，我需要将该条目写入单元格但不写入字典。请问该怎样改？谢谢！

zjdh · 发表于 2017-3-27 07:56

cczjw 发表于 2017-3-26 23:25
请教老师，当输入的条目在数据字典中没有时，我需要将该条目写入单元格但不写入字典。请问该怎样改？谢 ...

不用修改，输完后打回车即可。

cczjw · 发表于 2017-3-27 10:06

不行呢。在输入状态回车没有反应。

cczjw · 发表于 2017-3-27 11:21

本帖最后由 cczjw 于 2017-3-27 13:40 编辑

zjdh 发表于 2017-3-27 07:56
不用修改，输完后打回车即可。

将您的模板（太棒了！）根据我的需要实例化后圆满解决了我的需求（见附件,实例化功能：1、输入在当前单元格进行；2、进入输入状态时初始值就是当前单元格值；3、选择的输入值存入当前单元格值
如果再解决最后2个问题就很理想了：
1、输入的值若词库中没有对应值，则将该值存入当前单元格，但不存入词库；
2、实际工作中对欲输入的单元往往还会采用粘贴的方式进行，但现有模板，只粘贴一个单元时不能实现（粘贴2个以上单元没问题：先下拉框选再粘贴），请教怎样改可以实现？

逐步提示窗口v.zip (53.33 KB, 下载次数: 48)

zjdh · 发表于 2017-3-27 13:56

cczjw 发表于 2017-3-27 11:21
将您的模板（太棒了！）根据我的需要实例化后圆满解决了我的需求（见附件,实例化功能：1、输入在当前单元 ...

逐步提示输入.rar (51.58 KB, 下载次数: 197)

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

[已解决]边输入边逐步自动提示

评分