合并单元格联想输入代码补充

zhangv712

如图  合并单元格内联想输入代码该如何修正 。。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Me.TextBox1.Text = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
    Application.EnableEvents = True
    If Target.Count <> 1 Then Exit Sub
    Dim rng As Range
    Dim I As Long
    For Each rng In Range("a1:e2")  '设置拼音检索输入功能的使用区域
        If rng.Address = Target.Address Then
        Dim c As Range, r&
        Set c = Target
        With Me.TextBox1
            .Top = c.Top
            .Left = c.Left
            .Width = c.Width
            .Height = c.Height
            Me.ListBox1.Top = .Top
            Me.ListBox1.Left = .Left + .Width
            .Text = c.Text
            .SelStart = 0
            .SelLength = Len(.Text)
            .Activate
            .Visible = True
        End With
        Exit For

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Me.TextBox1.Text = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
    Application.EnableEvents = True
    'If Target.Count <> 1 Then Exit Sub
    Dim rng As Range
    Dim I As Long
    For Each rng In Range("a1:e2")  '设置拼音检索输入功能的使用区域
        'If rng.Address = Target.Address Then
        Dim c As Range, r&
        Set c = Target
        With Me.TextBox1
            .Top = c.Top
            .Left = c.Left
            .Width = c.Width
            .Height = c.Height
            Me.ListBox1.Top = .Top
            Me.ListBox1.Left = .Left + .Width
            '.Text = c.Text
            .SelStart = 0
            .SelLength = Len(.Text)
            .Activate
            .Visible = True
        End With
        Exit For
        'End If
    Next
End Sub




颜色处是注释了的。
加判断通常是为防错所作的限制，取消判断，也就取消防错。
如果代码不是不多、规范、好读，这时再改就是一种灾难了（只是个人感受）

zhangv712

{:3_41:}

zhangv712

{:9_309:}

zhangv712

爱疯 发表于 2019-8-26 15:03
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
...

{:3_50:}感谢版主不吝赐教  ！！！！{:9_311:}    在下受益良多！！