Salin Tampal VBA - Kaedah Teratas untuk Salin dan Tampal di VBA (dengan Contoh)

Salin Tampal di VBA mirip dengan apa yang kita lakukan di lembaran kerja excel, seperti kita dapat menyalin nilai dan menampalnya ke sel lain juga kita dapat menggunakan tampal khas untuk menampal hanya nilai, sama di VBA kita menggunakan kaedah salin dengan harta rentang salin nilai dari satu sel ke sel yang lain dan tampal nilai yang kami gunakan menggunakan kaedah lembaran kerja khas atau kaedah tampal.

Bagaimana Menyalin Tampal di VBA?

Berikut adalah beberapa contoh cara copy-paste di excel menggunakan VBA.

Perkara asas yang kami lakukan dalam excel adalah menyalin, memotong, dan menyisipkan data dari satu sel ke sel yang lain. Ia juga tidak memerlukan pengenalan khas. Walau bagaimanapun, semasa belajar pengekodan VBA adalah penting untuk memahami konsep yang sama dalam bahasa pengekodan. Copy Paste di VBA adalah tugas rutin yang kita lakukan pada hari demi hari di excel. Untuk menyalin terlebih dahulu, kita perlu memutuskan sel mana yang akan disalin.

Contoh # 1 - Menyalin dan Menampal Nilai Menggunakan Objek Julat

Andaikan anda mempunyai perkataan "Excel VBA" di sel A1.

Katakan, sebagai contoh, jika anda ingin menyalin sel A1, kita boleh menggunakan objek VBA RANGE.

Kod:

Sub Salin_Contoh () Julat ("A1"). Sub Akhir

Sebaik sahaja anda merujuk sel, kita dapat melihat semua sifat dan kaedah dengannya. Oleh itu, pilih kaedah " Salin."

Kod:

Sub Salin_Contoh () Julat ("A1"). Salin Sub Akhir

Setelah memilih kaedah, tekan kekunci ruang untuk melihat argumen kaedah Salin.

Ia mengatakan Destinasi.

Ini bukan apa-apa, tetapi di mana anda mahu menyalin-tampal nilai di VBA tanpa memilih kaedah PASTE.

Sekiranya kita menampal dalam helaian yang sama, kita dapat memilih sel dengan menggunakan objek Range. Katakan jika kita ingin menempelkan nilai di sel B3, kita dapat meletakkan tujuan sebagai "Range (" B3 ")."

Kod:

Sub Salin_Contoh () Julat ("A1"). Salin Destinasi: = Julat ("B3") Sub Akhir

Ini akan menyalin data dari sel A1 dan menampal di sel B3.

Kita juga boleh menggunakan kaedah di bawah untuk menampal data.

Kod:

Sub Salin_Contoh () Julat ("A1"). Julat Salin ("B3"). Pilih ActiveSheet.Paste End Sub

Pertama, kami akan menyalin & memilih data dari sel A1 dan menampal di sel B3.

Contoh # 2 - Salin ke Lembaran Kerja lain dalam Buku Kerja yang Sama

Sekarang, jika kita ingin menyalin-tampal nilai dari lembaran kerja yang berbeza menggunakan makro VBA, maka dalam argumen Destinasi, kita perlu merujuk nama lembaran dengan menggunakan objek WORKSHEETS kemudian menyebutkan julat sel di LEMBARAN KERJA tersebut. Kod di bawah akan berfungsi.

Kod:

Sub Salin_Contoh () Julat ("A1"). Salin Destinasi: = Lembaran Kerja ("Lembaran2"). Julat ("B3") Sub Akhir

Sekiranya kita ingin menyalin data dari helaian tertentu dan ingin menampal dalam helaian tertentu yang lain, kita perlu menyebutkan kedua-dua nama helaian tersebut.

Pertama kita perlu menyebut helaian penyalinan.

Lembaran kerja ("Lembaran1"). Julat ("A1"). Salin

Kemudian dalam argumen Destinasi, kita perlu menyebut nama lembaran kerja yang disasarkan dan julat sel.

Destinasi: = Lembaran Kerja ("Lembaran2"). Julat ("B3")

Jadi kodnya mesti seperti ini.

Kod:

Sub Salin_Contoh () Lembaran Kerja ("Lembaran1"). Julat ("A1"). Destinasi Salin: = Lembaran Kerja ("Lembaran2"). Julat ("B3") Sub Akhir

Contoh # 3 - Salin dari Satu Buku Kerja ke Buku Kerja yang lain

Kami telah melihat cara menyalin dari lembaran kerja ke lembaran kerja lain dalam buku kerja yang sama. Tetapi kita juga boleh melakukan ini dari satu buku kerja ke buku kerja yang lain.

Lihat kod di bawah.

Kod:

SubCopy_Example () Buku kerja ("Buku 1.xlsx"). Lembaran kerja ("Lembaran1"). Julat ("A1"). Salin Buku Kerja ("Buku 2.xlsx"). Aktifkan ActiveWorkbook.Worksheets ("Lembaran 2"). Pilih. ActiveSheet.Paste End Sub

Pertama, ia akan menyalin data dari lembaran kerja “Sheet1” dalam buku kerja “Book1.xlsx” dari sel A1.

“Workbooks("Book 1.xlsx").Worksheets("Sheet1").Range("A1").Copy”

Then it will activate the workbook “Book 2.xlsx”.

Workbooks("Book 2.xlsx").Activate

In the active workbook, it will select the worksheet “Sheet 2.”

ActiveWorkbook.Worksheets("Sheet 2").Select

Now in the active sheet, it will paste.

ActiveSheet.Paste

Alternative Way for using Copy-Paste in VBA

We have one more alternative way of having the data from one cell to another cell. Assume you have the word “Excel VBA” in the cell A1 and you need the same to come in cell B3.

One method we have seen is using the VBA copy and paste method. Now I will show you one of the alternative ways. Look at the below piece of code to understand.

Code:

Sub Copy_Example1() Range("A1").Value = Range("B3").Value End Sub

The above says whatever the value is there in the cell A1 should be equal to the value in the cell B3.

Range("A1").Value = Range("B3").Value

Even though this is not a copy and paste method still adds more value to our coding knowledge.

Top Ways of VBA Copy and Paste as Values

Now we will see different ways of VBA copy and paste values. Assume you are in the cell A1 as shown in the below image.

  • If we want to copy and paste, we need to reference the cell here. Rather we can just use a property of Selection. Copy method.

Code:

Sub Copy_Example1() Selection.Copy Destination:=Range("B3") End Sub

OR

Sub Copy_Example1() ActiveCell.Copy Destination:=Range("B3") End Sub
  • If you want to copy the entire used range of the worksheet, you can use the below code.

Code:

Sub Copy_Example2 () Lembaran Kerja ("Sheet1"). UsedRange.Copy Destination: = Worksheets ("Sheet2"). Julat ("A1") End Sub

Ini akan menyalin keseluruhan julat yang digunakan dalam lembaran kerja "Sheet1" dan akan menampal yang sama di lembaran kerja "Sheet2."

Artikel menarik...