Note: The other languages of the website are Google-translated. Back to English

Conas ainm cluaisín bileog a dhéanamh cothrom le luach cille in Excel?

I roinnt cásanna, b’fhéidir go mbeidh ort bileog oibre a athainmniú bunaithe ar luach cille sonraithe. San Airteagal seo, taispeánfaimid duit modhanna chun ainm cluaisín bileog a dhéanamh cothrom le luach cille in Excel.

Déan ainm cluaisín bileog cothrom le luach cille le cód VBA
Déan ainm cluaisín bileog atá cothrom le luach cille le Kutools for Excel


Déan ainm cluaisín bileog cothrom le luach cille le cód VBA

Leis an gcód VBA seo a leanas, is féidir leat ainm cluaisín bileog atá cothrom le luach cille a dhéanamh go huathoibríoch.

1. Cliceáil ar dheis ar an táb bileog ar mhaith leat ainm na bileoige a dhéanamh comhionann le luach cille, ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis. Féach an pictiúr:

2. Cóipeáil agus greamaigh an cód thíos i bhfuinneog an Chóid, agus ansin brúigh Eile + Q eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a dhúnadh.

Cód VBA: Déan cluaisín bileog cothrom le luach cille

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

nótaí: Sa chód, is é A1 an chill ina bhfuil an luach a chaithfidh tú a úsáid mar ainm bileog. Is féidir leat é a athrú de réir mar is gá duit.

As seo amach, nuair a athrófar an luach i gcill A1, athrófar ainm an chluaisín leatháin go cothrom freisin.


Déan ainm cluaisín bileog atá cothrom le luach cille le Kutools for Excel

Sa chuid seo, tugaimid an Athainmnigh Bileoga Oibre Il fóntais de Kutools le haghaidh Excel. Leis an bhfóntas seo, is féidir leat bileoga oibre le luach cille áirithe in Excel a athainmniú go héasca.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. cliceáil Kutools Plus > Bileog Oibre > Athainmnigh Bileoga Oibre Il. Féach an pictiúr:

2. Sa Athainmnigh Bileoga Oibre Il bosca dialóige, ní mór duit a dhéanamh mar a leanas.

1). Seiceáil ainmneacha na mbileog oibre is mian leat a athainmniú sa Bileoga oibre bosca (is féidir leat bileog amháin nó bileoga iolracha a roghnú).
2). Roghnaigh Cuir ainm an bhileog bhunaidh in ionad bosca sa Athainmnigh Roghanna alt seo.
3). Más mian leat bileog oibre nó bileoga oibre iolracha a athainmniú le luach sonraithe cille, roghnaigh an Ó raon sonrach rogha, agus roghnaigh an raon cealla ar mhaith leat na bileoga a athainmniú bunaithe ar.
4). Cliceáil ar an OK cnaipe. Féach an pictiúr:

Feiceann tú go n-athainmnítear na bileoga oibre roghnaithe de réir an luacha raon sonraithe díreach mar atá thíos an pictiúr a thaispeántar.

nótaí:

1. Is féidir leat an scagairí feidhm chun an bhileog oibre riachtanach a scagadh go héasca má tá go leor bileoga oibre ann.
2. Más mian leat iliomad bileoga oibre a athainmniú le luach cille áirithe i ngach bileog. Mar shampla, beidh bileog1 cothrom le luach a chill A1, agus beidh bileog2 cothrom le luach a chill A1 freisin. Roghnaigh bileoga oibre sa Bileoga oibre bosca, ansin roghnaigh an Athainmnigh bileoga oibre le cill ar leith rogha, agus sonraigh cill A1 sa bhosca.

3. Ní athrófar ainm na bileoige go huathoibríoch leis na hathruithe ar luach na cille.

  Más mian leat triail saor in aisce a bheith agat (30-lá) den áirgiúlacht seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Déan ainm cluaisín bileog atá cothrom le luach cille le Kutools for Excel


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (28)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chuir mé é seo isteach mar a ordaíodh ach níor léirigh sé i mo liosta de na Macraí atá ar fáil. Rinne mé iarracht é a rith de láimh tríd an ainm Macra a chur isteach. Nuair a rinne sé iarracht an Macra a rith, tháinig teachtaireacht earráide aníos "Argóint aon roghnach".

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Mura Trasnaíonn (Sprioc, Raon ("A1")) An bhfuil aon rud ansin
ActiveSheet.Name = ActiveSheet.Range("A1")
Deireadh Má
Fo Deireadh

An bhfuil an cód seo á rith ag éinne eile agus an raibh an cheist chéanna aige?

Mar thástáil rith mé cód níos bunúsaí agus d'oibrigh sé go breá mar sin ní an luach in "A1" is cúis leis an bhfadhb. Nuair a rithim an cód thíos is féidir liom an t-ainm Macra "myTabName" a fheiceáil sa liosta Macra. Níl an cód thuas le feiceáil agus tá mé ag glacadh leis go bhfuil sé seo mar gheall ar an argóint fabht / ar iarraidh.

Fo-myTabName()
ActiveSheet.Name = ActiveSheet.Range("A1")
Fo Deireadh

Go raibh maith agat as do chabhair mar ba mhaith liom go mór an cód a úsáid mar atá beartaithe chun athruithe ar ainm cluaisíní a uathoibriú bunaithe ar luach cille.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Jason a chara,
Oibríonn an cód go maith i mo chás. An gcuirfeá do leagan Oifige ar fáil le do thoil? Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Níor oibrigh sé domsa freisin, an bhféadfadh sé a bheith mar gur foirmle í an chill atá á tagairt agam?

Go raibh maith agat as freagra a thabhairt
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Mei,

Thank you for your feedback. The problem was caused by the formula. The code has been modified. Please give it a try.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód seo á chur i bhfeidhm agam, ach ní nuashonraíonn sé an t-ainm cluaisín go huathoibríoch nuair a tharraingíonn an chill an t-ainm uaidh má tá tagairt á déanamh do chill eile (agus athraíonn an chill sin).


Ie athraím cill i máistirliosta, a athraíonn an téacs cille i gcill ar leith ar gach cluaisín, a bhfuil an cód ag tagairt dó mar ainm an chluaisín, ACH ní nuashonraíonn an cluaisín a ainm dá réir.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Is féidir leis an gcód VBA seo a leanas d’fhadhb a réiteach. Go raibh maith agat as do thuairim1

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRg Mar Raon, xCill Mar Raon
Ar Lean Earráid Aghaidh
Mura Trasnaíonn (Sprioc, Raon ("A1")) An bhfuil aon rud ansin
ActiveSheet.Name = ActiveSheet.Range("A1")
Deireadh Má
Application.EnableEvents = Bréagach
Socraigh xRg = ActiveSheet.Range("A1").Precedents
Mura bhfuil xRg ar bith ansin
Do Gach xCell In xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Ar Aghaidh
Deireadh Má
Application.EnableEvents = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní oibríonn fós. Tá an cheist chéanna agam agus atá ag jJJ. criostail: An bhfuil an cód iomlán léirithe i do fhreagra?
Is í an líne dheireanach a thaispeántar i do nóta tráchta ná "Set xRg = ActiveSheet.Range("A1").Precedents"
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A JAS, a chara,
Cliceáil le do thoil ar an gcnaipe Léigh tuilleadh ar thaobh na láimhe deise den nóta tráchta chun an trácht iomlán a thaispeáint.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cheist chéanna fós agat.

