Momentálne ste offline a čaká sa, kým sa znova pripojíte na internet

Ako skopírovať alebo presunúť hárky pomocou kódu VBA v programe Excel pre systém Macintosh

DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.

Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:288402
SUHRN
Microsoft kódu Visual Basic for Applications (VBA) môžete skopírovať alebo presunúť hárky v zošite alebo medzi zošitmi. To je obzvlášť užitočné, ak chcete premiestniť alebo skopírovať mnohých listoch, alebo ak chcete vytvoriť viacero kópií na list.

Tento článok poskytuje vzorky kód VBA pre splnenie týchto úloh.
DALSIE INFORMACIE
Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Toto zahŕňa, okrem iného, implicitné záruky obchodovateľnosti a vhodnosti pre konkrétny účel. Úroveň odbornosti článku predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť konkrétny postup, ale nie modifikuje tieto príklady poskytovať pridanú funkčnosť alebo výstavbe postupy splniť vaše konkrétne požiadavky. Poznámka: V programe Microsoft Excel 2001 pre Macintosh bez Microsoft Office 2001 pre Mac Service Release 1, ste v inom zošite z kariet kopírovaný umiestniť kód.

Program Excel 2001 pre Macintosh nemal problém, keď kód VBA, ktorý skopíruje hárky je v tom istom zošite ako listy kopírovaný.

Tento problém je vyriešený s Service Release 1 pre Microsoft Office 2001 pre Mac. Dodatočné informácie tento problém v programe Excel 2001 pre Mac, po kliknutí na nasledovné číslo článku databázy Microsoft Knowledge Base:
286266Program Excel prestane reagovať pri pokuse skopírovať hárok v rovnakom zošite
:

Vzorky kód na kopírovanie zošitov

Skopírovať špecifické hárok aktívneho zošita

Sub Copier1()    'Replace "Sheet1" with the name of the sheet to be copied.    ActiveWorkbook.Sheets("Sheet1").Copy _       after:=ActiveWorkbook.Sheets("Sheet1")End Sub				

Skopírovať špecifické hárok aktívneho zošita viackrát

Sub Copier2()    Dim x As Integer        x = InputBox("Enter number of times to copy Sheet1")    For numtimes = 1 To x        'Loop by using x as the index number to make x number copies.        'Replace "Sheet1" with the name of the sheet to be copied.        ActiveWorkbook.Sheets("Sheet1").Copy _           After:=ActiveWorkbook.Sheets("Sheet1")    NextEnd Sub				

Kópia ActiveSheet viac krát

Sub Copier3()   Dim x As Integer      x = InputBox("Enter number of times to copy active sheet")   For numtimes = 1 To x      'Loop by using x as the index number to make x number copies.      ActiveWorkbook.ActiveSheet.Copy _         Before:=ActiveWorkbook.Sheets("Sheet1")         'Put copies in front of Sheet1.         'Replace "Sheet1" with sheet name that you want.   NextEnd Sub				

Kopírovať všetky hárky v zošite raz

Sub Copier4()   Dim x As Integer   For x = 1 To ActiveWorkbook.Sheets.Count      'Loop through each of the sheets in the workbook      'by using x as the sheet index number.      ActiveWorkbook.Sheets(x).Copy _         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)         'Puts all copies after the last existing sheet.   NextEnd Sub				

Vzorky kód presunúť hárky

Premiestniť aktívny hárok do novej pozície v zošite

Sub Mover1()    ActiveSheet.Move _       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)       'Moves active sheet to end of active workbook.End Sub				

Premiestniť aktívny hárok do iného zošita

Sub Mover2()    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)    'Moves active sheet to beginning of named workbook.    'Replace Test.xls with the full name of the target workbook you want.End Sub				

Posunúť viacerých hárkov v ActiveWorkbook do iného zošita

Sub Mover3()   Dim BkName As String   Dim NumSht As Integer   Dim BegSht As Integer   'Starts with second sheet - replace with index number of starting sheet.   BegSht = 2   'Moves two sheets - replace with number of sheets to move.   NumSht = 2   BkName = ActiveWorkbook.Name        For x = 1 To NumSht      'Moves second sheet in source to front of designated workbook.      Workbooks(BkName).Sheets(BegSht).Move _         Before:=Workbooks("Test.xls").Sheets(1)         'In each loop, the next sheet in line becomes indexed as number 2.      'Replace Test.xls with the full name of the target workbook you want.    NextEnd Sub				
ODKAZY

Microsoft Excel X pre Mac a novšie verzie

Ďalšie informácie o metóde kópiu, Visual Basic Editor kliknite Hľadať Pomocníka programu Microsoft Visual Basic na Pomocník ponuka, typu kópia metóda, kliknite na tlačidlo Vyhľadávanie, a potom kliknite na položku Zobraziť "Kópia metóda." Tri témy sú uvedené. Vybrať tú, ktorá sa vzťahuje na pracovné hárky.

Ďalšie informácie o metódu Move, Visual Basic Editor kliknite Hľadať Pomocníka programu Microsoft Visual Basic na Pomocník ponuka, typu presunúť metódu, kliknite na tlačidlo Vyhľadávanie, a potom kliknite na položku Zobraziť "Move metóda." Tri témy sú uvedené. Vybrať tú, ktorá sa vzťahuje na pracovné hárky.

Program Excel 2001 pre Macintosh

Ďalšie informácie o metóde kópiu, Visual Basic Editor kliknite na Asistenta programu Office, zadajte kópia metóda, kliknite na tlačidlo Vyhľadávanie, a potom kliknite na položku Zobraziť "Kópia metóda (MS Excel VBA)."

Ďalšie informácie o metódu Move, Visual Basic Editor kliknite na Asistenta programu Office, zadajte presunúť metódu, kliknite na tlačidlo Vyhľadávanie, a potom kliknite na položku Zobraziť "Move metóda (MS Excel VBA)."

Ďalšie informácie o problémoch s kopírovaní hárkov, ktoré obsahujú kód v tom istom zošite, kliknite na nasledujúce číslo článku databázy Microsoft Knowledge Base:
286266 XL2001: Excel zasekne pri pokuse skopírovať hárok v rovnakom zošite

Program Microsoft Excel 98 Macintosh Edition

Ďalšie informácie o metóde kópiu, Visual Basic Editor kliknite na Asistenta programu Office, zadajte kópia metóda, kliknite na tlačidlo Vyhľadávanie, a potom kliknite na položku Zobraziť "Kopírovať metóda (Excel 97)."

Ďalšie informácie o metódu Move, Visual Basic Editor klikniteAsistent programu Office, typu presunúť metódu, kliknite na tlačidlo Vyhľadávanie, a potom kliknite na položku Zobraziť "Presunúť metódu (Excel 97)."

XL2001KB MAC XL2001 XL98 Excel kópiu kód VBA programovania automatizácie jazyka Visual Basic makro prevod XLX XL2004

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 288402 – Posledná kontrola: 10/24/2011 10:32:00 – Revízia: 2.0

Microsoft Excel 2004 for Mac, Microsoft Excel X for Macintosh, Microsoft Excel 2001 for Macintosh, Microsoft Excel 98 for Macintosh

  • dftsdahomeportal kbinfo kbmt KB288402 KbMtsk
Pripomienky
onerror="var m=document.createElement('meta');m.name='ms.dqp0';m.content='true';document.getElementsByTagName('head')[0].appendChild(m);" onload="var m=document.createElement('meta');m.name='ms.dqp0';m.content='false';document.getElementsByTagName('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?">