VBA End

Fungsi Akhir di VBA

End adalah pernyataan di VBA yang memiliki banyak bentuk dalam aplikasi VBA, pernyataan End sederhana dapat diletakkan di mana saja dalam kode dan secara otomatis akan menghentikan eksekusi kode, pernyataan akhir digunakan dalam banyak prosedur seperti mengakhiri subprocedure atau mengakhiri fungsi loop apa pun seperti End if.

Untuk semuanya, ada akhir dan di VBA tidak ada bedanya. Anda pasti pernah melihat kata “ End ” di semua kode di VBA Anda. Kita bisa Mengakhiri dengan "End Sub", "End Function", "End If". Ini biasa terjadi karena kita tahu setiap Akhir menyarankan akhir prosedur. Pernyataan Akhir VBA ini tidak memerlukan pengenalan khusus karena kami sudah terbiasa dengannya dalam pengkodean VBA kami.

Terlepas dari "Akhir" di atas, kami memiliki satu properti "Akhir" di VBA. Pada artikel ini, kami akan memandu Anda melalui properti itu dan cara menggunakannya dalam pengkodean kami.

Akhir Properti di VBA

"Akhir" adalah properti yang kami gunakan di VBA untuk bergerak ke arah yang disarankan. Contoh tipikal arah berpindah dari sel aktif ke sel yang terakhir digunakan atau sel entri terakhir secara horizontal dan vertikal di lembar kerja.

Misalnya, mari kita mengingat ini dengan lembar kerja. Lihat gambar di bawah ini.

Sekarang kita berada di sel A1.

Jika kita ingin pindah ke sel yang terakhir digunakan secara horizontal kita menggunakan tombol pintas excel Ctrl + Panah Kanan, itu akan membawa kita ke sel yang terakhir digunakan secara horizontal.

Demikian pula, jika kita ingin pindah ke sel yang terakhir digunakan ke bawah atau secara vertikal kita tekan tombol pintas Ctrl + Panah Bawah.

Jadi untuk berpindah dari kiri ke kanan kita tekan Ctrl + Panah Kiri, untuk berpindah dari bawah ke atas kita tekan Ctrl + Panah Atas.

Hal serupa dapat dilakukan di VBA tetapi tidak dengan menggunakan tombol Ctrl , kita perlu menggunakan kata "End".

Contoh Fungsi Akhir VBA Excel

Anda dapat mendownload Template VBA End Excel ini di sini - Template VBA End Excel

Contoh # 1 - Gunakan Properti Akhir VBA Untuk Memindahkan Lembar Kerja

Mari kita lihat cara menggunakan Excel VBA End untuk memindahkan lembar. Pertama, kita perlu memutuskan sel mana yang perlu kita pindahkan. Ok, katakanlah kita perlu pindah dari sel A1, jadi rujuk sel dengan menggunakan objek VBA Range.

Kode:

 Sub End_Example1 () Range ("A1") End Sub 

Letakkan titik (.) Untuk melihat daftar IntelliSense. Pilih properti "End" VBA dari daftar.

Kode:

 Sub End_Example1 () Range ("A1"). End End Sub 

Setelah properti akhir memilih kurung buka.

Kode:

 Sub End_Example1 () Range ("A1"). End (End Sub 

Segera setelah Anda membuka tanda kurung, kita dapat melihat semua opsi yang tersedia dengan properti "End". Pilih "xlToRight" untuk berpindah dari sel A1 ke sel yang terakhir digunakan secara horizontal.

Kode:

 Sub End_Example1 () Range ("A1"). End (xlToRight) End Sub 

Setelah pindah ke sel terakhir kita perlu memilih apa yang perlu kita lakukan. Letakkan titik (.) Untuk melihat daftar IntelliSense.

Kode:

Sub End_Example1 () Range ("A1"). End (xlToRight). Akhiri Sub

Pilih metode "Pilih" dari daftar IntelliSense.

Kode:

 Sub End_Example1 () Range ("A1"). End (xlToRight). Pilih End Sub 

Ini akan menggunakan sel A1 hingga sel yang terakhir digunakan secara horizontal.

Demikian pula, gunakan tiga opsi lainnya untuk bergerak ke kanan, kiri, bawah, atas.

Untuk Pindah ke Kanan dari sel A1.

Kode:

 Sub End_Example1 () Range ("A1"). End (xlToRight). Pilih End Sub 

Untuk Pindah ke Bawah dari sel A1.

Kode:

 Sub End_Example1 () Range ("A1"). End (xlDown). Pilih End Sub 

Untuk Pindah dari sel A5.

Kode:

 Sub End_Example1 () Range ("A5"). End (xlUp). Pilih End Sub 

Untuk Pindah ke Kiri dari sel D1.

Kode:

 Sub End_Example1 () Range ("D1"). End (xlToLeft). Pilih End Sub 

Semua kode di atas adalah contoh contoh penggunaan properti "End" untuk memindahkan lembar kerja.

Sekarang kita akan melihat bagaimana memilih rentang dengan menggunakan properti "End".

Contoh # 2 - Pemilihan Menggunakan Properti Akhir

Kita perlu Mengakhiri properti untuk memilih rentang sel di lembar kerja. Untuk contoh ini perhatikan data di bawah ini.

Pilih A1 ke Sel Terakhir Digunakan

Untuk memilih sel dari A1 hingga sel yang terakhir digunakan secara horizontal, pertama-tama sebutkan sel A1 dalam objek Range.

Kode:

 Sub End_Example2() Range("A1", End Sub 

For the second argument open one more Range object and mention the cell as A1 only.

Code:

 Sub End_Example2() Range("A1",Range("A1") End Sub 

Close only one bracket and put a dot to select the Excel VBA End property.

Code:

 Sub End_Example2() Range("A1",Range("A1").End( End Sub 

Now select xlToRight and close two brackets.

Code:

 Sub End_Example2() Range("A1",Range("A1").End(xlToRight)) End Sub 

Now chose “Select” method.

Code:

 Sub End_Example2() Range("A1", Range("A1").End(xlToRight)).Select End Sub 

Ok, we are done.

Run this code to see the impact.

As you can see it has selected the range A1 to D1.

Similarly to select downwards use the below code.

Code:

 Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from left to right End Sub 

Code:

 Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from top to down End Sub 

Code:

 Sub End_Example2() Range("D1", Range("D1").End(xlToLeft)).Select 'To select from right to left End Sub 

Code:

 Sub End_Example2() Range("A5", Range("A5").End(xlUp)).Select 'To select from bottom to up End Sub 

Example #3 – Select Right to Left, Right to Bottom, & Top

We have seen how to select horizontally & vertically. To select both vertically and horizontally we need to use two “End” properties. To select the data from A1 to D5, we need to use the below code.

Code:

 Sub End_Example3() Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select 'To from cell A1 to last use cell downwards & rightwards End Sub 

This will select the complete range like the below.

Like this, we can use the VBA “End” Function property to select a range of cells.