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

fsydw

                         
一、2010年4月15日(附件：技巧167 输入时逐步提示信息.rar)：借鉴《Excel VBA实战技巧精粹》的“输入逐步提示”，将其中二段代码修改为“InStr(.Cells(i, 1).Value, myStr)”。
        实现输入条目名称中的任意字符，生成提示功能。在A列输入“国”、“市”，会提示包括此字符的条目。

二、2010年4月17日(附件：(数组)输入时逐步提示信息.rar )：如果列表内容达千条以上，上面的代码运行速度稍慢。这两天在坛子里学习了几条数组应用，对原代码进行了修改，

        提高了效率。再次奉上。（输入名称中的任意字符，得到提示，用鼠标双击列表中的内容，输入到单元格。可以输入拼音首字母：例如“中华人民共和国”、输入r就会有提示，

        然后双击录入)

三、2010年4月18日（附件：(超强)输入时逐步提示信息.rar）：见下图

       这个可以无限扩展：数量、规格型号、生产厂家、描述等等！只需添加几行代码！采购、仓管、预算、统计有福了！

                  yuanzhuping大师曾赐教一些新功能，在这里：http://club.excelhome.net/viewthread.php?tid=397236&page=1&extra=page%3D1

[ 本帖最后由 fsydw 于 2010-4-24 21:17 编辑 ]

天遥

学习了>>>>>>>>>>>>>>>>>>

fsydw

应用数组，提高代码效率。附件在1楼、第2个。由于对数组的代码应用还不熟练，可能不是最佳的。不过当列表条目达千条时，速度提高很多。

rainhorse

你这个怎么运行不起来呢？
还有如果我把数据表放在另一个工作簿中(在同一个目录下),怎么实现？

fsydw

原帖由 rainhorse 于 2010-4-17 19:07 发表
你这个怎么运行不起来呢？
还有如果我把数据表放在另一个工作簿中(在同一个目录下),怎么实现？

1、选单元格时，鼠标点两次。第一次选单元格、第二次点击出现闪烁的竖杠，再输入字符。
2、代码放在三个地方，模块里、数据表、录入表。另一个工作簿要打开，还要修改代码。

[ 本帖最后由 fsydw 于 2010-4-18 13:31 编辑 ]

fsydw

原帖由 rainhorse 于 2010-4-17 19:07 发表
你这个怎么运行不起来呢？
还有如果我把数据表放在另一个工作簿中(在同一个目录下),怎么实现？

这里有附件！
1、选单元格时，鼠标点两次。第一次选单元格、第二次点击出现闪烁的竖杠，再输入字符。
2、另一个工作簿要打开。

fsydw

大师你好！这个输入提示有新进展，由于对数组的使用还处于初级阶段，请赐予改进代码，来提高效率。谢谢！
另外，如何在列表框中显示表格，来美化界面呢？请大师赐教！（我可以用自定义窗体实现。不过，还有更好的办法吗？效率第一！）

humengqiang

下载学习了

fsydw

报歉！重新上传附件！数据表的一个代码忘改了！
        .Offset(, -1).Value = myStr

fsydw

让文本框变为透明，避免遮挡有内容的单元格。
将文本框属性中的“BackStyle”属性改为：0-fmBackStyleTransparent


[ 本帖最后由 fsydw 于 2010-4-19 14:24 编辑 ]