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

Ինչպե՞ս Excel- ում ամեն X րոպեն մեկ կրկնել կամ պտտվել մակրո:

Microsoft Excel- ի հետ աշխատելիս կարող է անհրաժեշտ լինել ստեղծել մակրոներ ՝ որոշ գործառնությունների հասնելու համար: Օրինակ, դուք ցանկանում եք ստեղծել մակրո, որպեսզի տվյալների մի շարք ավտոմատ կերպով պատճենեք նոր վայր: Քանի որ տվյալները հաճախակի կփոխվեն, ձեզ հարկավոր է այս մակրո-ն ավտոմատ կերպով գործարկել յուրաքանչյուր 5 րոպեն մեկ ՝ առանց ձեռքով այն հրահրելու, որպեսզի տվյալների այս երկու տիրույթները համաժամացվեն: Ինչպե՞ս հասնել դրան: Այս հոդվածի մեթոդը կարող է օգնել ձեզ:

Կրկնեք կամ պտտեք մակրո յուրաքանչյուր X րոպեի ընթացքում Excel- ում


Կրկնեք կամ պտտեք մակրո յուրաքանչյուր X րոպեի ընթացքում Excel- ում

Հետևյալ VBA կոդը կարող է օգնել Excel- ում յուրաքանչյուր X րոպեն մեկ մակրո կրկնել: Խնդրում եմ արեք հետևյալ կերպ.

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացել Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Կոդ պատուհան Տեսեք,

VBA կոդ. Կրկնեք կամ պտտեք մակրո յուրաքանչյուր X րոպե 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

ՆշումԿոդում խնդրում ենք փոխարինել այս տողը «Տեղադրեք ձեր կոդը այստեղ ծածկագրով, որը դուք կգործարկեք յուրաքանչյուր X րոպեն:

3. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, խնդրում ենք մուտքագրել միջակայքի ժամանակը, որի հիման վրա կկրկնեք մակրոը, ապա կտտացրեք այն OK կոճակ Տեսեք,

Այսուհետ, որոշակի Macro- ն անընդհատ գործելու է յուրաքանչյուր 5 րոպեն մեկ ձեր աշխատանքային գրքում:

ՆշումԵթե ​​Ձեզ անհրաժեշտ է դադարեցնել մակրոի կատարումը և փոխել ցիկլի միջակայքը, խնդրում ենք պատճենել ստորև ներկայացված VBA կոդը նույնի մեջ Մոդուլներ պատուհանը և սեղմել կոճակը F5 ծածկագիրը գործելու համար: Այնուհետև մակրոը կդադարեցվի, խնդրում ենք վերամշակել վերոնշյալ կոդը ՝ նոր ընդմիջում նշելու համար:

VBA կոդ. Դադարեցնել մակրոի կատարումը

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

Գրասենյակային ներդիր - Excel- ում աշխատանքային գրքերի ներդիրներով զննում, խմբագրում և կառավարում.

Office Tab- ը Microsoft Excel- ին է բերում ներդիրով ներդիրը, ինչպես երեւում է վեբ զննարկիչներում, ինչպիսիք են Google Chrome- ը, Internet Explorer- ի նոր տարբերակները և Firefox- ը: Դա կլինի խնայող գործիք և անփոխարինելի ձեր աշխատանքում: Տե՛ս ստորև ցուցադրումը.

Կտտացրեք Office Tab- ի անվճար փորձարկման համար:

Excel- ի գրասենյակի ներդիր


Առնչվող հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (31)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հոյակապ! Խնդրում եմ, ինչպե՞ս դադարեցնեմ օղակը 10 անգամ ասելուց հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Դուք կարող եք մուտք գործել Code պատուհան՝ կոդը կոտրելու համար (սեղմեք Break կոճակի վրա)՝ հանգույցը դադարեցնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր! Ես չհասկացա, թե ինչպես կարելի է կոտրել մակրո կոդը, որպեսզի նորից սահմանեմ հանգույցի կատարման ժամանակը: Կարո՞ղ եք ավելի մանրամասն նկարագրել, թե ինչպես դա անել: Որտե՞ղ է գրանցվում գործարկման ցիկլի ժամանակի արժեքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Jack- ը,
Իմ սխալը.
Հոդվածի վերջում ավելացվել է նոր VBA կոդ, որը կարող է դադարեցնել մակրոները: Խնդրում ենք փորձել: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն դրա համար, լավ է ստացվում: Ես կոդավորման սկսնակ եմ, ուստի խնդրում եմ, ներիր ինձ, եթե սա պարզ է...

Ինչպե՞ս կարող եմ նորից հայտնվի երկխոսության տուփը: Ես այն խրված եմ 1 րոպեանոց օղակի վրա: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Պարզապես կոտրեք կոդը և նորից գործարկեք այն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi!
Սա հիանալի է, բայց կա՞ որևէ միջոց այն վերադարձնելու համար աղյուսակի առաջին շարքը նորից սկսելուց առաջ:


