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

Daftar Isi

Excel VBA Kiri

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 seperti di 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?

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 nilainya 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.

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

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

Langkah 6: Jalankan kode ini secara manual, atau melalui F5 kita akan mendapatkan nama depan.

Kami mendapat nama depan untuk satu nama, tetapi kami juga memiliki beberapa nama lain. Kita tidak bisa menulis 100 baris kode untuk diekstrak, lalu bagaimana cara kita mengekstraknya?

Di sinilah keindahan loop masuk ke dalam gambar. Di bawah ini adalah kode loop, yang dapat menghilangkan semua langkah yang tidak diinginkan dan dapat melakukan pekerjaan dalam 3 baris.

Kode:

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) Sel (i, 2) .Value = FirstName Next i End Sub