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

Sut i ailadrodd neu ddolennu Macro bob X munud yn Excel?

Wrth weithio gyda Microsoft Excel, efallai y bydd angen i chi greu Macros i gyflawni rhai gweithrediadau. Er enghraifft, rydych chi am greu Macro i gopïo ystod o ddata yn awtomatig i le newydd. Gan y bydd y data'n cael ei newid yn aml, mae angen i'r Macro hwn redeg yn awtomatig bob 5 munud heb ei sbarduno â llaw er mwyn cydamseru'r ddwy ystod hon o ddata. Sut i'w gyflawni? Gall dull yn yr erthygl hon eich helpu chi.

Ailadroddwch neu dolenwch Macro bob X munud yn Excel


Ailadroddwch neu dolenwch Macro bob X munud yn Excel

Gall y cod VBA canlynol eich helpu i ailadrodd Macro bob X munud yn Excel. Gwnewch fel a ganlyn.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r Côd ffenestr. Gweler y screenshot:

Cod VBA: Ailadroddwch neu dolenwch Macro bob X munud yn Excel

Sub ReRunMacro()
Dim xMin As String

'Insert your code here
    xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
    If xMin = "Exit" Then
    SaveSetting "Kutools", "Macro", "min", "False"
    Exit Sub
    End If
    If (xMin = "") Or (xMin = "False") Then
      xMin = Application.InputBox(prompt:="Please input the interval time you need to repeat the Macro", Title:="Kutools for Excel", Type:=2)
      SaveSetting "Kutools", "Macro", "min", xMin
    End If
    If (xMin <> "") And (xMin <> "False") Then
      Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
    Else
      Exit Sub
    End If
End Sub

Nodyn: Yn y cod, amnewidiwch y llinell hon 'Mewnosodwch eich cod yma gyda'r cod byddwch chi'n rhedeg bob X munud.

3. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, nodwch yr amser egwyl y byddwch yn ailadrodd y macro yn seiliedig arno, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

O hyn ymlaen, bydd y Macro penodol yn rhedeg dro ar ôl tro bob 5 munud yn eich llyfr gwaith.

Nodyn: Os oes angen i chi atal gweithredu'r macro a newid cyfwng y cylch, copïwch y cod VBA isod i'r un peth Modiwlau ffenestr a gwasgwch y F5 allwedd i redeg y cod. Yna bydd y Macro yn cael ei stopio, ail-redeg y cod uchod i nodi cyfwng newydd.

Cod VBA: Stopiwch weithredu'r macro

Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub

Tab Swyddfa - Pori Tabbed, Golygu a Rheoli Llyfrau Gwaith yn Excel:

Mae Office Tab yn dod â'r rhyngwyneb tabbed fel y gwelir mewn porwyr gwe fel Google Chrome, fersiynau newydd Internet Explorer a Firefox i Microsoft Excel. Bydd yn offeryn arbed amser ac yn anadferadwy yn eich gwaith. Gweler isod demo:

Cliciwch i dreialu Tab y Swyddfa am ddim!

Tab Swyddfa ar gyfer Excel


Erthyglau perthnasol:


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 (29)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Un gwych! Os gwelwch yn dda sut mae atal y ddolen ar ôl dyweder 10 gwaith?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Gallwch fynd i mewn i'r ffenestr Cod i dorri'r cod (cliciwch ar y botwm Break) â llaw i atal y ddolen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da! Nid oeddwn yn deall sut i dorri'r cod macro i osod yr amser gweithredu dolen eto. A allech chi ddisgrifio'n fanylach sut i wneud hyn? Ble mae gwerth yr amser cylchred rhedeg yn cael ei gofnodi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jack,
Fy nghamgymeriad.
Mae cod VBA newydd a all atal y macro wedi'i ychwanegu ar ddiwedd yr erthygl. Rhowch gynnig arni. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn, yn gweithio danteithion. Rwy'n ddechreuwr i godio felly maddeuwch i mi os yw hyn yn syml...

Sut mae cael y blwch deialog i ymddangos eto? Mae'n sownd ar ddolen 1 munud. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Torrwch y cod a'i redeg eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi!
Mae hyn yn wych, ond a oes ffordd i'w gael i ddolennu yn ôl i res gyntaf y daenlen cyn dechrau eto?


Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dywedwch fwy wrthyf sut i atal gweithrediad y macro a newid cyfwng y gylchred?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dywedwch fwy wrthyf sut i atal gweithrediad y macro a newid cyfwng y gylchred?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dydd da,
Mae cod VBA newydd a all atal y macro wedi'i ychwanegu ar ddiwedd yr erthygl. Rhowch gynnig arni. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Darparwch god ar gyfer :


"Sut i ailadrodd neu ddolen Macro bob X Eiliad yn Excel"


Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Newidiwch y llinell "Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"" i
Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hey
Mae gen i ymholiad, mae'ch codau'n gweithio'n berffaith iawn ac yn copïo'r data yn fy ngholofnau nesaf bob 5 munud ond ar ôl 3 awr mae fy holl golofnau'n llawn gan ei fod yn 2003 excel. A fyddech cystal â fy helpu gyda chod os gwelwch yn dda i wirio os nad oes colofn arall yn wag yna creu dalen newydd a chopïo past data i mewn i'r ddalen honno
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Helpwch fi ar "mewnosodwch eich cod yma". Rwy'n ddechreuwr ac angen help ar beth i'w lenwi a sut! Diolch Nid wyf yn ei gael yn iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Padma,
Mae'r "mewnosodwch eich cod yma" yn nodi'r cod VBA rydych chi'n ei ddefnyddio i gyflawni rhywfaint o weithrediad yn Excel. Gan dybio bod angen i chi gymhwyso VBA i symud rhes i ddalen arall yn seiliedig ar werth penodol, ac eisiau rhedeg y cod bob X munud yn awtomatig, mae angen i chi osod y cod VBA yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, fe wnes i wneud llanast a gosod yr amser fel 0.5 a nawr ni allaf ei newid, unrhyw syniadau sut i newid y Gosodiad xMin?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo David.

