Apa yang Dilakukan AutoFill di Excel VBA?
Kami telah melihat pengisian automatik dalam lembaran kerja di mana sel diisi secara automatik berdasarkan nilai pada sel sebelumnya di atasnya, kami dapat menggunakan VBA sehingga excel melakukan tugas untuk kami, untuk melakukan ini kami menggunakan kaedah Selection.Autofill dan kami menyediakan destinasi iaitu hingga sel mana nilai perlu diisi.
Penggunaan autofill VBA yang terbaik adalah apabila kita perlu mengisi formula sel pertama ke sel lajur. Kami biasanya menggunakan formula di sel pertama. Sama ada kita menyalin & menampal ke sel terakhir, atau kita hanya mengisi secara automatik dengan klik dua kali pada anak panah kecil. Contoh terbaik lain menggunakan autofill in excel adalah ketika kita perlu memasukkan nombor siri. Kami biasanya menaip tiga nombor pertama; kemudian, kita seret ke bawah hingga sel terakhir yang diperlukan.
Di VBA, kita dapat melaksanakan tugas kaedah Isi Auto. Dalam artikel ini, kami akan menunjukkan kepada anda bagaimana kami boleh menggunakan kaedah dan kaedah autofill untuk menulis kod tersebut. Sekarang kita akan melihat bagaimana kita boleh menggunakan alat ini dalam pengekodan VBA.
Bagaimana Menggunakan Isi Auto dalam VBA?
Untuk menggunakan pengisian automatik dalam VBA, kita perlu memahami sintaks kaedah pengisian automatik. Berikut adalah sintaksisisi automatik.
- Julat ("A1"): Apakah sel-sel untuk mengenal pasti corak siri pengisian.
- Destinasi: Hingga ke sel mana anda mahu meneruskan corak siri pengisian. Di sini kita perlu menyebutkan sel yang lengkap.
- Taipkan sebagai xlAutoFillType: Di sini kita boleh memilih jenis pengisian siri. Berikut adalah senarai item dalam parameter ini - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowtharend, Trend
Contoh Isi Auto dalam Excel VBA
Mari kita lihat beberapa contoh ringkas untuk maju VBA AutoFill in excel.
Contoh # 1 - xlFillDefault
Pertama, masukkan 3 nombor siri dalam tiga sel pertama.
Dalam subprosedur VBA, sebutkan julat VBA sebagai Julat ("A1: A3")
Kod:
Sub Auto Isi_Contoh1 () Julat ("A1: A3"). Sub Akhir
Sekarang akses kaedah Isi Auto.
Masukkan tujuan sebagai Julat ("A1: A10")
Kod:
Julat ("A1: A3"). Tujuan IsiOtomatis: = Julat ("A1: A10")
Pilih Jenis sebagai xlFillDefault .
Kod:
Julat ("A1: A3"). Tujuan IsiOtomatis: = Julat ("A1: A10"), Jenis: = xlFillDefault
Sekarang jalankan kod kita akan mendapat nombor siri dari 1 hingga 10.
Oleh kerana kita menyebut sel tujuan akhir sebagai A10, ia telah berhenti di sana, dan kita dapat memasukkan sel tujuan sebagai sel terakhir excel.
Contoh # 2 - xlFillCopy
Untuk nombor yang sama, kami akan menggunakan jenis sebagai xlFillCopy.
Kod:
Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Julat ("A1: A10"), Jenis: = xlFillCopy End Sub
Saya mempunyai salinan tiga sel pertama ke sel yang tinggal.
Contoh # 3 - xlFillMonths
Untuk contoh ini, saya telah memasuki tiga bulan pertama dalam 3 sel pertama.
Tukar jenis autofill menjadi xlFillMonths.
Kod:
Sub AutoFill_Example1 () Julat ("A1: A3"). Tujuan IsiOtomatis: = Julat ("A1: A10"), Jenis: = xlFillMonths End Sub
Ini akan mengisi siri bulan.
Contoh # 4 - xlFillFormats
Untuk contoh ini, saya telah memasukkan nombor dan menerapkan pemformatan ke sel tersebut.
Sekarang saya akan menukar jenisnya menjadi xlFillFormats.
Kod:
Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillFormats End Sub
Jalankan kod ini dan lihat apa yang berlaku.
Ia telah mengisi format tiga sel pertama hingga tiga sel berikutnya dan sekali lagi, tiga sel seterusnya dan seterusnya.
Contoh # 5 - xlFlashFill
Untuk contoh ini, saya telah memasukkan beberapa nilai dari sel A1 hingga A10, seperti yang ditunjukkan dalam gambar di bawah.
Dari senarai ini, saya ingin mengekstrak bahagian berangka. Untuk memberitahu cemerlang mengenai corak, di sel pertama, saya akan memasukkan secara manual bahagian berangka sel pertama.
Sekarang saya akan menulis kod seperti biasa dan menukar jenisnya menjadi xlFlashFill. Kali ini kita akan menggunakan julat lajur B.
Kod:
Sub AutoFill_Example1 () Range ("B1"). AutoFill Destination: = Range ("B1: B10"), Type: = xlFlashFill End Sub
Sekiranya saya menjalankan kod ini, kita akan mendapat hasilnya seperti di bawah.
Ini adalah gambaran keseluruhan kaedah Auto Isi VBA. Saya harap anda menikmatinya.
Anda boleh memuat turun Templat VF AutoFill Excel ini dari sini - Templat VBA AutoFill Excel