Блог

Главная - Вопросы по программированию - Есть ли функция, которая может выделять и отображать строку в текстовом поле при нажатии на кнопку?

Есть ли функция, которая может выделять и отображать строку в текстовом поле при нажатии на кнопку?

#excel #vba

#excel #vba

Вопрос:

введите описание изображения здесь Когда я что-то ищу, это будет выделено в списке. Я хочу, чтобы она автоматически прокручивалась вниз и отображала выделенную информацию на экране при нажатии кнопки «Найти».

 myindex = 0

Set itmx = ListView2.FindItem(Trim(TextBox_Reason.Text), lvwText, lvwPartial)
    If itmx Is Nothing Then
        If TextBox_Reason.Text = "" Then
            MsgBox "Please enter a Reason", vbCritical
            Exit Sub
        Else
        result = MsgBox("Reason not found !, Add new Reason ", vbYesNo, "Reason Status")
        If result = vbYes Then
            CommandButton_Add_Click
        End If
        Exit Sub
        End If
    Else
        ListView2.ListItems(itmx.Index).Selected = True
        ListView2.SetFocus
    End If

myindex = 0


Set itmx = ListView2.FindItem(Trim(TextBox_Reason.Text), lvwText, lvwPartial)
    If itmx Is Nothing Then
        If TextBox_Reason.Text = "" Then
            MsgBox "Please enter a Reason", vbCritical
            Exit Sub
        Else
        result = MsgBox("Reason not found !, Add new Reason ", vbYesNo, "Reason Status")
        If result = vbYes Then
            CommandButton_Add_Click
        End If
        Exit Sub
        End If
    Else
        ListView2.ListItems(itmx.Index).Selected = True
        ListView2.SetFocus
    End If

Комментарии:

1. Да, вы можете отформатировать заранее определенную строку внутри строки, используя Characters ()

2. Я просмотрел несколько видеороликов об этой функции, и я не думаю, что это то, что я ищу. ListView2.ListItems (itmx. Индекс). Selected = True ListView2.SetFocus Я думаю, что под этим должна быть другая строка с надписью что-то вроде display focus.

3. Вы можете попробовать: vbcity.com/forums/t/89921.aspx

4. … или просто ListView2.ListItems(itmx.Index).EnsureVisible