Fungsi Kiri VBA | Bagaimana cara menggunakan Fungsi Kiri Excel VBA?

Excel VBA Kiri

VBA Left juga merupakan salah satu fungsi lembar kerja yang dikategorikan di bawah fungsi teks yang digunakan di VBA dengan aplikasi tersebut. metode lembar kerja, ini mengembalikan jumlah karakter yang ditentukan dari bagian kiri string.

Beberapa fungsi excel juga terintegrasi dengan VBA. Dari sekian banyak fungsi teks, VBA LEFT adalah salah satu fungsi yang cukup sering kami gunakan daripada rumus lain.

Jika Anda mengetahui fungsi excel LEFT, maka fungsi VBA LEFT sama persis. Itu dapat mengekstrak karakter dari sisi kiri string atau nilai yang diberikan oleh pengguna.

Sintaks fungsi LEFT sama persis dengan fungsi lembar kerja.

Ini memiliki dua argumen.

String: Ini hanyalah nilai atau referensi sel. Dari nilai ini, kami mencari untuk memotong karakter.
Panjang: Berapa banyak karakter yang ingin Anda ekstrak dari string yang Anda berikan. Ini harus berupa nilai numerik.

Bagaimana cara menggunakan Fungsi Kiri Excel VBA?

Anda dapat mendownload Template Fungsi Kiri VBA ini di sini - Template Fungsi Kiri VBA

Contoh 1

Asumsikan Anda memiliki kata "Sachin Tendulkar" dan Anda hanya menginginkan 6 karakter pertama dari kata ini. Kami akan menunjukkan cara mengekstrak dari kiri menggunakan fungsi LEFT di VBA.

Langkah 1: Buat nama makro dan Tentukan variabel sebagai String.

Kode:

 Sub Left_Example1 () Redupkan Nilai Saya Sebagai Sub String End

Langkah 2: Sekarang tetapkan nilai ke variabel ini

Kode:

 Sub Left_Example1 () Redupkan MyValue Sebagai String MyValue = End Sub

Langkah 3: Buka fungsi LEFT.

Kode:

 Sub Left_Example1 () Redupkan Nilai Saya Sebagai String MyValue = Kiri (End Sub

Langkah 4: Argumen pertama adalah memberi tahu apa itu string atau nilainya. Nilai kami di sini adalah "Sachin Tendulkar".

Kode:

 Sub Left_Example1 () Redupkan MyValue Sebagai String MyValue = Left ("Sachin Tendulkar", End Sub

Langkah 5: Panjang tidak lain adalah berapa banyak karakter yang kita butuhkan dari kiri. Kami membutuhkan 6 karakter.

Kode:

 Sub Left_Example1 () Redupkan MyValue Sebagai String MyValue = Left ("Sachin Tendulkar", 6) End Sub

Langkah 6: Tunjukkan nilai di VBA MsgBox.

Kode:

 Sub Left_Example1 () Redupkan MyValue Sebagai String MyValue = Left ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

Langkah 7: Jalankan makro menggunakan tombol F5 atau secara manual melalui opsi jalankan untuk mendapatkan hasil di kotak pesan.

Keluaran:

Alih-alih menampilkan hasil di kotak pesan, kami dapat menyimpan hasil ini di salah satu sel di lembar kerja excel kami. Kita hanya perlu menambahkan referensi sel dan nilai variabel.

Kode:

 Sub Left_Example1 () Redupkan MyValue Sebagai String MyValue = Left ("Sachin Tendulkar", 6) Range ("A1"). Value = MyValue End Sub

Sekarang jika Anda menjalankan kode ini, kita akan mendapatkan nilai di sel A1.

Contoh # 2 - KIRI dengan Fungsi Lain

Dalam kasus di atas, kami telah langsung menyediakan panjang karakter yang kami butuhkan dari arah kiri, tetapi ini lebih cocok untuk satu atau dua nilai. Asumsikan di bawah ini adalah daftar nilai yang Anda miliki di lembar excel Anda.

Dalam setiap kasus karakter nama depan berbeda satu sama lain, kita tidak bisa secara langsung menentukan jumlah karakter yang kita butuhkan dari setiap nama.

Di sinilah keindahan fungsi lainnya akan muncul. Untuk menyediakan jumlah karakter secara dinamis, kita dapat menggunakan fungsi “VBA Instr”.

Pada set nama di atas, kita membutuhkan semua karakter dari kiri hingga mencapai karakter spasi. Jadi fungsi Instr dapat mengembalikan banyak karakter tersebut.

Langkah 1: Demikian pula, mulailah nama makro excel dan tentukan variabel sebagai string.

Kode:

 Sub Left_Example2 () Dim FirstName As String End Sub

Langkah 2: Tetapkan nilai ke variabel melalui fungsi LEFT.

Kode:

 Sub Left_Example2 () Dim FirstName As String FirstName = Left (End Sub

Step 3: Here we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

 Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function don’t enter the length of the characters manually, Apply the Instr function.

Code:

 Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

 Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

Step 6: Run this code manually or through F5 we will get the first name.

We got the first name for the one name, but we have several other names as well. We cannot write 100 lines of code to extract, then how do we extract?

This is where the beauty of loops comes into the picture. Below is the loop code which can eliminate all the unwanted steps and can do the job in 3 lines.

Code:

 Sub Left_Example2() Dim FirstName As String Dim  i As Integer For i = 2 To 9 FirstName = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, " ") - 1) Cells(i, 2).Value = FirstName Next i End Sub