Кнопка поиска в Excel 2016

Question

Я хочу найти поля, связанные с листами. Есть ли способ сделать это с помощью кнопки поиска и текстового поля? Я поставил изображение ниже.

Эти ASD, BCD et c. все они связаны с листами. И, как вы видите, я хочу использовать SearchBox и TextBox для поиска этих ASD, BCD ... Но я не знаю, как включить эту CommandButton для поиска с помощью команды. Помогите мне в этом, пожалуйста.

Answer 1

Если вы собираетесь искать между значениями текстовых полей и элементами управления типа ActiveX, попробуйте следующий код:

Sub searchTextBoxesVal()
  Dim sh As Worksheet, s As OLEObject
   Set sh = ActiveSheet 'use here your worksheet
   For Each s In sh.OLEObjects
        If s.Name <> "SearchBox" Then
            If s.Object.Value = sh.OLEObjects("SearchBox").Object.Value Then
                Stop
                'do whatever you need with the found value
            End If
        End If
   Next
End Sub

Если нет, укажите, что вам нужно.