最新进展：任意字符的输入逐步提示（超强功能）

471472156 · 发表于 2020-6-18 15:59

zjdh 发表于 2020-6-18 15:24
是的有些文字转出来的拼音首字母不对，例：喉、管、箍....，那是由于原来是在XP系统，到了WIN7由于字库原 ...

那，其他的代码，能否有劳您抽点时间，指教一下吗？
真的是太仰慕这个了

zjdh · 发表于 2020-6-18 20:21

对宏作了点注释

往来核算.rar (45.8 KB, 下载次数: 67)

471472156 · 发表于 2020-6-19 09:46

zjdh 发表于 2020-6-18 20:21
对宏作了点注释

感谢大哥，先学习、应用。

471472156 · 发表于 2020-6-19 14:49

zjdh 发表于 2020-6-18 20:21
对宏作了点注释

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
R = Selection.Row
If Selection.Column = 15 Then
      Cells(R, "G") = ListBox1.List(ListBox1.ListIndex, 0)
      Cells(R, "N") = ListBox1.List(ListBox1.ListIndex, 1)
      Cells(R, "O") = ListBox1.List(ListBox1.ListIndex, 2)
大哥，请问这后面的0，1，2，分别是代表什么意思，谢谢您。

471472156 · 发表于 2020-6-19 17:39

zjdh 发表于 2020-6-18 20:21
对宏作了点注释

大哥，我已经全部搞明白了，非常感谢

471472156 · 发表于 2020-6-23 08:53

zjdh 发表于 2020-6-18 20:21
对宏作了点注释

大哥，还是我，又来了，
有两个细节，不知道通知麻烦您完善一下？
1、录入工作表，没有“撒回”指令。
2、录入时，针对列表框的提示信息，能否直接用键盘选择？如何修改代码？
谢谢您。

zjdh · 发表于 2020-6-23 09:46

本帖最后由 zjdh 于 2020-6-23 09:52 编辑

你要如何“撤回”？你只要重新输入新数据就覆盖了，或选择该行多个单元删除也可以啊。

zjdh · 发表于 2020-6-23 10:36

作了点修改，你试试：

往来核算2.rar (48.66 KB, 下载次数: 63)

sky537524950 · 发表于 2020-6-28 19:29

学习了，感谢，今天在网上看到一个类似的视频，跟着学半天，最后没达到效果，这个非常完美，我刚开始修改成自个用的，感谢

liyuexian11 · 发表于 2020-9-29 20:13

本帖最后由 liyuexian11 于 2020-9-29 20:15 编辑

请问，我在第二个sheet里，也想有任意字符的输入提示功能，我把sheet1的代码复制了一遍为什么不行了，我在新的sheet2里，新建了一个窗体listbox1还有TextBox，但是还是不起作用，请大神帮忙看看

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

[原创] 最新进展：任意字符的输入逐步提示（超强功能）

浏览过的版块