Sut i redeg macro yn seiliedig ar werth a ddewiswyd o'r gwymplen yn Excel?
Mae rhedeg macros trwy glicio botwm gorchymyn yn dasg gyffredin yn Excel, ond, a ydych erioed wedi ceisio gweithredu'r codau macro yn seiliedig ar y gwerth sy'n cael ei ddewis o'r gwymplen? Mae'n golygu, pan ddewiswch un eitem o'r gwymplen, bydd y macro penodol yn cael ei sbarduno ar unwaith. Bydd yr erthygl hon yn cyflwyno cod defnyddiol i chi ddatrys y swydd hon.
Rhedeg macro yn seiliedig ar werth a ddewiswyd o'r gwymplen gyda chod VBA
Rhedeg macro yn seiliedig ar werth a ddewiswyd o'r gwymplen gyda chod VBA
Nid oes unrhyw ffordd uniongyrchol i orffen y dasg hon, ond, gall y cod VBA canlynol eich helpu chi, gwnewch fel hyn:
1. Yn gyntaf, crëwch restr ostwng yn ôl yr angen, gweler y screenshot:
2. Yna cliciwch ar y dde ar y tab dalen sy'n cynnwys y gwymplen rydych chi am ei defnyddio, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:
Cod VBA: Rhedeg macro yn seiliedig ar werth a ddewiswyd o'r gwymplen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1")) Is Nothing Then
Select Case Range("E1")
Case "Insert Blank rows": Macro1
Case "Hide All Sheets": Macro2
Case "Convert to Date": Macro3
End Select
End If
End Sub
Nodyn: Yn y cod uchod, E1 ydy'r gell yn cynnwys y gwymplen, newid yr enwau macro a gwympo gwerthoedd rhestr i'ch rhai angenrheidiol.
3. Ac yna arbed a chau'r ffenestr god hon, nawr, pan ddewiswch yr eitem Mewnosod rhesi Blank o'r gwymplen, bydd Macro1 yn cael ei sbarduno, ac ati ...
Erthyglau cysylltiedig:
Sut i redeg macro pan fydd gwerth celloedd yn newid yn Excel?
Sut i redeg macro yn seiliedig ar werth celloedd yn Excel?
Sut i redeg macro yn awtomatig cyn argraffu yn Excel?
Sut i redeg macro trwy glicio hypergysylltiadau yn Excel?
Sut i redeg macro pan ddewisir taflen o lyfr gwaith?
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!