Kopyalama veya Mac için Excel VBA kodu kullanarak sayfalarını taşıma hakkında

Makale çevirileri Makale çevirileri
Makale numarası: 288402 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Kopyalamak veya sayfa içindeki bir çalışma kitabı veya çalışma kitapları arasında taşımak için Microsoft Visual Basic for Applications (VBA) kodunu kullanabilirsiniz. Bu, birçok sayfaları taşımak veya kopyalamak istediğiniz veya bir sayfaya birden çok kopyasını yapmak isterseniz kullanışlıdır.

Bu makalede, bu görevleri yerine getirmek için VBA kodu örnekleri sağlar.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. Not Microsoft Office 2001 for Mac Service Release 1 olmadan, Macintosh için Microsoft Excel 2001'de, kopyalanan sayfaları ayrı bir çalışma kitabından kodu koymanız gerekir.

Kopyalanan sayfaları olarak aynı çalışma kitabında sayfaları kopyalar VBA kodunu, Excel 2001 for Macintosh bir sorunla karşılaştı.

Bu sorun Mac için Microsoft Office 2001 Service Release 1 giderilip Excel 2001 for Mac, bu sorun hakkında ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
286266Aynı çalışma kitabında çalışma kopyalamayı denediğinizde, Excel'in askıda kalıyor
:

Çalışma sayfaları kopyalamak için örnek kod

Etkin çalışma kitabındaki belirli bir sayfayı kopyalama

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

Belirli bir sayfa, etkin çalışma kitabındaki birden çok kez kopyalama


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
				

ActiveSheet çok zamanları kopyalama

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
				

Tüm sayfaları çalışma kitabı'tek kopyalayın...

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
				

Çalışma sayfaları taşımak için örnek kod

Çalışma kitabında yeni bir konum Active sayfa taşıma

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

Başka bir çalışma kitabı için Active sayfa taşıma

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
				

Birden çok sayfa için başka bir çalışma kitabı içinde ActiveWorkbook taşıyın...

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
				

Referanslar

Mac ve sonraki sürümleri için Microsoft Excel X

Copy yöntemi, Visual Basic Düzenleyicisi'nden hakkında daha fazla bilgi için Yardım menüsünde <a1>Microsoft Visual Basic Yardım ara</a1> seçeneğini tıklatın, kopyalama yöntemi yazın, Ara ' yı tıklatın ve "Copy yöntemi." görüntülemek için tıklatın Üç konu listelenir. Çalışma sayfaları için geçerli bir alan seçin.

Visual Basic Düzenleyicisi'nden Move yöntemi hakkında daha fazla bilgi için Yardım menüsünde <a1>Microsoft Visual Basic Yardım ara</a1> seçeneğini tıklatın, move yöntemini yazın, Ara ' yı tıklatın ve sonra "Taşıma yöntemi." görüntülemek için tıklatın Üç konu listelenir. Çalışma sayfaları için geçerli bir alan seçin.

Macintosh için Excel 2001

Copy yöntemi, Visual Basic Düzenleyicisi'nden hakkında daha fazla bilgi için Office Yardımcısı'nı tıklatın, kopyalama yöntemi yazın, Ara ' yı tıklatın ve sonra "Copy yöntemi (MS Excel VBA)" olarak görüntülemek için tıklatın

Visual Basic Düzenleyicisi'nden Move yöntemi hakkında daha fazla bilgi için Office Yardımcısı'nı tıklatın, move yöntemi yazın, Ara ' yı tıklatın ve sonra "taşıma yöntemi (MS Excel VBA)." olarak görüntülemek için tıklatın.

Aynı çalışma kitabında kodu içeren bir çalışma sayfası kopyalama ile ilgili sorunlar hakkında ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
286266XL2001: Aynı çalışma kitabı çalışma sayfası kopyalamak çalıştığınızda Excel'in kilitleniyor

Microsoft Excel 98 Macintosh Edition

Copy yöntemi, Visual Basic Düzenleyicisi'nden hakkında daha fazla bilgi için tıklatın Office Yardımcısı, türü kopyalama yöntemi, Ara ' yı tıklatın ve sonra "Copy yöntemi (Excel 97)" olarak görüntülemek için tıklatın.

Visual Basic Düzenleyicisi'nden Move yöntemi hakkında daha fazla bilgi için Office Yardımcısı'nı tıklatın, move yöntemini yazın, Ara ' yı tıklatın ve görüntülemek için tıklatın "taşıma yöntemi (Excel 97)."

Özellikler

Makale numarası: 288402 - Last Review: 31 Ocak 2007 Çarşamba - Gözden geçirme: 5.4
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Macintosh
  • Microsoft Excel 98 for Macintosh
Anahtar Kelimeler: 
kbmt kbinfo KB288402 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:288402

Geri Bildirim Ver

 

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