Cara Menerapkan VBA PasteSpecial dan Mempertahankan Pemformatan Sumber di Excel

Hugh West

16-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Namun, ada situasi ketika kita ingin menduplikasi lebih dari sekadar teks. Kita bisa menyalin semua kemampuan Excel, seperti pemformatan bersyarat, validasi data, pemformatan tipe data, dan fitur estetika seperti batas dan warna sel. Mungkin Anda mengagumi skema warna rekan kerja Anda tetapi membutuhkan data statis, atau mungkin rumusnya fantastis tetapi Anda tidak menyukai skema warnanya.Dalam tutorial ini, kami akan menunjukkan VBA TempelKhusus dan pertahankan pemformatan sumber di Excel.

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

VBA PasteSpecial.xlsm

4 Contoh Mudah untuk Menerapkan VBA PasteSpecial dan Mempertahankan Pemformatan Sumber di Excel

Kita akan mendemonstrasikan empat contoh cara menggunakan paste special dalam VBA sambil tetap mempertahankan format sumber pada bagian di bawah ini. Berikut ini adalah contoh kumpulan data yang akan kita gunakan untuk menyalin dan menempel.

1. Tambahkan Kotak Input dengan Menggunakan VBA PasteSpecial dan Pertahankan Pemformatan Sumber di Excel

Pertama dan terpenting. Kita akan menggunakan kotak untuk memilih range dan kemudian menempelkannya ke sel lain. Untuk melakukannya, ikuti langkah-langkah di bawah ini.

Langkah 1:

  • Pertama, tekan Alt + F11 untuk memulai Makro .
  • Kemudian, klik pada Sisipkan, pilih Modul pilihan.

Langkah 2:

  • Tempel kode VBA berikut ini. 
 Sub PasteSpecialKeepFormat() 'mendeklarasikan CopyCell dan PasteCell sebagai variabel range Dim CopyCell As Range, PasteCell As Range 'Memberi nama pada Input Box xTitleId = "ExcelWIKI" 'Mengatur range yang akan di copy dari lembar kerja Set CopyCell = Application.Selection 'Mengatur Input Box untuk mengambil range yang akan di copy dari Set CopyCell = Application.InputBox("Select Range to Copy :", xTitleId, CopyCell.Address,Type:=8) 'Atur Kotak Input untuk mengambil range untuk ditempelkan ke Set PasteCell = Application.InputBox("Paste to any blank cell:", xTitleId, Type:=8) 'Perintah untuk menyalin range yang dipilih CopyCell.Copy 'Perintah untuk menempelkan range PasteCell.Parent.Activate 'perintah ke sel yang ditempelkan untuk menjaga format sumber PasteCell.PasteSpecial xlPasteValuesAndNumberFormats PasteCell.PasteSpecial xlPasteFormatsAplikasi.CutCopyMode = False End Sub

Langkah 3:

  • Simpan program dan tekan F5 untuk menjalankannya.
  • Setelah muncul 'ExcelWIKI' kotak, pilih kisaran $ B $ 4: $ C $ 11 .
  • Klik OK .

Langkah 4:

  • Pilih sel kosong apa pun untuk ditempelkan.
  • Kemudian, Klik BAIKLAH.

  • Oleh karena itu, Anda akan mendapatkan nilai pasta dengan menjaga formatnya tetap utuh.

Baca selengkapnya: Perbedaan Antara Tempel dan Tempel Khusus di Excel

2. Terapkan VBA PasteSpecial untuk Memilih Rentang dan Simpan Pemformatan Sumber di Excel

Dalam VBA Anda juga dapat menentukan rentang dan menyalin serta menempelkannya sambil mempertahankan format sumber. Ikuti langkah-langkah yang diuraikan di bawah ini untuk melakukannya.

Langkah 1:

  • Tekan Alt + F11 untuk membuka Makro .
  • Buat Modul baru dari Sisipkan
  • Cukup, tempelkan yang berikut ini VBA kode untuk rentang B4:C11 . 
 Sub pasteSpecial_KeepFormat() 'pilih range untuk menyalin Range("B4:C11").Copy 'pilih sel untuk ditempelkan 'Perintah untuk pasteSpecial menjaga Format Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub

Langkah 2:

  • Terakhir, simpan program dan tekan F5 untuk dijalankan. Akibatnya, Anda akan melihat perubahan seperti yang ditunjukkan pada gambar di bawah ini.

Baca Juga: VBA Tempel Khusus untuk Menyalin Nilai dan Format di Excel (9 Contoh)