Thanks!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ասա ինձ ավելին, թե ինչպես դադարեցնել մակրոյի կատարումը և փոխել ցիկլի միջակայքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ասա ինձ ավելին, թե ինչպես դադարեցնել մակրոյի կատարումը և փոխել ցիկլի միջակայքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Հոդվածի վերջում ավելացվել է նոր VBA կոդ, որը կարող է դադարեցնել մակրոները: Խնդրում ենք փորձել: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդրում ենք տրամադրել կոդը՝


«Ինչպես կրկնել կամ պտտել մակրո յուրաքանչյուր X վայրկյանում Excel-ում»


Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Խնդրում ենք փոխել «Application.OnTime Now() + TimeValue («0:» + xMin + «:0»), «ReRunMacro»» տողը:
Application.OnTime Now() + TimeValue ("0:" + "0:" + xMin), "ReRunMacro"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hey
Ես հարցում ունեմ, ձեր կոդերը հիանալի աշխատում են և կրկնօրինակում են իմ հաջորդ սյունակների տվյալները յուրաքանչյուր 5 րոպեն մեկ, բայց 3 ժամ հետո իմ բոլոր սյունակները լցվում են, քանի որ դա 2003 excel է: Խնդրում եմ, կարող եք օգնել ինձ կոդով ստուգելու համար, թե արդյոք որևէ այլ սյունակ թափուր չէ, ապա ստեղծեք նոր թերթ և պատճենեք տեղադրեք տվյալները այդ թերթում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, պարզապես օգնեք ինձ «տեղադրեք ձեր կոդը այստեղ»: Ես սկսնակ եմ և օգնության կարիք ունեմ, թե ինչ և ինչպես լրացնել: Շնորհակալություն, ճիշտ չեմ հասկանում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Պադմա,
«Տեղադրեք ձեր կոդը այստեղ» նշում է VBA կոդը, որը դուք օգտագործում եք Excel-ում որոշակի գործողության հասնելու համար: Ենթադրենք, որ դուք պետք է կիրառեք VBA՝ որոշակի արժեքի հիման վրա տող այլ թերթ տեղափոխելու համար, և ցանկանում եք ավտոմատ կերպով գործարկել կոդը յուրաքանչյուր X րոպեն մեկ, դուք պետք է այստեղ տեղադրեք VBA կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես խառնաշփոթ եմ արել և ժամանակը սահմանել եմ որպես 0.5, և այժմ չեմ կարող փոխել այն, կա՞ն գաղափարներ, թե ինչպես փոխել xMin կարգավորումը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դավիթ:

Ինչպես նշեցինք գրառման վերջում, եթե Ձեզ անհրաժեշտ է դադարեցնել մակրոյի կատարումը և փոխել ցիկլի միջակայքը, խնդրում ենք պատճենել ստորև նշված VBA կոդը նույն Module պատուհանում և սեղմել F5 ստեղնը՝ կոդը գործարկելու համար: Այնուհետև մակրոն կդադարեցվի, խնդրում ենք նորից գործարկել վերը նշված կոդը՝ նոր ընդմիջում նշելու համար:



Sub ExitReRunMacro()

SaveSetting «Kutools», «Macro», «min», «Exit»

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հեյ, շնորհակալություն: բայց վախենում եմ, որ marco-ն նույնիսկ չի աշխատում, երբ սեղմում եմ F5 excel-ը, ինձ ուղարկում է այս սխալի հաղորդագրությունը. Run time error 13 «Type Missmatch»:



Ես ջնջեցի այն, բայց եթե նորից փորձեմ ստեղծել, նույն սխալի հաղորդագրությունն է հայտնվում, իմ միակ ենթադրությունն այն է, որ ես ժամանակը սահմանել եմ որպես 0.5 և կոդում, այնպես որ հիմա չգիտեմ, թե ինչպես փոխել այն:



Կրկին շնորհակալություն ձեր օգնության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, շատ օգտակար է, սակայն կարծում եմ, որ ես խառնել եմ և ժամանակը սահմանել եմ որպես 0.5, և այժմ չեմ կարող փոխել այն, կա՞ն գաղափարներ, թե ինչպես փոխել xMin կարգավորումը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես ստեղծել մակրո Excel-ում շարունակական հանգույցով և սեղմված ստեղնով, կլինի միայն pg վերև և pg վար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ջեք, սխալմամբ ես մուտքագրեցի 0.5 րոպե և ցույց է տալիս սխալ,
Նկատի ունեմ, որ xMin-ը վերցված է 0.5 րոպե:
Ինչպե՞ս ազատվել և այն դարձնել 1 րոպե:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև LIMCA,
Ներողություն անհանգստության համար. Կոդը չի աջակցում տասնորդական թվերի մուտքագրմանը:

