Skip to main content

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:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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 ...

Tuairisc


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á!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can anyone suggest how I would extend the VBA to additionally assign a macro to the command button so clicking the command button would execute a macro associated with the command button name? For example, after renaming the command button to "XYZ", also assign the macro named "XYZ" to the command button click event. Thank you for any help.
This comment was minimized by the moderator on the site
Hi sam,
Please try as follows.
1. Turn on the Design Mode by clicking Developer > Design Mode.
2. Right click the command button and select View Code in the context menu;
3. Assign your macro between line Private Sub CommandButton1_Click() and End Sub;
4. Turn off the Design Mode

Hope I can help.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations