输入时逐步提示信息

《输入时逐步提示信息》由会员分享，可在线阅读，更多相关《输入时逐步提示信息（8页珍藏版）》请在装配图网上搜索。

1、技巧1 输入时逐步提示信息用户在录入数据时，比如在工作表中输入产品名称,除了希望有所有产品名称的下拉列表供选择外，更希望能逐步给出提示信息。比如在输入一两个字符后把符合条件的数据筛选出来供选择，最好是中英文、拼音首字母、大小写能混合查询,如输入“LJ”或“六角”后所有以“六角”开头的产品名称都筛选到列表中供选择，这将大大提高录入速度和正确率。为了达到这一目的，首先在工作簿需要有如Error! Reference source not found.所示的基础数据表。图 Error! No text of specified style in document.。Error! Bookmark n

2、ot defined.基础数据表基础数据表中A列保存不重复的产品名称，为了能用中英文、拼音首字母、大小写混合查询,要把产品名称转换成小写的拼音首字母保存在B列.步骤：在VBE窗口单击菜单“插入“模块，在代码窗口写入下面的代码。#00 Publi Funcion LChn（tr As Strng） AVaian#02 On ErroResme Next03 Str = rConv(tr， bNarrw)#00 IAsc（Str） 0 Or Err。Nur= 1004 ThnChi ”#005 Chn =WorsetFnctionVLo(St，吖”，；”八，”b；嚓，c；咑,”d”;鵽，e”；发，

3、”;猤”,”g；”铪,”;”夻”，j；咔”，”k”；垃，l；嘸,m;旀”，n;噢,”;妑”,；七”,”q；囕,r”；仨，”s；”他”，”；”屲,；夕，x；丫”,y；帀，z”,2）#06 nd Functin代码解析:自定义LChin函数，该函数把中文字符转换为拼音首字母。步骤2:在VBE窗口双击Se2表，在代码窗口写入下面的代码。#001 rvateSbWokset_Chane(yVa TrgetAsRange)002 Dimi Anteer03 Dim my As Sting#004 Wit Trt005 If 。Clumn 1 The Exit Sub006 f WorksheeFunci

4、o。Contf（Sht2。Rnge（:A”)， ale） The007 .Value = #008 MsgBo”不能输入重复的产品名称！, 640 xtub01 E If011 For 1T n（Value）012 IfA(Mi$（.alue, i， 1) 255 Or Asc（i$（alue, i， 1) 255Orc（i（.Vau， i, 1） 0 Te#009 Lane = ue010 yS =mSt d(Value，i， 1)011 Else01 mytr =yS & LCae(i$（.Vue, ， )）13 n If#14 Next#5 EndWh#16 Wit het207 For

5、i= To Ran(A656)。End(xlUp)。Row18 f Lnuae= Tru hen019 If eft(。Cls（，1）.Vle,n（yStr） mytrTn#020 MLtBox。Ade .Cels(i，1）V#2 End If022 Else#023 f Let(.Clls(i，2).Value， Len(mySr) myStr Tn#024 MeLitBox1.AddItem 。Cels(， 1）.Value05 nd If#6 EndI#027 ext#0 End With02 End Sub代码解析：文本框的eyUp事件，在文本框输入查询条件时筛选符合条件的数据加载到列

6、表框。第行代码，声明变量Laguag为Booean数据类型，在下面的代码中使用Lnguage的值判断输入的是否为中文。第5行代码，使用ar方法删除列表框所有的列表项,语法如下:bjec。Cler参数objct是必需的，一个有效的对象。注意 如果列表框绑定了数据，Cea方法将会失败。第行到第15行代码,判断文本框输入的是否为中文字符。如果是中文字符，将变量angue赋值为re，并把文本框中的字符赋给变量myStr。如果是英文字符则转换成小写字母后赋变量mStr。第16行到第2行代码,如果变量Lauae的值为True,在基础数据表的A列中使用f函数查找与文本框字符相符的单元格并加载到列表框，否则就

7、在B列查找.步骤5：在设计模式下双击文本框，在代码窗口写入下面的代码。#001 Prvte SubTextBxKeyow（ByVa KeCd As ForsRetnItger,yVal Sift As Integer)2 I Keyode =Ktrn Ten#03 heetLisBox1。Actiate#04 End If5 EndSub代码解析:文本框的KyDown事件，当用户在文本框中输入完成，列表框中已显示所需的内容后按回车键后选择列表框。步骤6:在设计模式下双击列表框,在代码窗口写入下面的代码001 Privae Sub ListBx1_GoFu(）#002 On Errr Resum

8、e xt003 LitBo1.Listnex 04 End Sub代码解析：列表框的GtFous事件,当用户在文本框中输入完成按回车键后，选定列表框中第个条目,方便用户进行下一步操作。001 Prvte Sub ListBx1_eyown（yVKyCode As MSFos.eturnge，ByVa Sf s nteer)002 If KeyCoe =vbKyReturn hen00 ctiveCll.alue = Listox.Vue004 M。LtBx1。Clea005 Me。extBox1 ”00 Me。LstBo1。Vsi False007 M。extBox。Visil = False

9、008 End I09 nd Sub代码解析:列表框的Kon事件，当用户在列表框中按下回车后将列表框选中的条目写入到活动工作表的单元格中，同时清空文本框和列表框内容后隐藏,准备下一次录入。#0 Privat Sub ListBx1_Dblc（yVl ncel As MSForm。eturnolen)00 Aciveell.Vaue=ListBox。alu003 MeListBox1。Cear#04 e。TextBx #0 e。istox.sible= Fse06 Me.TetBox1.Vsibl =Fale7End Sb代码解析：列表框的blClik事件,当用户双击列表框的列表项时,把列表框数据赋给活动单元格，同时清空文本框和列表框内容后隐藏，准备下一次录入。以上设置完成后,在“录入”工作表的A列选定单元格后,显示一个文本框和一个列表框，在文本框中输入查询条件后列表框显示符合查询条件的所有内容供用户选择,如Error! Reference source not found.所示。图 1Error! Bookmark not defined.输入时逐步提示信息文中如有不足，请您指教！8 / 8