Խնդրում ենք դադարեցնել պտույտը` գործարկելով ներքևի VBA կոդը, այնուհետև նորից գործարկեք պտտվող կոդը և մուտքագրեք 1-ը բացվող երկխոսության վանդակում:

Sub ExitReRunMacro()

SaveSetting «Kutools», «Macro», «min», «Exit»

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես տեղադրում եմ ներքևի կոդը, որում ես փոխարինել եմ տողը, որպեսզի մուտքագրեմ կոդը իմ կոդով: Սխալը, որը ես ստանում եմ, հետևյալն է. Կազմելու սխալ. սպասվող վերջ ենթ. Սիրով օգնեք։

Sub ReRunMacro ()
Dim xMin As String
Ենթ թարմացում ()
'
Թարմացրեք մակրոն
'

'
Թերթեր («Թերթ1»): Ընտրեք
ActiveWorkbook.RefreshAll
Թերթիկներ («Pivot-Dash»): Ընտրեք
Վերջ Sub


xMin = GetSetting (AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
Եթե ​​xMin = «Ելք» Ապա
SaveSetting «Kutools», «Macro», «min», «False»
Ելք ենթ
Վերջ: Եթե
Եթե ​​(xMin = "") Կամ (xMin = "False") Ապա
xMin = Application.InputBox(prompt:="Խնդրում ենք մուտքագրել մակրո-ն կրկնելու համար անհրաժեշտ միջակայքի ժամանակը", Title:="Excel-ի համար Kutools", Type:=2)
SaveSetting «Kutools», «Macro», «min», xMin
Վերջ: Եթե
Եթե ​​(xMin <> "") Եվ (xMin <> "False") Ապա
Application.OnTime Now() + TimeValue ("0:" + xMin + ":0"), "ReRunMacro"
Ուրիշ
Ելք ենթ
Վերջ: Եթե
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր, Դուք պետք է ձեր կոդից հեռացնեք ենթագիծը և End Sub տողը: Ենթ թարմացում ()
'
Թարմացրեք մակրոն
'

'
Թերթեր («Թերթ1»): Ընտրեք
ActiveWorkbook.RefreshAll
Թերթիկներ («Pivot-Dash»): Ընտրեք
Ավարտել ենթափոխությունը՝ '
Թարմացրեք մակրոն
'

'
Թերթեր («Թերթ1»): Ընտրեք
ActiveWorkbook.RefreshAll
Թերթիկներ («Pivot-Dash»): Ընտրեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
có cách nào dừng մակրո khi tắt ֆայլ và մակրո tự khởi động lại khi mở lại ֆայլ không ավելացնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Excel 365-ում ես ստանում եմ Run-time error '13' Type անհամապատասխանություն հետևյալ տողում. Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռոն Ֆրանկլին, ես փորձեցի այն Excel 365-ում, բայց այս խնդիրը չհաջողվեց վերարտադրել: 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կազմելու սխալ.

Ակնկալվող ավարտի ենթ

Mam przekopiowane dokładnie jak jest napisane wyzej i nie moge odnaleźć problemu
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Պավիդ,
Կարո՞ղ եք սխալի և ընդգծված տողի սքրինշոթ տալ vba կոդի մեջ: Խնդիրը հնարավոր չէր վերարտադրել իմ դեպքում։ Կներեք անհարմարության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
klo mengulang Makro sebanyak 3 kali, atau seberapa kali yang kita mau, itu gi mana yahh ? trima kasih sebelumny...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռիզալ,

Հետևյալ VBA կոդը կարող է օգնել. Խնդրում եմ, փորձեք: Շնորհակալություն.
Ծանոթագրություններ. Կոդի մեջ դուք պետք է կազմաձևեք հետևյալ տողերը՝ ձեր կարիքները բավարարելու համար.
1) Այս տողում. Եթե ​​Val(xNum) = 3 Ապա
Այստեղ թիվ 3-ը ներկայացնում է մակրոյի կրկնման քանակությունը: Երեք անգամ պտտվելուց հետո մակրոն կդադարի: Խնդրում ենք փոխել այն ձեզ անհրաժեշտ քանակով:
2) Այս տողում. Application.OnTime Now() + TimeValue ("0:" + "0" + ":10"), "ReRunMacro"
Այստեղ 10 թիվը նշանակում է, որ մակրոն կրկնվելու է 10 վայրկյանը մեկ։ Դուք կարող եք նշել ժամերը, րոպեները և վայրկյանները, ինչպես ձեզ անհրաժեշտ է:
Sub ReRunMacro()
'Updated by Extendoffice 20230203
Dim xMin As String
Dim xNum As String
'Insert your code here

Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True

    xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
    xNum = GetSetting(AppName:="Kutools", Section:="Macro", Key:="Num", Default:="")
    If xMin = "Exit" Then
    SaveSetting "Kutools", "Macro", "min", "False"
    Exit Sub
    End If
    
    If xNum = "" Then xNum = "1"
    If Val(xNum) = 3 Then 'Here the number 3 represents the number of times you want to repeat the macro. After three times looping, the macro will stop
        xNum = 1
        SaveSetting "Kutools", "Macro", "Num", "1"
        Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="ReRunMacro", Schedule:=False
        Exit Sub
    End If
    xNum = Str(Val(xNum) + 1)
    SaveSetting "Kutools", "Macro", "Num", xNum

    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:" + "0" + ":10"), "ReRunMacro" 'The number 10 here means that the macro will repeat every 10 seconds. You can specify the hours, minutes and seconds as you need.
    Else
      Exit Sub
    End If
End Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից