[原创]逐步提示的输入(2006.1.7更新，增加注释)

CHUNZAO1

我指的是用了我改的VBA速度很慢了。

CHUNZAO1

up

rylane

自我反省： 下面一段代码是原程序中用于提取汉字的拼音首字母的，从OFFICE自带的ACCESS数据库实例VBA代码原文引用的。呵呵，现在才发现，有些字，它不认识？比如，有些汉字它无法判断：瑜，昊等。是在最近做一个新文件时才发现，解决方法，还是只能倒入汉字拼音表，无法偷懒，[em06]

Function PinYin(Tstr As String) As String Dim I As Long

I = Asc(Tstr)

If I >= Asc("啊") And I < Asc("芭") Then PinYin = "a"

If I >= Asc("芭") And I < Asc("擦") Then PinYin = "b"

If I >= Asc("擦") And I < Asc("搭") Then PinYin = "c"

If I >= Asc("搭") And I < Asc("蛾") Then PinYin = "d"

If I >= Asc("蛾") And I < Asc("发") Then PinYin = "e"

If I >= Asc("发") And I < Asc("噶") Then PinYin = "f"。。。。

Bellen

女高手,佩服.

figfig

元格的KeyUp事件，可不知道它的类似于KeyUp事件的代码是什

application.onkey

来生缘

哈哈，好东西呀，楼主厉害

最近锄地的人比较多呀

shuiyuan

确实不错，收藏。

谢谢！

figfig

2.数据表中Worksheet_Change事件出错

Application.EnableEvents = False

51082481

经典 我收藏 加精！

51082481

有个建议：

能不能直接用单元格的下拉表替换掉提示文本框。因为EXCEL单元格具有自动输入检索识别的功能 。可能这样更好点，不影响屏幕外观。