汉字转拼音首字的函数及其灵活运用

pingdingge · 发表于 2010-3-15 12:42

从头到尾看完了，请教一下，我想在查询结果只有一个的时候不用鼠标点击而自动输入，请问应该怎么实现呢？谢谢

alzeng · 发表于 2010-3-15 13:49

原帖由 pingdingge 于 2010-3-15 12:42 发表
从头到尾看完了，请教一下，我想在查询结果只有一个的时候不用鼠标点击而自动输入，请问应该怎么实现呢？谢谢

输入拼音代码再输入01 。

pingdingge · 发表于 2010-3-15 15:25

谢谢，再请问一下，如果我想输入的名字不在名册里面，能否直接输入名字（汉字）？

alzeng · 发表于 2010-3-15 15:39

原帖由 pingdingge 于 2010-3-15 15:25 发表
谢谢，再请问一下，如果我想输入的名字不在名册里面，能否直接输入名字（汉字）？

事先没有做这个预估，此文件不支持。

pingdingge · 发表于 2010-3-15 18:17

原帖由 alzeng 于 2010-3-15 15:39 发表

事先没有做这个预估，此文件不支持。

终于让我明白了那么一点，这个功能是实现了，不知道对不对，请指教。
思路是当没有找到的时候下面的列表框就显示上面文本框的内容，就可以一样的选择了。
加了红色代码那几排。
For Each rng In Sh.Range("C2", Sh.[C65536].End(3))
      If UCase(PY(rng)) Like UCase("*" & str & "*") Then
         Dic(i) = rng.Offset(, 0)
         ListBox1.AddItem Format(i, "00.") & rng.Offset(, 0)
         i = i + 1
      Else
         Dic(i) = TextBox1
         ListBox1.AddItem Format(i, "00.") & TextBox1
         Exit For
      End If
Next

pingdingge · 发表于 2010-3-15 18:25

还有一个问题，当刚打开文件的时候，出来的列表框没有内容，要查询了才有。
请问可不可以让它刚打开文件的时候出来的列表框就有内容呢？

pyc77125539 · 发表于 2010-3-15 21:31

看看先~~~

pingdingge · 发表于 2010-3-15 21:52

已经搞定了，刚打开文件的时候列表框即有内容，只是觉得好像代码太复杂了。
在Worksheet_SelectionChange下加了些代码
Dim rng As Range, Sh As Worksheet
Dim str$, i As Byte
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
str = TextBox1
Set Dic = CreateObject("Scripting.Dictionary")
Set Sh = Sheets("价格")
i = 1
ListBox1.Clear
If ListBox1.Text = "" Then
      For Each rng In Sh.Range("C2", Sh.[C65536].End(3))
         Dic(i) = rng.Offset(, 0)
         ListBox1.AddItem Format(i, "00.") & rng.Offset(, 0)
         i = i + 1
      Next
End If

输入的名字不在名册里面，则直接输入名字的代码修改了一下。
上面的代码是将输入的查询码一直加入到列表框的最后一列。
加入当没有找到的时候才加入列表框，即I＝1时。
For Each rng In Sh.Range("C2", Sh.[C65536].End(3))
      If UCase(PY(rng)) Like UCase("*" & str & "*") Then
         Dic(i) = rng.Offset(, 0)
         ListBox1.AddItem Format(i, "00.") & rng.Offset(, 0)
         i = i + 1
      Elseif i=1 then
         Dic(i) = TextBox1
         ListBox1.AddItem Format(i, "00.") & TextBox1
         Exit For
      End If
Next

我春节之后才开始学习VBA，请各位指教，我希望代码能更短，谢谢。

[ 本帖最后由 pingdingge 于 2010-3-15 21:56 编辑 ]

jimmy0766 · 发表于 2010-8-25 14:46

感觉感谢，正要使用类似功能。下了谢了。

hyjius · 发表于 2010-9-6 00:25

名册里最多只能有255，能不能再多点？

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

[原创] 汉字转拼音首字的函数及其灵活运用

名册里最多只能有255，能不能再多点？