Conas ainm an Chnaipe Ordú a dhéanamh dinimiciúil in Excel?
Tá an t-alt seo ag caint ar ainm cnaipe Ordú a athrú go dinimiciúil le hathruithe sonraithe ar luach cille. Mar shampla, nuair a athraíodh luach i gcill A1 go “tástáil”, athrófar ainm cnaipe Ordú áirithe go “tástáil” go huathoibríoch.
Déan ainm an Chnaipe Ordú dinimiciúil le luach cille de réir chód VBA
Déan ainm an Chnaipe Ordú dinimiciúil le luach cille de réir chód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat ainm cnaipe ordaithe a dhéanamh dinimiciúil le luach cille sonraithe i mbileog oibre. Déan mar a leanas le do thoil.
1. cliceáil Forbróir > Ionsáigh > Cnaipe Ordú (Rialú ActiveX) chun cnaipe ordaithe a chur isteach sa bhileog oibre. Féach an pictiúr:
2. Tar éis duit an cnaipe ordaithe a chur isteach, cliceáil ar dheis ar an táb bileog agus cliceáil Féach an cód ón roghchlár cliceáil ar dheis mar atá thíos an pictiúr a thaispeántar:
3. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh faoi bhun chód VBA isteach an fhuinneog.
Cód VBA: Déan ainm an Chnaipe Ordú dinimiciúil le luach cille
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
nótaí: sa chód, is é CommandButton1 ainm an chnaipe ar mhaith leat a ainm a dhéanamh dinimiciúil, agus is é A1 an chill a ndéanfaidh tú an luach a tharchur chuig ainm an chnaipe go huathoibríoch.
4. Brúigh an Eile + Q eochracha chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
5. Múch an Mód Dearaidh trí chliceáil Forbróir > Mód Dearaidh.
As seo amach, athrófar ainm an Chnaipe Ordú go dinimiciúil leis an luach cille sonraithe i do bhileog oibre.
Mar a thaispeántar thíos an scáileán, nuair a athraíodh luach chill A1, athrófar ainm an chnaipe ordaithe go dtí an luach céanna go huathoibríoch.
Airteagail ghaolmhara:
- Conas an Cnaipe Ordú a úsáid chun an bhileog oibre ghníomhach a shábháil mar chomhad PDF in Excel?
- Conas as a chéile bán nua a chur isteach go huathoibríoch le Command Button in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!