Fel y soniasom ar ddiwedd y post, os oes angen i chi roi'r gorau i weithredu'r macro a newid cyfwng y cylch, copïwch y cod VBA isod i'r un ffenestr Modiwl a gwasgwch yr allwedd F5 i redeg y cod. Yna bydd y Macro yn cael ei atal, a fyddech cystal ag ail-redeg y cod uchod i nodi cyfwng newydd.



Is-ReRunMacro()

SaveSetting "Kutools", "Macro", "min", "Ymadael"

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei, Diolch! ond mae arnaf ofn nad yw'r marco hyd yn oed yn rhedeg, pan fyddaf yn pwyso F5 Excel yn anfon y gwall hwn ataf msgs: Gwall amser rhedeg 13 'Type Missmatch".



Rwy'n ei ddileu, ond os ceisiaf ei greu eto mae'r un gwall msg yn ymddangos, fy unig ddyfaliad yw fy mod wedi gosod yr amser fel 0.5 ac yn y cod, felly dim syniad sut i'w addasu nawr.



Diolch Eto am eich help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ddefnyddiol iawn, fodd bynnag rwy'n meddwl fy mod wedi gwneud llanast a gosod yr amser fel 0.5 a nawr ni allaf ei newid, unrhyw syniadau sut i newid y Gosodiad xMin?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim ond pg i fyny a thud i lawr fyddai sut i greu macro yn excel gyda dolen barhaus ac allwedd wedi'i wasgu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jack,Trwy gamgymeriad nodais 0.5 munud ac mae'n dangos gwall,
Rwy'n golygu bod xMin yn cael ei gymryd fel 0.5 munud.
Sut i gael gwared a'i newid i 1 munud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo LIMCA,
Ymddiheuriadau am yr anghyfleustra. Nid yw'r cod yn cefnogi mewnbynnu degolion.

Stopiwch y dolennu trwy redeg y cod VBA isod, ac yna ail-redwch y cod dolennu a rhowch 1 yn y blwch deialog popping up.

Is-ReRunMacro()

SaveSetting "Kutools", "Macro", "min", "Ymadael"

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr wyf yn pastio'r cod isod yr wyf wedi disodli'r llinell i fynd i mewn i'r cod gyda fy cod. Y gwall rydw i'n ei gael yw- Compile error: Expected End Sub. Help caredig.

Is ReRunMacro()
Dim xMin Fel Llinyn
Is-Adnewyddu()
'
' Adnewyddu Macro
'

'
Taflenni ("Taflen 1"). Dewiswch
ActiveWorkbook.RefreshAll
Taflenni ("Colyn-Dash"). Dewiswch
Is-End


xMin = GetSetting(AppName:="Kutools", Adran:="Macro", Allwedd:="min", Rhagosodiad:="")
Os xMin = "Ymadael" Yna
SaveSetting "Kutools", "Macro", "min", "Gau"
Is Allanfa
Gorffennwch Os
Os (xMin="") Neu (xMin = "Gau") Yna
xMin = Application.InputBox(prompt:="Rhowch yr amser egwyl sydd ei angen arnoch i ailadrodd y Macro", Teitl:="Kutools ar gyfer Excel", Math:=2)
SaveSetting "Kutools", "Macro", "min", xMin
Gorffennwch Os
Os (xMin <> "") A (xMin <> "Gau") Yna
Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
arall
Is Allanfa
Gorffennwch Os
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da, Mae angen i chi dynnu'r Is-linell a'r Is-linell Ddiwedd o'ch cod. Is-Adnewyddu()
'
' Adnewyddu Macro
'

'
Taflenni ("Taflen 1"). Dewiswch
ActiveWorkbook.RefreshAll
Taflenni ("Colyn-Dash"). Dewiswch
Gorffen Is-Newid i: '
' Adnewyddu Macro
'

'
Taflenni ("Taflen 1"). Dewiswch
ActiveWorkbook.RefreshAll
Taflenni ("Colyn-Dash"). Dewiswch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
có cách nào dừng macro khi tắt ffeil và macro tự khởi động lại khi mở lại ffeil không add
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn Excel 365 rwy'n cael gwall Run-time '13' Math diffyg cyfatebiaeth ar y llinell ganlynol: Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ron Franklin, rhoddais gynnig arni yn Excel 365, ond ni ellid atgynhyrchu'r broblem hon. 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwall llunio:

Diwedd Disgwyliedig Is

Mam przekopiowane dokładnie jak jest napisane wyzej i nie moge odnaleźć problemu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Pawid,
A allwch chi ddarparu sgrinlun o'r gwall a'r rhes wedi'i hamlygu yn y cod vba? Ni ellid atgynhyrchu'r broblem yn fy achos i. Mae'n ddrwg gennyf am yr anghyfleustra.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir