原创--输入提示自动补全,简码输入,首字母拼音输入

abcd7777

非常感谢！

blanksoul12

想請教一下,我遇到的問題是如果轉用中文輸入法時,會多一個輸入法窗口的,如果打對了字沒問題,但如果這時按 esc 便會在 keydown 那兒出 error, 應該是該輸入法窗口令到 listbox 失去焦點的問題,請問有什麼解決方法?

YZC51

谢谢老师分享！学习啦

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then GoTo 100 ': Exit Sub
If Target.Column <> 3 Or Target.Row < 2 Then GoTo 100 ': Exit Sub
With Me.ListBox1
    .Visible = True
    .Top = Target(2, 2).Top
    .Left = Target.Left + Target.Width
    .Width = Target.Width * 5 '宽度
    .Height = Target.Height * 8 '高度
End With
With Me.TextBox1
    .Visible = True
    .Top = Target.Top + 1
    .Left = Target.Left + 1
    .Width = Target.Width - 2
    .Height = Target.Height - 1 ' + 10
    .Activate
End With
Exit Sub
100:
Me.ListBox1.Clear
Me.TextBox1 = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim i&, Arr, dm$, n&, j&, Arr1()
    Dim Language As Boolean
    Dim myStr As String
    With Sheets("Sheet2")
        Arr = .[a1].CurrentRegion
    End With

    With Me.TextBox1
        If Me.TextBox1 <> "" Then '当字符为英文大写时拼音输入，否则为中文输入
            If Asc(Mid$(.Value, 1)) < 91 Then .IMEMode = 0 Else .IMEMode = 12
        End If
        For i = 1 To Len(.Value)
            If Asc(Mid$(.Value, i, 1)) > 255 Or Asc(Mid$(.Value, i, 1)) < 0 Then
                Language = True
                myStr = myStr & Mid$(.Value, i, 1)
            Else
                myStr = myStr & LCase(Mid$(.Value, i, 1))
            End If
        Next
    End With
    n = 1
    Me.ListBox1.Clear
    If myStr <> "" Then
        For i = 2 To UBound(Arr)
            If Language <> True Then
                dm = py(Arr(i, 1))
                If InStr("|" & dm, "|" & myStr) Then
                    j = j + 1
                    ReDim Preserve Arr1(1 To j)
                    For jj = 1 To UBound(Arr, 2)
                        Arr1(j) = Arr1(j) & Arr(i, jj) & vbTab
                    Next
                End If
            Else
                If InStr("|" & Arr(i, 1), "|" & myStr) > 0 Then
                    j = j + 1
                    ReDim Preserve Arr1(1 To j)
                    For jj = 1 To UBound(Arr, 2)
                        Arr1(j) = Arr1(j) & Arr(i, jj) & vbTab
                    Next
                End If
            End If
        Next i

    Else
        For i = 2 To UBound(Arr)
            j = i - 1
            ReDim Preserve Arr1(1 To j)
            For jj = 1 To UBound(Arr, 2)
                Arr1(j) = Arr1(j) & Arr(i, jj) & vbTab
            Next
        Next i
    End If
    With ListBox1
        .Clear
        If j > 0 Then .List = Arr1
    End With
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Arr = Split(ListBox1, vbTab) '***
    TextBox1.TopLeftCell.Resize(1, UBound(Arr)) = Arr '***
    Me.ListBox1.Clear
    Me.TextBox1 = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
'    ActiveCell.Offset(0,1).Select
End Sub

YZC51

谢谢老师分享！学习下。
中文首字母联想自适应多层级菜单.rar (167.11 KB, 下载次数: 111)

2019-12-15 10:44 上传

点击文件名下载附件

w550s

你好大神，为什么我导入表后。公式出错呢？

qdzsd

如果单元格是合并的，这个方法就不能用了，请问楼主应该怎么解决？

wzgcn

非常感谢你的分享。

zylz9941

百度不到去谷歌 发表于 2014-6-24 15:00
好机器可能没有感觉
老机器的话 怕是会有点点慢
稍微优化了一下 把ado对象作为全局变量了 这样应该可 ...

很实用的工具呀

chenzl00

请问，怎么删除单元格内容呢？

zhonglet

这个不方便啊，只能是逐字往后提示，有没有办法做成任意字的？
比如
李小龙
肖文武
当输入x的时候这两名字都会跳出来