Как сделать имя кнопки управления динамическим в Excel?
В этой статье рассказывается, как динамически изменять надпись на управляющей кнопке при изменении значения заданной ячейки. Например, если значение ячейки A1 станет «test», надпись на указанной кнопке управления автоматически обновится до «test».
Сделайте имя кнопки управления динамическим с помощью значения ячейки с использованием кода VBA
Сделайте имя кнопки управления динамическим с помощью значения ячейки с использованием кода VBA
Приведённый ниже код VBA позволяет динамически изменять название управляющей кнопки в зависимости от значения указанной ячейки на листе. Выполните следующие действия.
1. Нажмите Разработчик > Вставить > Кнопка управления (элемент управления ActiveX), чтобы вставить кнопку управления на лист. См. снимок экрана:
2. После вставки кнопки управления щёлкните правой кнопкой мыши по ярлыку листа и выберите в контекстном меню пункт Просмотреть код, как показано на снимке экрана ниже:
3. В открывшемся окне Microsoft Visual Basic для приложений скопируйте и вставьте приведённый ниже код VBA.
Код VBA: Сделать имя кнопки управления динамическим с использованием значения ячейки
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End SubПримечание: в коде CommandButton1 — это имя кнопки, которую вы хотите сделать динамической, а A1 — ячейка, значение из которой будет автоматически присваиваться имени кнопки.
4. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
5. Отключите режим конструктора, нажав Разработчик > Режим конструктора.
Теперь название управляющей кнопки будет автоматически обновляться в зависимости от значения указанной ячейки на вашем листе.
Как видно на приведённом ниже снимке экрана, при изменении значения в ячейке A1 надпись на управляющей кнопке автоматически обновится до этого же значения.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
- Как использовать кнопку управления для сохранения активного листа в формате PDF в Excel?
- Как с помощью кнопки управления автоматически вставить новую пустую строку в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек