Pasta VBA Khusus

Mirip dengan lembar kerja ketika kita menyalin data dan menempelkannya pada rentang sel yang berbeda, kita memiliki metode tempel khusus yang memungkinkan kita untuk menempelkan data sebagai dirinya sendiri atau hanya rumus atau hanya nilai dan cara yang sama kita dapat menggunakan Tempel Khusus di VBA menggunakan metode properti kisaran sebagai kisaran berikut. paste special () dengan memberikan tipe yang kita inginkan dalam tanda kurung.

Tempel Spesial di VBA

Tempel Spesial di excel berfungsi dalam banyak cara dalam pekerjaan kita sehari-hari. Dengan menggunakan pasta khusus kita dapat melakukan lebih banyak hal daripada yang biasanya. Salin & tempel ada di mana-mana di dunia komputer. Tapi paste spesial adalah hal yang canggih di excel.

Seperti pasta excel biasa khusus di VBA juga kami telah menempelkan metode khusus untuk menempelkan data yang disalin. Menyalin hal-hal di excel bukanlah hal yang aneh bagi pengguna excel, mereka menyalin, menempel, dan sebagian besar waktu mereka menggunakan tempel khusus untuk memenuhi tujuan mereka dalam banyak hal.

Dalam pasta excel biasa menyertakan banyak opsi seperti hanya menempelkan nilai, menempelkan rumus, menempelkan format, dll ...

Tempel khusus harus Tempel, Operasi, Lewati Kosong, dan Transpose seperti ini di VBA juga kami memiliki semua parameter dengan metode Tempel Khusus .

Formula Pasta Spesial di VBA

Di bawah ini adalah Formula untuk Tempel Spesial di VBA

Tempel Spesial tersedia dengan objek Rentang VBA karena setelah menyalin data kita akan menempelkannya di rentang sel sehingga metode khusus tempel tersedia dengan objek rentang .

Jenis Tempel: Setelah menyalin data, bagaimana Anda ingin menempel. Apakah Anda ingin menempelkan nilai, rumus, format, validasi, dll. Di bawah ini adalah daftar lengkap opsi yang tersedia di bawah Jenis Tempel.

Operasi Tempel Khusus: Saat menempel apakah Anda ingin melakukan operasi apa pun seperti menambah, mengurangi, membagi, perkalian, atau tidak.

  • [Lewati Kosong]: Jika ingin melewati yang kosong, Anda dapat memilih TRUE atau FALSE.
  • [Transpose]: Jika Anda ingin mengubah data, Anda dapat memilih TRUE atau FALSE.

Contoh Tempel Spesial di Excel VBA

Berikut ini adalah contoh pasta khusus di VBA.

Anda dapat mengunduh Templat Khusus Tempel VBA ini di sini - Templat Khusus Tempel VBA

Contoh # 1 - Hanya Tempel Nilai menggunakan Fungsi PasteSpecial VBA

Dalam contoh pertama, kami hanya akan melakukan penempelan nilai menggunakan khusus tempel. Asumsikan di bawah ini adalah data yang Anda miliki dalam nama sheet yang disebut Data Penjualan.

Sekarang kita akan melakukan tugas salin & tempel menggunakan beberapa metode khusus tempel. Ikuti langkah-langkah di bawah ini.

Langkah 1: Buat nama makro terlebih dahulu.

Langkah 2: Pertama-tama salin rentang A1 ke D14 dari nama sheet "Data Penjualan". Untuk menyalin kisaran, terapkan kode di bawah ini.

Kode: 

Rentang ("A1: D14"). Salin

Langkah 3: Setelah menyalin data, kita akan menempelkan nilai dari G1 ke J14. Pertama rujuk rentangnya.

Kode:

Rentang ("G1: J14")

Langkah 4: Setelah memilih rentang yang perlu kita tempel. Jadi beri tanda titik (.) Dan pilih metode Paste Special.

Kode:

 Sub PasteSpecial_Example1 () Range ("A1: D14"). Salin Range ("G1: J14"). PasteSpecial End Sub 

Langkah 5: Dari daftar drop-down, pilih opsi "xlPasteValues".

Kode:

 Sub PasteSpecial_Example1 () Range ("A1: D14"). Copy Range ("G1: J14"). PasteSpecial xlPasteValues ​​End Sub 

Langkah 6: Sekarang jalankan kode ini menggunakan tombol F5 atau secara manual dan lihat apa yang terjadi.

Jadi kode kami menyalin data dari A1 ke D14 dan ditempelkan dari G1 ke J14 sebagai nilai.

Ini telah melakukan tugas shortcut key excel di lembar kerja ALT + E + S + V .

Contoh # 2 - Tempel Semua menggunakan VBA PasteSpecial

Sekarang kita akan melihat apa yang terjadi jika kita melakukan tugas xlPasteAll.

Kode:

 Sub PasteSpecial_Example2 () Range ("A1: D14"). Salin Range ("G1: J14"). PasteSpecial xlPasteAll End Sub 

Sekarang jika Anda menjalankan kode ini secara manual melalui opsi run atau dengan menekan tombol F5, kami akan mendapatkan data seperti itu.

Contoh # 3 - Tempel Format menggunakan Fungsi PasteSpecial VBA

Sekarang kita akan melihat cara menempelkan format saja. Kode di bawah ini akan melakukan pekerjaan untuk kita.

Kode:

 Sub PasteSpecial_Example3 () Range ("A1: D14"). Salin Range ("G1: J14"). PasteSpecial xlPasteFormats End Sub 

Jika Anda menjalankan kode ini menggunakan tombol F5 atau secara manual, kami hanya akan mendapatkan format dari rentang yang disalin, tidak ada yang lain.

Contoh # 4 - Tempel Lebar Kolom menggunakan VBA Paste Special

Sekarang kita akan melihat cara menempelkan hanya lebar kolom dari rentang yang disalin. Untuk ini, saya telah meningkatkan lebar kolom untuk salah satu kolom data saya.

Terapkan kode di bawah ini hanya akan menempelkan lebar kolom dari rentang yang disalin.

Kode:

 Sub PasteSpecial_Example3() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteColumnWidths End Sub 

Run this code and see the difference in the column width.

Now we can see Sales column width has been increased to the column width of our copied range column.

Example #5 – Copy the Data from One Sheet to Another Sheet using VBA Paste Special Option

We have seen how to copy and paste the data on the same sheet. Now we will how to paste from one sheet to another sheet.

Step 1: Before we select the range we need to tell from which sheet we need to select the data.

Code:

 Sub PasteSpecial_Example5() Worksheets ("Sales Data") End Sub 

Step 2: After selecting the sheet by its name then we need to select the range in that sheet. The copy it.

Code:

 Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy End Sub 

The above code says in the sheet name “Sales Data” copy the Range (“A1:D14”)

Step 3: Since we are pasting it in the different sheet we need to select the sheet by its name.

Code:

 Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets ("Month Sheet") End Sub 

Step 4: Now in the sheet “Month Sheet” select the range.

Code:

 Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range ("A1:D14") End Sub 

Step 5: Using Paste special we will be pasting values and format.

Code:

 Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range("A1:D14").PasteSpecial xlPasteValuesAndNumberFormats End Sub 

Step 6: We are not only pasting values and format using VBA Paste Special but we are pasting it as TRANSPOSE as well.

Code:

 Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range("A1:D14").PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True End Sub 

Now run this code it will copy and transpose the data to “Month Sheet”.

Things to Remember About Excel VBA PasteSpecial Function

  • If you want to skip blanks you need to enter the argument as TRUE by default it takes FALSE.
  • If you want to transpose the data we need to select the transpose as TRUE.
  • We can perform only one paste special at a time.