Prihl�si� sa

Select the product you need help with

Ako skop�rova� alebo presun�� h�rky pomocou k�du VBA v programe Excel pre syst�m Macintosh

ID �l�nku: 288402 - Zobrazi� produkty, ktor�ch sa tento �l�nok t�ka.

Kliknut�m sem zobraz�te vyhl�senie t�kaj�ce sa strojovo prelo�en�ch �l�nkov datab�zy KB

Kliknut�m sem zobraz�te strojovo prelo�en� �l�nok a p�vodn� anglick� �l�nok ved�a seba

Rozbali� v�etko | Zbali� v�etko

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.

Sp� na za�iatok | Odo�lite odozvu

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:

286266

(http://support.microsoft.com/kb/286266/ )

Program 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

Sp� na za�iatok | Odo�lite odozvu

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

(http://support.microsoft.com/kb/286266/EN-US/ )

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)."

Sp� na za�iatok | Odo�lite odozvu

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

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

(http://support.microsoft.com/kb/288402/en-us/ )

Sp� na za�iatok | Odo�lite odozvu