VBA Excel Pemula 18 : Mengenal PasteSpecial Data Range - Perhatikan gambar gif dibawah..!! PasteSpecial sedikit berbeda dengan Paste biasa.
PasteSpecial memberikan pilihan dalam menempatkan data. Dari gambar diatas dapat dilihat bahwa PasteSpecial yang digunakan diatas dengan pilihan Value, Sehingga data yang masuk hanya bersifat Text tanpa mengganggu Format Cell.
PasteSpecial memberikan pilihan dalam menempatkan data. Dari gambar diatas dapat dilihat bahwa PasteSpecial yang digunakan diatas dengan pilihan Value, Sehingga data yang masuk hanya bersifat Text tanpa mengganggu Format Cell.
 |
| Perintah PasteSpecial Data Range Menggunakan UserForm |
Admin sangat menyarankan agar setiap artikel yang dibaca di blog ini dapat dipraktekkan atau membuat file experiment untuk menguji dan mencoba menerapkan kode Vba Excel.
Dengan membuat file experiment akan memberikan pemahaman dan mengetahui fungsi serta arah kerja kode yang diterapkan.
Berikut adalah Syntax metode VBA PasteSpecial untuk objek Range. kita dapat menggunakan perintah "Range.PasteSpecial" untuk melakukan PasteSpecial untuk Range tertentu.
Penulisan Kodenya kira-kira seperti dibawah ini.
Penulisan Kodenya kira-kira seperti dibawah ini.
Range(“YourRange”).PasteSpecial([Paste As XlPasteType = xlPasteAll], [Operation As XlPasteSpecialOperation = xlPasteSpecialOperationNone], [SkipBlanks], [Transpose])
Cara Membuat Tombol PasteSpecial Data Range
- Buka Excel, buat data seperti terlihat pada gambar gif diatas, dan selanjutnya Pilih Tab Developer, klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11.
- Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 18" dan tambahkan CommandButton1 dengan Caption "PasteSpecial".
- Klik kanan pada CommandButton1 Caption "PasteSpecial", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton1_Click()
Range("A1:C8").Copy
Range("F1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Range("A1:C8").Copy
Range("F1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
- Selesai..!!
Uji aplikasi yang telah dirancang..!! Jika penempatan kode dan Rangenya udah benar, Maka aplikasi akan berjalan sebagaimana diharapkan.
Sedikit penjelasan tambahan yang sangat perlu diketahui bahwa pada kode yang diatas pada bagian yang saya Bold perlu disesuaikan dengan kebutuhan aplikasi yang sedang di rancang.
perhatikan tabel di bawah ini. Perhatikan saja.!! ntar lama-lama juga paham...!!!
perhatikan tabel di bawah ini. Perhatikan saja.!! ntar lama-lama juga paham...!!!
Tabel Excel Paste Special Types
Table Excel Paste Special Operation
Download : Aplikasi Pemula 18
Demikian Posting VBA Excel Pemula 18 : Mengenal PasteSpecial Data Range, Semoga apa yang sajikan pada posting ini dapat dikembangkan dengan kebutuhan aplikasi yang sedang dirancang. Bagi anda yang memiliki kode modifikasi PasteSpecial mohon bisa share di kolom komentar.