VBA快捷联想模糊输入——单一单元格内多词条是否可行？

jave000 · 发表于 2022-3-30 12:01

本帖最后由 jave000 于 2022-3-30 12:28 编辑

VBA联想输入.zip (23.99 KB, 下载次数: 13)
附件应该来自论坛或QQ群文件，我忘了来源。
附件如图，但我现在想在一个单元格内输入多个名称，用“/”区分，是否能够实现？

实际想要的效果如下，这个区分符号最好无所谓是啥，但肯定会有也不是空格，词条包括英文姓名。

x-xx-xx · 发表于 2022-3-30 12:39

不就是多个词条吗，没啥区别，单个词条的复数罢了

蓝桥玄霜 · 发表于 2022-3-30 13:44

在选择变化事件中的with me.listbox1中加入
.ListStyle = 1
.MultiSelect = 1

jave000 · 发表于 2022-3-30 15:38

蓝桥玄霜发表于 2022-3-30 13:44
在选择变化事件中的with me.listbox1中加入
.ListStyle = 1
.MultiSele ...

感谢版主，
我的原意是输入缩略词，得到具体词，然后手动或自动加"/"，然后继续输入下一个。
原始版本就是输入缩略词，甚至不用输入全部的缩略词，回车就获得具体词了。
现在这个代码貌似不需要原来的联想输入了，而是复选输入，相当于数据验证的列表。
我试了一下，现在可以多选直接生成结果了，只是下拉框是固定高度能否改成自动调整高度？
我输入自定义缩写词无法生成对应的名称，回车不行，右侧选择该单项也点不了，显示BUG：ActiveCell.Value = Left(ss, Len(ss) - 1)。
或者我直接输入具体名称，回车也不行，显示BUG：ListBox1.ListIndex = 0。

lkqsmxw · 发表于 2022-3-30 16:20

ActiveCell.Value = ListBox1.Value
改为：
ActiveCell.Value = ActiveCell.Value & "/" & ListBox1.Value

jave000 · 发表于 2022-3-30 17:07

lkqsmxw 发表于 2022-3-30 16:20
ActiveCell.Value = ListBox1.Value
改为：
ActiveCell.Value = ActiveCell.Value & "/" & ListBox1.Valu ...

试了下不行，BUG: ListBox1.ListIndex = 0

lkqsmxw · 发表于 2022-3-31 08:45

jave000 发表于 2022-3-30 17:07
试了下不行，BUG: ListBox1.ListIndex = 0

KKKKKKKKKKKKKKKKKKKKK

jave000 · 发表于 2022-4-3 22:52

蓝桥玄霜发表于 2022-3-30 13:44
在选择变化事件中的with me.listbox1中加入
.ListStyle = 1
.MultiSele ...

请问版主，输出结果，能否支持再次编辑？当前可以再次清零复选，但如果我只是修改其中一个人名，或者增删一个人名，只是想在复选中修改打勾。

jave000 · 发表于 2022-4-3 22:55

本帖最后由 jave000 于 2022-4-3 22:59 编辑

lkqsmxw 发表于 2022-3-31 08:45
KKKKKKKKKKKKKKKKKKKKK

每次只能输出单个，必须要点一下其他单元格，再点回来，才能继续选择下一个，每次下一个都要如此。以及快捷键无用了。功能有了，用不方便啊，谢谢

jave000 · 发表于 2024-10-18 09:26

本帖最后由 jave000 于 2024-10-18 10:10 编辑

还是主题帖的附件，新的问题，与主题无关，按原始附件内容，我发现同一个单元格内，如果再次输入新的内容，就不会触发联想，得再输入一次又有了，请问代码哪里可以调整？另外再次输入时，能否保证默认全选单元格内容，方便直接编辑修改。

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

[求助] VBA快捷联想模糊输入——单一单元格内多词条是否可行？