输入时逐步提示信息

《输入时逐步提示信息》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、技巧1输入时逐步提示信息用户在录入数据时，比如在工作表中输入产品名称，除了希望有所有产品名称的下拉列表供选择外，更希望能逐步给出提示信息。比如在输入一两个字符后把符合条件的数据筛选出来供选择，最好是中英文、拼音首字母、大小写能混合查询，如输入“LJ”或“六角”后所有以“六角”开头的产品名称都筛选到列表中供选择，这将大大提高录入速度和正确率。为了达到这一目的，首先在工作簿需要有如图11所示的基础数据表。图11基础数据表基础数据表中A列保存不重复的产品名称，为了能用中英文、拼音首字母、大小写混合查询，要把产品名称转换成

2、小写的拼音首字母保存在B列。步骤1：在VBE窗口单击菜单“插入”→“模块”，在代码窗口写入下面的代码。#001PublicFunctionLChin(StrAsString)AsVariant#002OnErrorResumeNext#003Str=StrConv(Str,vbNarrow)#004IfAsc(Str)>0OrErr.Number=1004ThenLChin=""#005LChin=WorksheetFunction.VLookup(Str,[{"吖","a";"八","b";"嚓","c";"咑","

3、d";"鵽","e";"发","f";"猤","g";"铪","h";"夻","j";"咔","k";"垃","l";"嘸","m";"旀","n";"噢","o";"妑","p";"七","q";"囕","r";"仨","s";"他","t";"屲","w";"夕","x";"丫","y";"帀","z"}],2)#006EndFunction代码解析：自定义LChin函数，该函数把中文字符转换为拼音首字母。步骤2：在VBE窗口双击Sheet2表，在代码窗口写入下面的代码。#001PrivateSubWorkshee

4、t_Change(ByValTargetAsRange)#002DimiAsInteger#003DimmyStrAsString#004WithTarget#005If.Column<>1Or.Count>1ThenExitSub#006IfWorksheetFunction.CountIf(Sheet2.Range("A:A"),.Value)>1Then#007.Value=""#008MsgBox"不能输入重复的产品名称!",64#009ExitSub#010EndIf#011Fori=1ToLen(.Valu

5、e)#012IfAsc(Mid$(.Value,i,1))>255OrAsc(Mid$(.Value,i,1))<0Then#013myStr=myStr&LChin(Mid$(.Value,i,1))#014Else#015myStr=myStr&LCase(Mid$(.Value,i,1))#016EndIf#017Next#018.Offset(,1).Value=myStr#019EndWith#020EndSub代码解析：工作表的Change事件，当A列输入不重复的产品名称后，转换成小写的字母保存在B列的单元

6、格中，便于以后的查询。第11行代码，设置事件触发的条件，只有在A列输入产品名称后才触发Change事件。第12行到第16行代码，使用工作表CountIf函数检查输入的产品名称是否重复。第17行到第23行代码，字符的转换过程。首先检查是否是中文字符，如果是使用自定义函数LChin转换成小写拼音首字母。如果是大写的英文字母使用LCase函数转换成小写字母。第24行代码，将转换后的字符保存到B列。步骤3：基础数据表完成后，在工作表“录入表”中添加一个文本框控件和一个列表框控件。在VBE窗口中双击Sheet1表，写入下面的代码

7、。#001PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)#002DimiAsInteger#003IfTarget.Count=1Then#004IfTarget.Column=1AndTarget.Row>1Then#005WithMe.TextBox1#006.Visible=True#007.Top=Target.Top#008.Left=Target.Left#009.Width=Target.Width#010.Height=Target.Hei

8、ght#011.Activate#012EndWith#013WithMe.ListBox1#014.Visible=True#015.Top=Target.Top#016.Left=Target.Left+Target.Width#017.Width=Target.Width#018.Height=Target.Height*5