Как сделать имя командной кнопки динамическим в Excel?
В этой статье говорится о динамическом изменении имени кнопки Command с изменением указанного значения ячейки. Например, если значение в ячейке A1 было изменено на «тест», имя определенной кнопки Command будет автоматически изменено на «тест».
Сделать имя командной кнопки динамическим со значением ячейки по коду 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. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.
5. Выключите режим дизайна, нажав Застройщик > Режим проектирования.
С этого момента имя командной кнопки будет динамически изменяться с указанным значением ячейки на вашем листе.
Как показано ниже, при изменении значения ячейки A1 имя командной кнопки будет автоматически изменено на то же значение.
Статьи по теме:
- Как использовать командную кнопку для сохранения активного рабочего листа в виде файла PDF в Excel?
- Как автоматически вставить новую пустую строку с помощью командной кнопки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!