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

Ինչպե՞ս Excel- ում միևնույն մակրո գործարկել միևնույն աշխատանքային թերթիկների վրա:

Սովորաբար, մենք կարող ենք մակրո գործարկել աշխատանքային թերթում, եթե կան մի քանի թերթեր, որոնք անհրաժեշտ է կիրառել այս նույն մակրոը, պետք է մեկ առ մեկ թերթիկ գործարկել կոդը: Եթե ​​կա՞ Excel- ում միևնույն մակրոն միանգամից մի քանի աշխատաթերթերի վրա աշխատելու այլ արագ եղանակ:

Գործարկել կամ կատարել նույն մակրոը միևնույն ժամանակ մի քանի աշխատանքային թերթերում ՝ միաժամանակ VBA կոդով


Գործարկել կամ կատարել նույն մակրոը միևնույն ժամանակ մի քանի աշխատանքային թերթերում ՝ միաժամանակ VBA կոդով

Միաժամանակ մի քանի թերթերով մակրո գործարկելու համար, առանց այն մեկ առ մեկ թերթ հրահրելու, կարող եք կիրառել հետևյալ VBA կոդը, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ Պատուհանը:

VBA կոդ. Միևնույն ժամանակ աշխատեք միևնույն մակրոը մի քանի աշխատանքային թերթերի վրա.

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

ՆշումՎերոհիշյալ ծածկագրում խնդրում ենք պատճենեք և տեղադրեք ձեր սեփական ծածկագիրը առանց Sub վերնագիր եւ Վերջ Sub ստորոտը միջեւ Ենթակողմնորոշիչ () և Վերջ Sub սցենարներ Տեսեք,

փաստաթղթի գործարկման մակրո բոլոր թերթերում 1

3, Դրանից հետո կուրսորը դրեք մակրո առաջին մասի վրա և սեղմեք F5 կոդը գործարկելու համար ստեղնը, և ձեր մակրո ծածկագիրը կկիրառվի մեկ առ մեկ թերթիկի վրա:


Հեռացրեք բոլոր մակրոները բազմաթիվ աշխատանքային գրքերից.

Excel- ի համար նախատեսված գործիքներ's Փաթեթում հեռացնել բոլոր մակրոները օգտակար ծրագիրը կարող է օգնել ձեզ հեռացնել բոլոր մակրոները բազմաթիվ աշխատանքային գրքերից, որքան ձեզ հարկավոր է: Ներբեռնեք և անվճար փորձեք Kutools Excel- ի համար հիմա:

doc վազքի մակրո, եթե բջիջը փոխվում է 3

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub Dosomething ()
Dim xSh As Worksheet
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր xSh-ի համար աշխատանքային թերթերում
xSh.Ընտրեք
Զանգահարեք RunCode-ը
հաջորդ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Sub RunCode ()
Աշխատանքային թերթիկներով («2018»)
.EnableOutlining = Ճիշտ է
.EnableSelection = xlNoRestrictions
.Պաշտպանեք գաղտնաբառը:="workana1234", _
Բովանդակություն:=Ճշմարիտ, Օգտվողի միջերեսը միայն:=Ճիշտ
Վերջ
Վերջ Sub


Հա՜ նա seguido las pautras pero me señala como error la fila xSh.Select.

Al dar F5 me indica que se ha producido un error 1004 en tiempo de ejecucion.

«Ընտրել» մեթոդի սխալ՝ «_Աշխատանքային թերթիկ»



Օգնություն !!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ս.թ. սխալի Ռեզյումե Next
վեր
xSh.Ընտրեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
1004 գործարկման ժամանակի սխալ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նրանց համար, ովքեր ունեն 1004 գործարկման ժամանակի սխալ, ստուգեք, որ թաքնված թերթիկներ չունեք: Եթե ​​դա անում եք, բացեք դրանք: Այնուհետև այս կոդի հատվածն աշխատում է: Greetings.th 1004 գործարկման ժամանակի սխալ, ստուգեք, որ թաքնված թերթիկներ չունեք: Եթե ​​դա անում եք, բացեք դրանք: Այնուհետև այս կոդի հատվածն աշխատում է: Ողջույններ։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
or
Ս.թ. սխալի Ռեզյումե Next

«վերևում

xSh.Ընտրեք

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ միջոց այս աշխատանքը միայն չթաքնված թերթերի վրա իրականացնելու համար: Ինձ պետք է, որ այս կոդը գործարկվի միայն տեսանելի թերթիկների վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
«Գործարկել միևնույն մակրոները մի քանի աշխատաթերթերի վրա միաժամանակ» ծածկագիրը հիանալի է աշխատում, Շնորհակալություն:

Այնուամենայնիվ, ես այս սխալն ունեմ «xSh.Select»-ում և չգիտեմ ինչու... թերթերում տեսանելի խնդիր չկա... ԵՎ ես թաքնված թերթեր չունեմ:

Սխալը «1004» է. «_Worksheet» օբյեկտի մեթոդի ընտրությունը ձախողվեց


Նախապես շնորհակալություն ձեր օգնության համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նախքան xSh.selecty դուք պետք է ակտիվացնեք
Այսպիսով, xSh.activatexSh.select
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս բացառել որոշ թերթիկներ և ավելացնել On Error Resume Next: Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն աշխատում է, բայց ընթացիկ թերթիկը միշտ աշխատում է երկու անգամ: Մնացած թերթիկները կատարյալ են և աշխատում են միայն մեկ անգամ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Հո,
Հնարավոր է, որ դուք կարող եք օգտագործել ստորև նշված կոդը ձեր կարիքների համար.
Sub WorksheetLoop()
         Dim Current As Worksheet
         For Each Current In Worksheets

          'Insert your code here.
           
      End Sub


ՆշումՎերոնշյալ կոդում խնդրում ենք պատճենել և տեղադրել ձեր սեփական կոդը՝ առանց ենթավերնագրի և End Sub ստորագրի:

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն! Բայց դա չի աշխատում: Այն գործարկում է ընթացիկ թերթիկը միայն մի քանի անգամ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Terimakasih sebelumnya atas ilmu ilmu yg sudah di share. Saya sudah memakai beberapa VBA anda.

Tapi bolehkan saya meminta tolong untul mencarikan VBA yg tepat untuk mengaktifkan VBA yg sudah ada di sheet tertentu tanpa harus masuk ke sheet tersebut.

Կոնտոհնյա.
Saya sudah menggunakan vBA anda yg berfungsi untuk mengurutkan data secara otomatis.

Tetapi ketika data yg saa terapkan itu berubah karena hasil pencarian data dari sheet yg berbeda. vBA tersebut tidak aktif. Harus terlebih dahulu masuk ke Sheet Tersebut untuk merubah data dengan manual barulah VBa pengurutan dat tersebut aktif.

Bisakah dicarikan VBA nya?
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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