Program aracılığıyla tüm aralık adları Excel içinde kopyalama.

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

Özet

Microsoft Office Excel, Microsoft Visual Basic for Applications (VBA) makrosu aralık adları, etkin çalışma kitabından başka bir çalışma kitabına kopyalamak için kullanabilirsiniz oluşturabilirsiniz.

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.

Etkin çalışma kitabından aralık adları, başka çalışma kitabına kopyalamak için bir makro oluşturmak için aşağıdaki örnekte adımları kullanın:
  1. Excel'i başlatın ve yeni bir çalışma kitabında seçin ardından A1 hücresi.
  2. Aşağıdaki eylemlerden birini gerçekleştirin:
    • Microsoft Office Excel 2007'de, Formül sekmesini tıklatın ve Tanımlanmış adları grubunda Ad tanımla'yı tıklatın.
    • Microsoft Office Excel 2003'te ve Microsoft Excel'in önceki sürümlerinde, ad, Ekle menüsünden'ı seçin ve Tanımla ' yı tıklatın.
  3. Ad tanımla iletişim kutusunda, Giriş adları, çalışma kitabı kutusundaki Range1 yazın ve Tamam ' ı tıklatın.
  4. B1 hücresini seçin.
  5. Aşağıdaki eylemlerden birini gerçekleştirin:
    • Excel 2007'de, Formül sekmesini tıklatın ve Tanımlanmış adları grubunda Ad tanımla'yı tıklatın.
    • Excel 2003'te ve Excel'in önceki sürümlerinde, ad, Ekle menüsünden'ı seçin ve Tanımla ' yı tıklatın.
  6. Ad tanımla iletişim kutusunda, Giriş adları, çalışma kitabı kutusundaki Range2 yazın ve Tamam ' ı tıklatın.
  7. Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın.
  8. Ekle menüsünden modülü ' nü tıklatın.
  9. Modül sayfasında, aşağıdaki kodu yazın:
    Sub Copy_All_Defined_Names()
       ' Loop through all of the defined names in the active
       ' workbook.
         For Each x In ActiveWorkbook.Names
          ' Add each defined name from the active workbook to
          ' the target workbook ("Book2.xls" or "Book2.xlsm").
          ' "x.value" refers to the cell references the
          ' defined name points to.
          Workbooks("Book2.xls").Names.Add Name:=x.Name, _
             RefersTo:=x.Value
       Next x
    End Sub
  10. ALT+F11 tuşlarına basarak Excel'e dönün.
  11. Aşağıdaki eylemlerden birini gerçekleştirin:
    • Excel 2007'de, Microsoft Office düğmesi ' ni tıklatın, Kaydet öğesinin üzerine gelin, Excel Macro-Enabled çalışma kitabı ' nı tıklatın ve daha sonra çalışma kitabını, Book1.xlsm kaydedin.
    • Excel 2003'te ve Excel'in önceki sürümlerinde Dosya) menüsünde <a1>Kaydet</a1> seçeneğini tıklatın ve sonra çalışma kitabını, Kitap1.xls kaydedebilirsiniz.
  12. Aşağıdaki eylemlerden birini gerçekleştirin:
    • Excel 2007'de, Microsoft Office düğmesi ' ni tıklatın, Yeni ' yi tıklatın, Boş bir çalışma kitabı ' nı tıklatın ve sonra Oluştur ' u tıklatın.
    • Excel 2003'te Dosya menüsünde Yeni'yi tıklatın ve sonra Yeni çalışma kitabı</a2> görev bölmesinde boş bir çalışma kitabı ' ı tıklatın.
    • Excel 2002'de ve Excel'in önceki sürümlerinde, Dosya menüsünden Yeni ' yi tıklatın, çalışma kitabı ' nı tıklatın ve sonra Tamam ' ı tıklatın.
  13. Aşağıdaki eylemlerden birini gerçekleştirin:
    • Excel 2007'de, Microsoft Office düğmesi ' ni tıklatın, Kaydet öğesinin üzerine gelin, Excel Macro-Enabled çalışma kitabı ' nı tıklatın ve daha sonra çalışma kitabını, Book2.xlsm kaydedin.
    • Excel 2003'te ve Excel'in önceki sürümlerinde, Dosya menüsünden farklı Kaydet'i tıklatın ve çalışma kitabını Book2.xls kaydedin.
  14. Kitap1 için geçiş yapın.

    Not Simge durumuna küçültme veya Kitap1 görmek için Book2 geri yüklemek zorunda kalabilirsiniz düğmesi.
  15. Aşağıdaki eylemlerden birini gerçekleştirin:
    • Excel 2007'de, Geliştirici sekmesini tıklatın ve makrolar ' ı tıklatın.

      NotGeliştirici sekmesindeki görüntüleniyorsa, Microsoft Office düğmesi ' ni tıklatın, Excel Seçenekleri ' ni tıklatın, popüler ' ı tıklatın, Geliştirici sekmesini göster Şeritte onay kutusunu tıklatıp seçin ve Tamam ' ı tıklatın.
    • Excel 2003'te ve Excel'in önceki sürümlerinde makro için Araçlar menüsünden ve makrolar ' ı tıklatın.
  16. Makro adı listesinde, Copy_All_Defined_Names ' ı tıklatın ve sonra da <a2>Çalıştır</a2>'ı tıklatın.
  17. Book2 için geçiş ve Range1 adlı hücre A1, B1 hücresi Range2 adlı unutmayın.

Özellikler

Makale numarası: 213389 - Last Review: 21 Mart 2007 Çarşamba - Gözden geçirme: 5.1
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Anahtar Kelimeler: 
kbmt kbmacro kbautomation kbvba kbexpertisebeginner kbdtacode kbhowto kbprogramming kbualink97 KB213389 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:213389

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