Bacaan Serupa

  • Kode VBA untuk Membandingkan Dua Lembar Excel dan Menyalin Perbedaan
  • Excel VBA: Salin Nilai Sel dan Tempel ke Sel Lain
  • Cara Menyalin Beberapa Sel ke Lembar Lain di Excel (9 Metode)
  • Excel VBA: Salin Rentang ke Buku Kerja Lain
  • [Diperbaiki]: Klik Kanan Salin dan Tempel Tidak Bekerja di Excel (11 Solusi)

3. Deklarasikan Variabel dengan Menerapkan VBA PasteSpecial dan Pertahankan Pemformatan Sumber di Excel

Dengan mendeklarasikan variabel dan menetapkan variabel ke rentang yang berbeda, ikuti langkah-langkah di bawah ini untuk menyisipkanSpecial dalam VBA .

Langkah 1:

  • Pertama-tama, tekan Alt + F11 untuk membuka Makro VBA .
  • Pilih yang baru Modul .
  • Kemudian, tempelkan yang berikut ini Kode VBA . 
 Sub Copy_Paste_Special() 'Deklarasikan variabel Dim copy_Rng As Range, Paste_Range As Range 'Perintah untuk menyalin range Set copy_Rng = Range("B4:C11") 'Perintah untuk menempelkan range Set Paste_Range = Range("E4") copy_Rng.Copy 'Perintah paste untuk pasteSpecial dengan menjaga Format Paste_Range.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub

Langkah 2:

  • Setelah menyimpan program, tekan F5 untuk dijalankan.
  • Oleh karena itu, rentang yang Anda salin akan ditempelkan dengan mempertahankan format sumber seperti sebelumnya.

Baca selengkapnya: Cara Menggunakan VBA PasteSpecial untuk Rumus dan Format di Excel (3 Cara)

4. Gunakan VBA PasteSpecial dan Pertahankan Pemformatan Sumber di Lembar Kerja yang Berbeda di Excel

Kita akan berbicara tentang metode yang sangat signifikan di bagian ini. Karena kita akan membahas cara menggunakan PasteSpecial di VBA di beberapa buku kerja. Sebagai contoh, kita akan menyalin dari 'Sheet4' dan menempelkannya ke dalam 'Sheet5 ,' seperti ditunjukkan dalam langkah-langkah di bawah ini.

Langkah 1:

  • Untuk membuka Makro VBA , tekan Alt + F11
  • Dari Sisipkan tab, pilih tab Modul.
  • Kemudian, tempelkan yang berikut ini VBA. 
 Private Sub KeepSourceFormat() Application.ScreenUpdating = False 'Deklarasikan variabel Dim copyRng As Worksheet Dim pasteRng As Worksheet 'Atur tujuan range ke variabel Set copyRng = Worksheets("Sheet4") Set pasteRng = Worksheets("Sheet5") 'atur tujuan sel yang ditempelkan 'Untuk sel E4, Rows.count = 5, Offset = 3 Set Destination = pasteRng.Cells(Rows.Count, 5).End(xlUp).Offset(3, 0)'Perintah untuk menyalin range copyRng.Range("B4:C11").Copy 'Perintah untuk menempelkan range Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Langkah 2:

  • Untuk menjalankan program, tekan F5 setelah menyimpan program.
  • Oleh karena itu, Anda akan mendapatkan nilai yang ditempelkan di lembar 5 dengan mempertahankan format sumber.

Baca selengkapnya: Cara Menggunakan Perintah Khusus Tempel di Excel (5 Cara yang Cocok)

Kesimpulan

Untuk meringkas, saya harap Anda sekarang tahu cara menggunakan Excel VBA untuk Paste Special Keep Source Formatting. Semua strategi ini harus diajarkan kepada data Anda dan digunakan untuk itu. Periksa buku latihan dan terapkan apa yang telah Anda pelajari. Kami termotivasi untuk terus memberikan kuliah seperti ini karena dukungan penting Anda.

Jangan ragu untuk menghubungi kami jika Anda memiliki pertanyaan. Silakan berbagi pemikiran Anda dalam kotak komentar di bawah ini.

Pertanyaan Anda akan dijawab sesegera mungkin oleh Exceldemy staf.

Tetaplah bersama kami dan teruslah belajar.

Postingan sebelumnya Cara Membuat Dua Baris dalam Satu Sel di Excel (4 Metode)
Postingan berikutnya Cara Menyimpan Salinan sebagai XLSX Menggunakan Excel VBA (5 Cara yang Cocok)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.