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

Preklady článku Preklady článku
ID článku: 288402 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

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")
    Next
End 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.
   Next
End 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.
   Next
End 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.
    Next
End 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 kliknite Asistent 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)."

Vlastnosti

ID článku: 288402 - Posledná kontrola: 24. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Macintosh
  • Microsoft Excel 2001 for Macintosh
  • Microsoft Excel 98 for Macintosh
Kľúčové slová: 
dftsdahomeportal kbinfo kbmt KB288402 KbMtsk
Strojovo preložené
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

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com