Note: The other languages of the website are Google-translated. Back to English
English English
  • dogfennau
  • Excel
  • Sut i redeg macro yn seiliedig ar werth a ddewiswyd o'r gwymplen yn Excel?

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


swigen dde glas saeth 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:

doc yn rhedeg macro o gwymplen 1

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

doc yn rhedeg macro o gwymplen 2

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?


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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 gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
efectivamente funciona pero quiero applicarlo en varias celdas, que changer debo cambiar?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ddefnyddio cod VBA i wneud hyn yn Mynediad? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo!

Al applicarlo me sale un error de compilación: La declaración del procedimiento no concide con la descripción del evento o el procedimiento que tiene el mismo nombre. Beth am benderfynu? que debo cambiar/arreglar? Gracias
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bore da. A fyddech chi'n gallu gwneud Macro o'r gwymplen ar gyfer nesaf: I redeg macro ac arbed dalennau wedi'u gwahanu ar gyfer pob eitem o'r ddewislen Cwymp? Yn eich achos chi, dylech edrych fel hyn:
1. Rydych chi'n rhedeg macro ac yna rydych chi wedi gwahanu dalen gyda gwerthoedd ar gyfer "Mewnosod rhesi gwag" wedi'u cadw mewn ffolder dynodedig
2. Dalen wedi'i gwahanu gyda gwerthoedd ar gyfer " Cuddio pob dalen : " wedi'i gadw mewn ffolder penodedig
3. Dalen wedi'i gwahanu gyda gwerthoedd ar gyfer "Trosi hyd yn hyn" wedi'u cadw mewn ffolder dynodedig.
4. Macro yn cael ei wneud yn awr


Yn bennaf, gallaf osod hyn i gyd ac eithrio bod macro yn newid dewis o'r gwymplen yn awtomatig ?


diolch


Ivan
Lleihawyd y sylw hwn gan y safonwr ar y wefan


CÔD CYNTAF YN GWEITHIO'N BerffaithIs-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Ddim yn Croestorri (Targed, Ystod ("D1")) Yn Dim Yna
Dewiswch Ystod Achos ("D1")
         Achos "0.5": Hanner
         Achos "1": Un
         Achos "1.25": OneTwentyFive
Diwedd Dewis
Gorffennwch Os
Is-End
AIL GÔD DDIM YN GWEITHIO (cywirwch yr isod)
Is Newid Preifat (Targed ByVal Fel Ystod)
Os Ddim yn Croestorri (Targed, Ystod ("D2")) Yn Dim Yna
Dewiswch Ystod Achos ("D2")
         Achos "9.53": naw pwynt pump tri
Diwedd Dewis
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A co jeśli potrzebuję aby po uruchomieniu makra wszystkie listy rozwijane ustawiły się na jeden z wyborów z listy? W sumie odwrotnie do tego co jest w poście. Ystyr geiriau: Czy istnieje na i łatwiejszy sposób?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL