Ինչպե՞ս հրամանի կոճակի անունը դինամիկ դարձնել Excel- ում:
Այս հոդվածում խոսվում է հրամանի կոճակի անունը դինամիկորեն փոխված դարձնելու մասին `բջջային արժեքի նշված փոփոխություններով: Օրինակ, երբ A1 բջիջի արժեքը փոխվում է «փորձարկման», որոշակի հրամանի կոճակի անունը ավտոմատ կերպով փոխվում է «ստուգման»:
Կատարել հրամանի կոճակի անունը դինամիկ `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. Անջատեք Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ.
Այսուհետ Command Button-ի անունը դինամիկ կերպով կփոխվի ձեր աշխատաթերթում նշված բջիջի արժեքով:
Ինչպես ցույց է տրված ստորև նշված սքրինշոթը, երբ A1 բջիջի արժեքը փոխվում է, հրամանի կոճակի անունը ավտոմատ կերպով կփոխվի նույն արժեքով:
Related Articles:
- Ինչպե՞ս օգտագործել հրամանի կոճակը ՝ Excel- ում ակտիվ աշխատանքային թերթը որպես PDF ֆայլ պահելու համար:
- Ինչպե՞ս Excel- ում հրամանի կոճակի միջոցով ավտոմատ կերպով տեղադրել դատարկ նոր տող:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: