Sut i ddewis taflen waith benodol yn seiliedig ar werth celloedd ar ddalen arall yn Excel?
Gan dybio bod gennych chi gwymplen dilysu data sy'n cynnwys holl enwau'r daflen waith, a'ch bod chi eisiau dewis neu neidio i'r daflen waith gyfatebol yn awtomatig yn seiliedig ar enw'r ddalen a ddewisoch chi yn y gwymplen, beth allwch chi ei wneud? A beth am neidio'n awtomatig i daflen waith benodol ar ôl teipio enw'r ddalen i mewn i gell benodol? Bydd yr erthygl hon yn dangos sawl dull i chi ei gyflawni.
Dewiswch daflen waith benodol yn seiliedig ar ddewis rhestr gwympo gyda chod VBA
Dewiswch daflen waith benodol yn seiliedig ar werth celloedd gyda chod VBA
Creu mynegai taflenni yn hawdd a symud i daflen waith benodol gyda Kutools ar gyfer Excel
Dewiswch daflen waith benodol yn seiliedig ar ddewis rhestr gwympo gyda chod VBA
Er enghraifft, mae rhestr ostwng yn lleoli yng nghell A2 o ddalen8. Gallwch redeg y cod VBA isod i ddewis neu neidio i'r daflen waith gyfatebol pan ddewisir enw'r ddalen yn y gwymplen.
1. Gwasgwch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ar enw'r ddalen (y daflen waith sy'n cynnwys y gwymplen y byddwch chi'n dewis enwau dalen ohoni) yn y bar chwith, yna copïwch a gludwch y cod VBA isod i mewn i'r ffenestr Cod.
Cod VBA: Dewiswch daflen waith benodol yn seiliedig ar y gwymplen
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not (Application.Intersect(Range("A2"), Target) Is Nothing) Then _
ThisWorkbook.Sheets(Target.Value).Activate
End SubNodyn: Gallwch chi newid “A2” i'ch cell eich hun.
3. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual basic ar gyfer Cymwysiadau ffenestr.
O hyn ymlaen, pan ddewiswch enw dalen yn y gwymplen o Daflen8, bydd y daflen waith honno'n cael ei dewis yn awtomatig.
Dewiswch daflen waith benodol yn seiliedig ar werth celloedd gyda chod VBA
Os ydych chi eisiau neidio i daflen waith benodol ar ôl teipio enw'r ddalen mewn cell (cell A1 yn nhaflen 1), gallwch roi cynnig ar y cod VBA canlynol.
1. Gwasgwch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith enw'r ddalen (y daflen waith y byddwch chi'n ei theipio yn enw'r ddalen) yn y bar chwith, yna copïwch a gludwch y cod VBA isod i mewn i'r ffenestr Cod. Gweler y screenshot:
Cod VBA: dewiswch daflen waith benodol yn seiliedig ar werth celloedd
Sub ActivateSheetsByValue()
On Error Resume Next
ThisWorkbook.Sheets(Worksheets("Sheet1").Range("A1").Value).Activate
End Sub
3. Ewch yn ôl i'r daflen waith a nodi'r enw dalen yr ydych am ei ddewis yng nghell A1, ac actifadu'r ffenestr god, yna pwyswch allwedd F5 i redeg y cod.
Os yw cell A1 yn Sheet1 yn cynnwys enw taflen waith “Sheet8”, ar ôl rhedeg y cod VBA, bydd yn neidio i Sheet8 ar unwaith.
Creu mynegai taflenni yn hawdd a symud i daflen waith benodol gyda Kutools ar gyfer Excel
Os ydych chi eisiau dewis yn gyflym neu neidio i daflen waith benodol, gallwch roi cynnig ar y Creu Rhestr o Enwau Dalennau cyfleustodau Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gallwch chi greu mynegai dalennau yn hawdd, yna neidio'n gyflym i daflen waith benodol trwy glicio ar enw'r ddalen.
Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.
1. Cliciwch Kutools Byd Gwaith > Taflen Waith > Creu Rhestr o Enwau Dalennau. Gweler y screenshot:
2. Yn y Creu Rhestr o Enwau Dalennau blwch deialog, dewiswch Yn cynnwys rhestr o hyperddolenni opsiwn yn y Arddulliau Mynegai Dalennau adran; teipiwch enw ar gyfer eich mynegai dalennau yn y Nodwch enw'r ddalen ar gyfer Mynegai Dalennau blwch; Dewiswch Cyn yr holl daflenni yn y Mynegai Mewnosod y Daflen yn y gwymplen. Yna cliciwch y OK botwm.
Nodyn: gwiriwch y Yn cynnwys botymau a macros opsiwn, fe gewch fynegai dalen gyda botwm macros. Gweler y screenshot:
Yn y daflen waith Mynegai, gallwch glicio ar enw taflen waith benodol i neidio i'r daflen waith honno'n awtomatig.
Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.
Creu mynegai taflenni yn hawdd a symud i daflen waith benodol gyda Kutools ar gyfer Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
