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

Sut i redeg yr un macro ar daflenni gwaith lluosog ar yr un pryd yn Excel?

Fel rheol, gallwn redeg macro mewn taflen waith, os oes angen i sawl dalen gymhwyso'r un macro hwn, dylech sbarduno'r cod fesul un dalen. Os oes unrhyw ffordd gyflym arall o redeg yr un macro ar sawl taflen waith ar unwaith yn Excel?

Rhedeg neu weithredu'r un macro ar daflenni gwaith lluosog ar yr un pryd â chod VBA


Rhedeg neu weithredu'r un macro ar daflenni gwaith lluosog ar yr un pryd â chod VBA

I redeg macro ar sawl dalen ar yr un pryd heb ei sbarduno fesul un ddalen, gallwch gymhwyso'r cod VBA canlynol, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.

Cod VBA: Rhedeg yr un macro ar nifer o daflenni gwaith ar yr un pryd:

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

Nodyn: Yn y cod uchod, copïwch a gludwch eich cod eich hun heb y is pennawd a Is-End troedyn rhwng y Is-god rhedeg () ac Is-End sgriptiau. Gweler y screenshot:

doc yn rhedeg macro ym mhob dalen 1

3. Yna rhowch y cyrchwr ar y rhan gyntaf macro, a gwasgwch F5 allwedd i redeg y cod, a bydd eich cod macro yn cael ei gymhwyso i ddalen fesul un.


Tynnwch yr holl macros o lyfrau gwaith lluosog:

Kutools ar gyfer Excel's Swp Tynnwch yr holl Macros gall cyfleustodau eich helpu i gael gwared ar yr holl macros o lyfrau gwaith lluosog yn ôl yr angen. Dadlwythwch a threialwch am ddim Kutools ar gyfer Excel nawr!

mae doc yn rhedeg macro os yw celloedd yn newid 3

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!


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 (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-Ddosometh()
Dim xSh Fel Taflen Waith
Application.ScreenUpdating = Anghywir
Ar gyfer Pob xSh Mewn Taflenni Gwaith
xSh.Dewis
Ffoniwch RunCode
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End
Is-gôd rhediad()
Gyda thaflenni gwaith ("2018")
.EnableOutlining = Gwir
.EnableSelection = xlNoCyfyngiadau
.Protect Password:="workana1234", _
Cynnwys:=Gwir, UserInterfaceOnly:=Gwir
Diwedd Gyda
Is-End


Helo! he 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.

Gwall ar y dull "Dewis" o Objeto "_Worksheet"



Help!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar Ail-ddechrau Gwall Nesaf
uchod
xSh.Dewis
Lleihawyd y sylw hwn gan y safonwr ar y wefan
1004 gwall amser rhedeg
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I'r rhai sydd â gwall amser rhedeg 1004, gwiriwch nad oes gennych unrhyw ddalennau cudd. Os gwnewch, datguddiwch nhw. Yna mae'r pyt cod hwn yn gweithio. Gwall amser rhedeg Greetings.th 1004, gwiriwch nad oes gennych unrhyw ddalennau cudd. Os gwnewch, datguddiwch nhw. Yna mae'r pyt cod hwn yn gweithio. Cyfarchion.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
or
Ar Ail-ddechrau Gwall Nesaf

' uchod

xSh.Dewis

Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i wneud i hyn redeg ar ddalenni heb eu cuddio yn unig? Mae angen y cod hwn arnaf i redeg ar ddalennau gweladwy yn unig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod "Rhedeg yr un macro ar daflenni gwaith lluosog ar yr un pryd" yn gweithio'n berffaith, Diolch !

Fodd bynnag, mae gennyf y gwall hwn yn "xSh.Select" ac nid wyf yn gwybod pam ... nid oes unrhyw fater i'w weld yn y taflenni ... AC nid oes gennyf unrhyw daflenni cudd.

Y gwall yw '1004': Methodd 'Dewis' gwrthrych '_Daflen Waith'


Diolch ymlaen llaw am eich help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cyn xSh.selectyou rhaid i activate
Felly,xSh.activatexSh.select
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae eithrio rhai dalennau ac ychwanegu On Error Resume Next? Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio, ond mae'r daflen gyfredol bob amser yn rhedeg ddwywaith. Mae'r taflenni gorffwys yn berffaith ac yn rhedeg unwaith yn unig!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ti,
Efallai y gallwch chi ddefnyddio'r cod isod i'ch angen:
Sub WorksheetLoop()
         Dim Current As Worksheet
         For Each Current In Worksheets

          'Insert your code here.
           
      End Sub


Nodyn: Yn y cod uchod, copïwch a gludwch eich cod eich hun heb yr Is-bennawd a'r Is-droedyn Diwedd.

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn! Ond nid yw'n gweithio. Dim ond am sawl gwaith y mae'n rhedeg y daflen gyfredol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Terimakasih sebelumnya atas ilmu ilmu yg sudah di rhannu. 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.

Contohnya.
Saya sudah menggunakan vBA anda yg berfungsi untuk mengurutkan data secara otomatis.

Tetapi data ketika yg saya terapkan itu berubah karena hasil pencarian data dari sheet yg berbeda. vBA tersebut tidak aktif. Harus terlebih dahulu masuk ke Dalen Tersebut i'r data merubah dengan manual barulah VBa pengurutan dat tersebut aktif.

Ystyr geiriau: A ydych yn dicarikan VBA nya?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir