Thursday, October 6, 2016

VBA Excel Pemula 18 : Mengenal Perintah PasteSpecial Data Range Menggunakan UserForm

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.


Metode PasteSpecial VBA dari Range - Syntax
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.

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
  • 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...!!!

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.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon