Hogyan lehet egy makrót egyszerre futtatni több munkafüzetfájlban?
Ebben a cikkben arról fogok beszélni, hogyan lehet egy makrót több munkafüzetfájlon egyszerre futtatni anélkül, hogy megnyitnánk őket. A következő módszer segíthet ennek a feladatnak az Excelben történő megoldásában.
Futtasson makrót egyidejűleg több VBA-kódú munkafüzeten
Futtasson makrót egyidejűleg több VBA-kódú munkafüzeten
Ha makrót szeretne futtatni több munkafüzeten anélkül, hogy megnyitná őket, kérjük, alkalmazza a következő VBA-kódot:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.
VBA-kód: Futtassa ugyanazt a makrót több munkafüzeten egyszerre:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
Megjegyzések: A fenti kódba másolja és illessze be saját kódját a alatt címsor és End Sub lábléc a Munkafüzetekkel. Nyissa meg (xFdItem & xFileName) és a Vége szkriptek. Lásd a képernyőképet:
3. Ezután nyomja meg a gombot F5 kulcs a kód végrehajtásához, és a Tallózás ablak megjelenik, kérjük, válasszon egy mappát, amely tartalmazza azokat a munkafüzeteket, amelyekkel ezt a makrót alkalmazni szeretné, lásd a képernyőképet:
4. Kattintson a gombra OK gombra kattintva a kívánt makró egyszerre végrehajtásra kerül egyik munkafüzetből a másikba.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!