Соответствующая часть строки из выпадающего списка - PullRequest
Новая
       24

Соответствующая часть строки из выпадающего списка

0 голосов
/ 15 февраля 2019

В настоящее время у меня есть некоторый код, который запускается в worksheet_selectionchange для сопоставления того, что пользователь вводит в список, и он отлично работает.

Я хотел бы, однако, чтобы пользователь мог сопоставлять отдельные слова в строке так,что если бы они пытались сопоставить «Мой пример» и начали набирать «examp ...», то это привело бы к совпадению.Возможно ли это?

Спасибо! 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr

        Set xWs = Application.ActiveSheet
        On Error Resume Next
        Set xCombox = xWs.OLEObjects("TempCombo")
        With xCombox
            .ListFillRange = ""
            .LinkedCell = ""
            .Visible = False
        End With
        If Target.Validation.Type = 3 Then
            Target.Validation.InCellDropdown = False
            Cancel = True
            xStr = Target.Validation.Formula1
            xStr = Right(xStr, Len(xStr) - 1)
            If xStr = "" Then Exit Sub
            With xCombox
                .Visible = True
                .Left = Target.Left
                .Top = Target.Top
                .Width = Target.Width + 5
                .Height = Target.Height + 5
                .ListFillRange = xStr
                If .ListFillRange = "" Then
                    xArr = Split(xStr, ",")
                    Me.TempCombo.List = xArr
                End If
                .LinkedCell = Target.Address
            End With
            xCombox.Activate
            Me.TempCombo.DropDown
        End If

End Sub
...