Як зробити ім'я командної кнопки динамічним в Excel?
У цій статті йдеться про те, щоб ім’я кнопки Command динамічно змінювалось із зазначеними змінами значення комірки. Наприклад, коли значення в комірці А1 змінено на «перевірити», ім’я певної кнопки команди автоматично зміниться на «перевірити».
Зробіть ім’я командної кнопки динамічним зі значенням комірки за кодом VBA
Зробіть ім’я командної кнопки динамічним зі значенням комірки за кодом VBA
Наступний код VBA може допомогти вам зробити ім'я командної кнопки динамічним із заданим значенням комірки на аркуші. Будь ласка, виконайте наступне.
1. клацання Розробник > Insert > Кнопка керування (керування 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. Вимкніть режим дизайну, клацнувши Розробник > Режим дизайну.
Відтепер ім'я командної кнопки буде змінюватися динамічно із зазначеним значенням комірки на вашому аркуші.
Як показано на знімку екрана, коли значення комірки А1 було змінено, ім'я командної кнопки автоматично зміниться на те саме значення.
Статті по темі:
- Як за допомогою кнопки команди зберегти активний аркуш як файл PDF у програмі Excel?
- Як автоматично вставити порожній новий рядок кнопкою команди в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!