Excel'de VBA PasteSpecial Nasıl Uygulanır ve Kaynak Biçimlendirmesi Nasıl Korunur

Hugh West

16-10-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

Ancak, metinden daha fazlasını kopyalamak istediğimiz durumlar vardır. Excel'in koşullu biçimlendirme, veri doğrulama, veri türü biçimlendirme ve kenarlıklar ve hücre renkleri gibi estetik özellikleri gibi tüm yeteneklerini kopyalayabiliriz. Belki iş arkadaşınızın renk düzenine hayranlık duyuyorsunuz ancak statik verilere ihtiyacınız var veya belki formüller harika ancak renk düzenini beğenmiyorsunuz.Bu eğitimde, aşağıdakileri göstereceğiz VBA PasteSpecial ve Excel'de kaynak biçimlendirmesini koruyun.

Alıştırma Çalışma Kitabını İndirin

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

VBA PasteSpecial.xlsm

Excel'de VBA PasteSpecial Uygulamak ve Kaynak Biçimlendirmesini Korumak için 4 Kolay Örnek

'de paste special'ın nasıl kullanılacağına dair dört örnek göstereceğiz VBA Aşağıdaki bölümlerde kaynak formatını korurken. İşte kopyalayıp yapıştırmak için kullanacağımız örnek bir veri seti.

1. Excel'de VBA PasteSpecial Kullanarak Giriş Kutusu Ekleme ve Kaynak Biçimlendirmesini Koruma

Her şeyden önce, bir aralık seçmek için kutuyu kullanacağız ve ardından bunu başka bir hücreye yapıştıracağız. Bunu yapmak için aşağıdaki adımları izleyin.

Adım 1:

  • İlk olarak, tuşuna basın Alt + F11 başlatmak için Makro .
  • Ardından, şuraya tıklayın Ekle, seçin Modül seçenek.

Adım 2:

  • Aşağıdaki VBA kodunu yapıştırın. 
 Sub PasteSpecialKeepFormat() 'CopyCell ve PasteCell'i aralık değişkeni olarak bildir Dim CopyCell As Range, PasteCell As Range 'Giriş Kutusuna bir ad verin xTitleId = "ExcelWIKI" 'Çalışma sayfasından seçilecek kopya aralığını ayarlayın Set CopyCell = Application.Selection 'Kopyalanacak aralığı almak için bir Giriş Kutusu ayarlayın Set CopyCell = Application.InputBox("Select Range to Copy :", xTitleId, CopyCell.Address,Type:=8) 'Yapıştırılacak aralığı almak için bir Giriş Kutusu ayarla Set PasteCell = Application.InputBox("Paste to any blank cell:", xTitleId, Type:=8) 'Seçili aralığı kopyalama komutu CopyCell.Copy 'Aralığı yapıştırma komutu PasteCell.Parent.Activate 'Kaynak biçimlendirmeyi korumak için yapıştırılan hücrelere komut PasteCell.PasteSpecial xlPasteValuesAndNumberFormats PasteCell.PasteSpecial xlPasteFormatsApplication.CutCopyMode = False End Sub

Adım 3:

  • Kaydet programını seçin ve F5 çalıştırmak için.
  • Göründükten sonra 'ExcelWIKI' kutusunda, aralığı seçin $B$4:$C$11 .
  • Tıklayın TAMAM. .

Adım 4:

  • Yapıştırmak için herhangi bir boş hücre seçin.
  • Ardından, Tıklayın TAMAM.

  • Bu nedenle, formatı olduğu gibi koruyarak yapıştırma değerini elde edersiniz.

Daha fazlasını okuyun: Excel'de Yapıştır ve Özel Yapıştır Arasındaki Fark

2. Excel'de Aralık Seçmek ve Kaynak Biçimlendirmesini Korumak için VBA PasteSpecial Uygulayın

İçinde VBA Ayrıca, aralıkları belirleyebilir ve kaynak biçimlendirmesini koruyarak bunları kopyalayıp yapıştırabilirsiniz. Bunu yapmak için aşağıdaki özetlenen adımları izleyin.

Adım 1:

  • Basın Alt + F11 açmak için Makro .
  • Yeni bir Modül oluşturun Ekleme
  • Basitçe, aşağıdakileri yapıştırın VBA aralık için kod B4:C11 . 
 Sub pasteSpecial_KeepFormat() 'kopyalanacak aralığı seçin Range("B4:C11").Copy 'yapıştırılacak hücreyi seçin 'Biçimi koruyan pasteSpecial komutu Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub

Adım 2:

  • Son olarak, programı kaydedin ve F5 Sonuç olarak, aşağıdaki resimde gösterildiği gibi değişiklikleri göreceksiniz.

Daha Fazla Oku: Excel'de Değerleri ve Biçimleri Kopyalamak için VBA Paste Special (9 Örnek)

Benzer Okumalar

  • İki Excel Sayfasını Karşılaştırmak ve Farkları Kopyalamak için VBA Kodu
  • Excel VBA: Hücre Değerini Kopyalama ve Başka Bir Hücreye Yapıştırma
  • Excel'de Birden Çok Hücre Başka Bir Sayfaya Nasıl Kopyalanır (9 Yöntem)
  • Excel VBA: Aralığı Başka Bir Çalışma Kitabına Kopyalama
  • [Düzeltildi]: Excel'de Sağ Tıkla Kopyala ve Yapıştır Çalışmıyor (11 Çözüm)

3. Excel'de VBA PasteSpecial Uygulayarak Değişken Bildirme ve Kaynak Biçimlendirmesini Koruma

Değişkenler bildirerek ve değişkenleri farklı aralıklara ayarlayarak, aşağıdaki adımları izleyerekSpecial'ı VBA .

Adım 1:

  • Her şeyden önce, basın Alt + F11 açmak için VBA Makro .
  • Yeni bir Modül .
  • Ardından, aşağıdakileri yapıştırın VBA Kodu . 
 Sub Copy_Paste_Special() 'Değişkenleri bildir Dim copy_Rng As Range, Paste_Range As Range 'Aralığı kopyalama komutu Set copy_Rng = Range("B4:C11") 'Aralığı yapıştırma komutu Set Paste_Range = Range("E4") copy_Rng.Copy 'Komutu pasteSpecial'a tutma biçimiyle yapıştır Paste_Range.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub

Adım 2:

  • Programı kaydettikten sonra F5 koşmak için.
  • Bu nedenle, kopyaladığınız aralık, kaynak biçimlendirmesi önceki gibi korunarak yapıştırılacaktır.

Daha fazlasını okuyun: Excel'de Formüller ve Biçimler için VBA PasteSpecial Nasıl Kullanılır (3 Yol)

4. VBA PasteSpecial Kullanın ve Kaynak Biçimlendirmesini Excel'de Farklı Çalışma Sayfasında Tutun

Bu bölümde çok önemli bir yöntemden bahsedeceğiz. Çünkü PasteSpecial'ın VBA birden fazla çalışma kitabına kopyalayacağız. 'Sayfa4' ve içine yapıştırın 'Sayfa5 'i aşağıdaki adımlarda gösterildiği gibi seçin.

Adım 1:

  • Açmak için VBA Makro , basın Alt + F11
  • Bu kitaptan Ekleme sekmesini seçin, ardından Modül.
  • Ardından, aşağıdakileri yapıştırın VBA. 
 Private Sub KeepSourceFormat() Application.ScreenUpdating = False 'Değişkenleri bildir Dim copyRng As Worksheet Dim pasteRng As Worksheet 'Aralık hedefini değişkene ayarla Set copyRng = Worksheets("Sheet4") Set pasteRng = Worksheets("Sheet5") 'yapıştırılan hücrelerin hedefini ayarla 'E4 hücresi için, Rows.count = 5, Offset = 3 Set Destination = pasteRng.Cells(Rows.Count, 5).End(xlUp).Offset(3, 0)'Aralığı kopyalama komutu copyRng.Range("B4:C11").Copy 'Aralığı yapıştırma komutu Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Adım 2:

  • Programı çalıştırmak için F5 programı kaydettikten sonra.
  • Bu nedenle, yapıştırılan değeri sayfa 5 kaynak formatını koruyarak.

Daha fazlasını okuyun: Excel'de Özel Yapıştır Komutu Nasıl Kullanılır (5 Uygun Yol)

Sonuç

Özetlemek gerekirse, umarım artık nasıl kullanılacağını biliyorsunuzdur Excel VBA Tüm bu stratejiler verilerinize öğretilmeli ve kullanılmalıdır. Alıştırma kitabını inceleyin ve öğrendiklerinizi uygulayın. Önemli desteğiniz sayesinde bu gibi dersleri vermeye devam etmek için motive oluyoruz.

Herhangi bir sorunuz olursa lütfen bizimle iletişime geçmekten çekinmeyin. Lütfen düşüncelerinizi aşağıdaki yorum kutusunda paylaşın.

Sorularınız mümkün olan en kısa sürede Exceldemy Personel.

Bizimle kalın ve öğrenmeye devam edin.

Önceki yazı Excel'de Bir Hücrede İki Satır Nasıl Yapılır (4 Yöntem)
Sonraki Gönderi Excel VBA Kullanarak Bir Kopyayı XLSX Olarak Kaydetme (5 Uygun Yol)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.