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

pingdingge

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

alzeng

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

输入拼音代码再输入01 。

pingdingge

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

alzeng

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

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

pingdingge

原帖由 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

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

pyc77125539

看看先~~~

pingdingge

已经搞定了，刚打开文件的时候列表框即有内容，只是觉得好像代码太复杂了。
在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

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

hyjius

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