Nilai Tampal Excel VBA
Salin & Tampal bukanlah pekerjaan terbaik di dunia !!! Tetapi menyalin dan menampal dengan pilihan khas memerlukan beberapa jenis pengetahuan dalam VBA. Ini bukan proses lurus seperti salinan & tampalan mudah. Salah satu kaedah khas tampalan penting adalah "Nilai Tampal" di VBA.
Bagaimana Menampal Nilai di Excel menggunakan VBA?
Anda boleh memuat turun Templat Excel Nilai Tampal VBA ini di sini - Templat Excel Nilai Tampal VBAContoh # 1 - Menggunakan Paste Special
Sebagai contoh lihat gambar lembaran kerja di bawah.
Di sel B6, kami telah menerapkan formula untuk mengira jumlah nilai jualan dari sel B2 hingga B5. Sekarang jika saya menyalin dan menampal sel B6 hingga C6 saya tidak akan mendapat nilai 22,761 tetapi saya akan mendapat formula yang sesuai.
Untuk menjalankan perkara yang sama dalam VBA, kita memerlukan pengetahuan pengekodan. Kami akan menunjukkan kepada anda cara menampal nilai menggunakan VBA. Ikuti langkah di bawah.
Langkah 1: Salin sel B6.
Untuk menyalin sel B6 gunakan kod sebagai Julat ("B6"). Salin
Langkah 2: Pilih sel tujuan. Dalam kes ini sel C6.
Seperti yang anda lihat selepas salinannya, ia bertanya "Destination". Ini tidak lain adalah di mana anda mahu menampal, jadi pilih "Destinasi" sebagai Rentang ("C6")
Kod:
Sub Paste_Values () Julat ("B6"). Julat Salin ("C6") Sub Akhir Langkah 3: Jalankan Kod
Jalankan kod ini kita akan mendapat salinan B6 di C6.
Kami hanya mendapat formula di sini.
Langkah 4: Lakukan Kaedah Khas Tampal.
Untuk melaksanakan kaedah khas tampal, mari kita lihat sintaks kaedah khas tampal di bawah.
Dalam kaedah khas tampal, kami mempunyai beberapa kaedah. Berdasarkan operasi yang kita lakukan, kita perlu memilih jenisnya dengan sewajarnya.
Untuk memahami mari kita pecahkan kod menjadi dua baris.
Yang pertama adalah menyalin sel B6.
Sekarang di baris seterusnya tulis sel tujuan sebagai Julat ("C6")
Sekarang untuk mengakses Kaedah Tampal Khas masukkan titik dan mulailah mengetik huruf "P".
Dalam pelbagai pilihan di atas, pilih kaedah "Paste Special".
Setelah memilih kaedah tekan kekunci ruang untuk melihat pelbagai kaedah khas tampal.
Dalam pelbagai pilihan ini pilih "xlPasteValues".
Setelah memilih pilihan tekan tombol tab untuk memilih secara automatik.
Kod:
Sub Paste_Values () Julat ("B6"). Julat Salin ("C6"). PasteSpecial xlPasteValues End Sub 
Langkah 5: Jalankan Kod
Sekarang jalankan kodnya, kita hanya perlu mendapatkan nilai sel B6 ke sel C6.
Sekiranya anda melihat lembaran kerja setelah menjalankan kod, ia masih dalam mod salin sahaja.
Ini akan mematikan mod potongan salinan setelah kaedah khas tampal dijalankan.
Contoh # 2 - Tampal Khas dengan Gelung
Tampal khas itu mudah tetapi dari segi penggunaannya sebagai sebahagian daripada kod besar memerlukan tahap kemahiran pengekodan yang maju.
Sebagai contoh lihat gambar di bawah.
Dalam gambar di atas lembaran kerja di lajur "F" kita mempunyai jumlah lajur iaitu di sel F2, F5, F8, F11, dan F14.
Sekarang keperluan saya adalah menyalin setiap jumlah sel dari sel masing-masing dan tampal di lajur "H" dengan sel masing-masing.
Dengan menggunakan kod di bawah, dengan gelung VBA, kita dapat melakukan ini.
Kod:
Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 For k = 1 To 5 Cells (j, 6). Salin Sel (j, 8). PasteSpecial xlPasteValues j = j + 3 Next k End Sub
Kod ini dengan pilihan khas tampal akan melakukan tugas menyalin setiap sel total dan tampal di lajur "H" dengan sel masing-masing.
Contoh # 3 - Salin Dari Lembaran Kerja ke Yang Lain
To paste values from one worksheet to another, we need to mention both the worksheet names. Below is an example of that.
Sub Paste_Values2() Worksheets("Sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A15").PasteSpecial xlPasteValues End Sub
