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

 Sut i redeg macro yn awtomatig pan fydd canlyniad fformiwla celloedd yn newid?

Gan dybio, mae gen i restr o fformiwlâu yn seiliedig ar y data yng ngholofn A a cholofn B fel y llun isod a ddangosir, nawr, rydw i eisiau rhedeg cod macro penodol yn awtomatig pan fydd canlyniad fformiwla yn newid gyda'i gelloedd cymharol yn newid. A oes unrhyw syniad da i ddatrys y swydd hon yn Excel?

Micro sy'n cael ei redeg yn awtomatig pan fydd canlyniad fformiwla celloedd yn newid gyda chod VBA


Micro sy'n cael ei redeg yn awtomatig pan fydd canlyniad fformiwla celloedd yn newid gyda chod VBA


Gall y cod VBA canlynol eich helpu i weithredu cod penodol yn awtomatig pan fydd cell canlyniad y fformiwla yn newid, gwnewch fel hyn:

1. De-gliciwch y tab dalen rydych chi am ei ddefnyddio, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:

Cod VBA: macro sy'n cael ei redeg yn awtomatig pan fydd canlyniad fformiwla celloedd yn newid:

Private Sub Worksheet_Calculate()
'Updateby Extendoffice
    Dim Xrg As Range
    Set Xrg = Range("C2:C8")
    If Not Intersect(Xrg, Range("C2:C8")) Is Nothing Then
    Macro1
    End If
End Sub

Nodyn: Yn y cod uchod, C2: C8 yw'r ystod o gelloedd fformiwla rydych chi am eu defnyddio ,maco1 yw enw'r macro rydych chi am ei redeg yn awtomatig. Newidiwch ef i'ch angen.

2. Yna arbedwch a chau ffenestr y cod hwn, nawr, pan fydd y data yn ystod A2: B8 yn newid i achosi i'r canlyniad fformiwla newid, caiff eich cod macro penodol ei sbarduno ar unwaith.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 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 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 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 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr! Roedd hyn yn help mawr i mi.
A oes unrhyw ddull i adalw cyfeiriad y gell wedi'i newid (gyda fformiwla hy Colofn C yn yr enghraifft hon).
Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth yw pwynt y cyflwr? Bydd bob amser yn dychwelyd yn wir ... mewn geiriau eraill: bydd yn rhedeg hebddo. Mae hyn hefyd yn rhedeg pryd bynnag y bydd unrhyw gelloedd ar y ddalen yn newid gwerth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly, beth yw fy enw macro. ble alla i ddod o hyd i fy enw macro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Cenk,
Yr enw macro yw'r cod macro rydych chi wedi'i fewnosod yn y ffeil Excel, a does ond angen i chi newid y Macro1 yn y cod uchod i'ch un chi.
Er enghraifft, rwy'n mewnosod cod yma, a'r enw macro yw: ColorCompanyDuplicates

Is-liwCwmni Dyblyg()
'Updateby Extendoffice 20160704
Dim xRg Fel Ystod
Dim xTxt Fel Llinyn
Dim xCell Fel Ystod
Dim xChar Fel Llinynnol
Dim xCellPre Fel Ystod
Dim xCIndex Cyhyd
Dim xCol Fel Casgliad
Dim I Cyn Hir
Ar Ail-ddechrau Gwall Nesaf
Os ActiveWindow.RangeSelection.Count > 1 Yna
xTxt = ActiveWindow.RangeSelection.AddressLocal
arall
xTxt = ActiveSheet.UsedRange.AddressLocal
Gorffennwch Os
Gosod xRg = Application.InputBox ("dewiswch yr ystod data:"", "Kutools ar gyfer Excel", xTxt , , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
xCIndex =2
Gosod xCol = Casgliad Newydd
Am Bob xCell Mewn xRg
Ar Ail-ddechrau Gwall Nesaf
xCol.Add xCell, xCell.Text
If Err.Number = 457 Yna
xCIndex = xCIndex+1
Gosod xCellPre = xCol(xCell.Text)
Os xCellPre.Interior.ColorIndex = xlNone Yna xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Yna
MsgBox "Gormod o gwmnïau dyblyg!", vbCritical, "Kutools for Excel"
Is Allanfa
Gorffennwch Os
Ar Gwall Ewch i 0
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, nid yw'n gweithio mae'n gweithio os byddaf yn rhoi data â llaw. ond yr wyf am ei weithio yn awtomatig bcz fy data yn diweddaru gan rand calcaulate
Lleihawyd y sylw hwn gan y safonwr ar y wefan
"Gosod Xrg = Ystod ("C2:C8")
Os Ddim yn Croestorri(Xrg, Ystod ("C2:C8")) Yn Dim Yna"
deuir ar draws y cyflwr hwn BOB AMSER....
Gwneud synnwyr???
Neu a oes rhywbeth nad oeddwn yn ei ddeall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn iawn, a wnaethoch chi ddatrys y broblem hon, ac a allech chi rannu i mi, os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hey guys,
Defnyddiais y cod canlynol ar gyfer y broblem hon, gobeithio ei fod yn helpu rhywun:

Is-daflen Waith Breifat_Cyfrifo()
Hen Werth Statig
Os Ystod ("MyNamedRange") <> oldValue Yna
Cod Yma
oldValue = Ystod ("MyNamedRange").Gwerth
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hey guys,
Isod mae'r cod ac rydw i eisiau cloi celloedd A2 ac A3 ar ôl i gell A1 (A1 = B1 + C1) newid mewn canlyniadau newid naill ai B1 neu C1 neu'r ddau. Ond nid yw'n gweithio. A allai unrhyw un helpu gyda hynny, os gwelwch yn dda?

Is-daflen Waith Breifat_Cyfrifo()

Dim sPass
sPass = "123"
Dim rng Fel Ystod
Gosod rng = [A2:A3]
Os Nad yw Croestorri(rng, [A1]) Yn Dim Yna
Gyda ActiveSheet
.Unprotect Password:=Pass
.Cells.Locked = Gau
Hen Werth Statig
Os Ystod ("A1") <> oldValue Yna
rng.Locked = Gwir
.Amddiffyn Cyfrinair:=Pass
oldValue = Ystod ("A1").Gwerth

Gorffennwch Os
Diwedd Gyda

Gorffennwch Os
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir