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 yang mudah. Salah satu kaedah khas tampalan penting adalah "Nilai Tampal" di VBA.
Bagaimana Menampal Nilai di Excel menggunakan VBA?
Contoh # 1 - Menggunakan Paste Special
Contohnya, 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 melaksanakan 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 setelah salinannya, ia bertanya, "Destinasi." 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 di bawah kaedah khas tampal.
Dalam kaedah khas tampal, kami mempunyai beberapa kaedah. Berdasarkan operasi yang kita lakukan, kita perlu memilih jenisnya dengan sewajarnya.
Untuk memahami, mari 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 Khas Tampal masukkan titik dan mulailah menaip huruf "P."
Dalam pelbagai pilihan di atas, pilih kaedah "Tampal Istimewa".
Setelah memilih kaedah, tekan kekunci ruang untuk melihat pelbagai kaedah khas tampal.
Dalam pelbagai pilihan ini, pilih "xlPasteValues."
Setelah memilih pilihan, tekan kekunci 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 salinan sahaja.
Ini akan mematikan mod potongan salinan setelah kaedah khas tampal dijalankan.
Contoh # 2 - Tampal Khas dengan Gelung
Tampal khas memang mudah tetapi dari segi penggunaannya sebagai sebahagian daripada kod besar memerlukan tahap kemahiran pengekodan yang maju.
Contohnya, lihat gambar di bawah.
Pada gambar lembaran kerja di atas di lajur "F", kami mempunyai jumlah lajur, 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
Untuk menampal nilai dari satu lembaran kerja ke lembaran kerja yang lain, kita perlu menyebutkan kedua-dua nama lembaran kerja tersebut. Berikut adalah contohnya.
Sub Paste_Values2 () Lembaran Kerja ("Sheet1"). Julat ("A1"). Salin Lembaran Kerja ("Sheet2"). Julat ("A15"). PasteSpecial xlPasteValues End Sub
