Поиск всех спарклайнов на листеFind All the Sparklines on a Sheet

В следующем примере кода для отображения всех групп спарклайнов на активном листе используется поле со списком в форме пользователя.The following code example uses a list box on a user form to display all of the sparkline groups on the active sheet. Если щелкнуть одну из групп спарклайнов в списке, Группа спарклайнов будет выбрана на листе.When you click one of the sparkline groups in the list box, the sparkline group is selected on the sheet.

В этом примере требуется форма пользователя с именем спарклинеформ, список в форме пользователя с именем спарклинелистбокси кнопка в форме пользователя с именем клосебтн.This example requires a user form named SparklineForm, a list box on the user form named SparklineListBox, and a button on the user form named CloseBtn.

В редакторе Visual Basic вставьте модуль и скопируйте и вставьте приведенный ниже код.In the Visual Basic Editor, insert a Module and copy and paste the following code. В этом коде показана форма пользователя.This code shows the user form.

Sub ShowUserForm()
    SparklineForm.Show
End Sub

В редакторе Visual Basic щелкните правой кнопкой мыши форму спарклинеформ , выберите Просмотреть код, а затем скопируйте и вставьте следующий код.In the Visual Basic Editor, right-click the SparklineForm form, select View Code, and copy and paste the following code. UserForm_Activate процедура выполняет итерацию всех групп спарклайнов на активном листе и получает адреса групп спарклайнов с помощью свойства Address объекта Range .The UserForm_Activate procedure iterates through all the sparkline groups on the active sheet and gets the addresses of the sparkline groups by using the Address property of the Range object. После этого адрес добавляется в список.The address is then added to the list box. Процедура SparklineListBox_Click вызывается при выборе адреса группы спарклайнов в поле со списком.The SparklineListBox_Click procedure is called when you click the address of a sparkline group in the list box. Эта процедура активирует выбранную группу спарклайнов на листе с помощью метода Activate объекта Range .This procedure activates the selected sparkline group on the sheet by using the Activate method of the Range object. Процедура CloseBtn_Click вызывается при нажатии кнопки на форме пользователя и закрывает форму пользователя.The CloseBtn_Click procedure is called when you click the button on the user form, and it closes the user form.

Private Sub UserForm_Activate()
    'The sparkline group
    Dim oSparkGroup As SparklineGroup
    
    'Loop through all the sparkline groups on the sheet
    For Each oSparkGroup In ActiveSheet.Range("A:XFD").SparklineGroups
        'For each sparkline group found, add the address to the listbox
        SparklineListBox.AddItem oSparkGroup.Location.Address(, , , True)
    Next oSparkGroup
End Sub

Private Sub SparklineListBox_Click()
    'Activate the selected range that has the sparklines
    Range(SparklineListBox.Value).Activate
End Sub

Private Sub CloseBtn_Click()
    'Close the userform
    Unload Me
End Sub

См. такжеSee also

Объект SparklineGroupSparklineGroup Object


[Программирование с использованием спарклайнов в ExcelProgramming With Sparklines In Excel](../../../api/overview/Excel.md)

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.