Как да направя името на командния бутон динамично в Excel?
В тази статия се говори за динамична промяна на името на команден бутон с промяна на определена стойност на клетка. Например, когато стойността в клетка A1 е променена на „тест“, името на определен команден бутон автоматично ще бъде променено на „тест“.
Направете името на командния бутон динамично със стойност на клетка чрез VBA код
Направете името на командния бутон динамично със стойност на клетка чрез VBA код
Следният VBA код може да ви помогне да направите името на команден бутон динамично с определена стойност на клетка в работен лист. Моля, направете следното.
1. кликване Софтуерен Инженер > Поставете > Команден бутон (ActiveX Control) за вмъкване на команден бутон в работния лист. Вижте екранна снимка:
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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