Tá A1 den leathán nua agam pointe go dtí cill eile i gcluaisín eile. Nuashonraíonn sé an chéad uair (nuair a fhorghníomhaíonn tú) ach ansin níl aon athrú ar an máistirchill
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-bhileog Oibre Príobháideach_SelectionChange(Sprioc ByVal Mar Excel.Range)
Socraigh Sprioc = Raon ("A1")
If Target="" Ansin Scoir Fo
Ar Earráid Téigh go Drochainm
ActiveSheet.Name = Ar Chlé(Sprioc, 31)
Fo-Scoir
Drochainm:
msgstr "Déan athbhreithniú ar an iontráil in A1, le do thoil." & Chr(13) _
& "Dealraíonn sé go bhfuil ceann amháin nó níos mó ann" & Chr(13) _
& "carachtair neamhdhleathacha." & Chr(13)
Raon ("A1"). Gníomhachtaigh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fós tá an cheist mar an gcéanna, athraíonn sé den chéad uair. nuair a nascaim an chill sin le bileog eile agus nuair a athraím é ní athraíonn sé go huathoibríoch é
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Caithfidh mé an cód seo a úsáid ach níor chuir mé cód vba isteach cheana. Bheifí buíoch as aon treoir.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Athraím cill i máistirliosta, a athraíonn an téacs cille i gcill ar leith ar gach cluaisín, a bhfuil an cód ag tagairt dó mar ainm an chluaisín, ACH ní nuashonraíonn an cluaisín a ainm dá réir.

---- nach bhfuil sé ag obair
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fuair ​​​​mé an cód iomlán, agus d'oibrigh sé. Go raibh míle maith agat as do chabhair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A JAS, a chara,
Tá áthas orm go bhféadfainn cabhrú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is féidir leat macra simplí a úsáid in áit



Fo-Mhacra3()
Innéacs dim Mar Slánuimhir
Le haghaidh innéacs = 1 Go 18

Bileoga(innéacs).Name = Bileoga(innéacs).Raon("A2").Luach

Innéacs seo chugainn



Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Go raibh maith agat as roinnt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é seo go díreach atá ag teastáil uaim, ach tá an cluaisín ag teastáil uaim chun dáta a athchruthú agus níl sé ag obair... Glacaim leis go mbaineann sé seo leis an mbealach a n-oibríonn excel as dáta agus am, an féidir le haon duine réiteach a mholadh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Nick,
Ní thacaíonn Excel le clóscríobh ainm na leatháin ina bhfuil carachtair speisialta. Má tá an carachtar / sa dáta a chlóscríobh tú, ní cheadóidh sé duit ainm na bileoige a chruthú leis an dáta sin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom tagairt a dhéanamh do dhá chill. mar shampla ainm agus uimhir aitheantais?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá do chód cruinn á úsáid agam as an méid thuas le haghaidh cód VBA a oibríonn go foirfe don mhéid a theastaíonn uaim. Mar sin féin, tá roinnt macraí agam ar bhileog ar a dtugtar Job Template a chóipeáiltear agus a athúsáidtear le haghaidh gach post nua. Dhear mé mo mhacraí go léir bunaithe ar leagan cóipeáilte nua ar a dtugtar Job Template (2). Nuair a athraítear ainm na leatháin go dtí an t-ainm poist nua, ní oibríonn na macraí a thuilleadh agus caithfidh siad é a dhéanamh de láimh. Ba mhaith liom a bheith in ann aon cheann de na cnaipí Macra atá agam a úsáid ag aon phointe seachas iad a úsáid sula n-athraím ainm na bileoige.

An bhfuil bealach ann don chód VBA tagairt a dhéanamh i gcónaí d'ainm an chláir sula ritheann sé an chuid eile de na feidhmeanna cód?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad é an líon is airde de bhileoga oibre, ar féidir ainmneacha a athrú trí Kutools Plus? mar gheall ar an excel ligean dom ach 17 ainmneacha a athrú, agus sin é
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh sé seo go foirfe do mo chéad bhileog oibre, ach ní don dara nó tríú srl (tá suas le thart ar 20 bileoga oibre agam a bhfuil gá acu go léir an fheidhm seo). An bhfuil rud éigin in easnamh orm?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit A Eoin,
Ní oibríonn an cód seo ach do bhileog oibre amháin in aghaidh an ama. Leithscéal as an míchaoithiúlacht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Nuair a ghreamú i do chód a thagann sé ar ais leis an earráid "úsáideoir-sainithe cineál gan sainmhíniú"?

Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Tom J,
Déan cinnte go ndéantar na trí rogha seo a sheiceáil sa bhosca dialóige Tagairtí - VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
d'oibrigh go hálainn!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bonjour,
que voulez-vous dire par appuyer autre autre+q dans le code vba après avoir collé.
J'ai simplement fermé la page après avoir collé et ça ne marche pas
Merci
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL