Fungsi Kiri VBA - Bagaimana menggunakan Fungsi Kiri Excel VBA?

Isi kandungan

Excel VBA Kiri

Excel VBA Kiri

VBA Left juga merupakan salah satu fungsi lembaran kerja yang dikategorikan di bawah fungsi teks yang digunakan dalam VBA dengan aplikasi. kaedah lembaran kerja, ia mengembalikan bilangan aksara yang ditentukan dari bahagian kiri rentetan.

Beberapa fungsi excel juga disatukan dengan VBA. Dari sekian banyak fungsi teks, VBA LEFT adalah salah satu fungsi yang sering kita gunakan berbanding formula lain.

Sekiranya anda mengetahui fungsi LEFT excel, maka fungsi VBA LEFT adalah sama. Ia dapat mengekstrak watak dari sebelah kiri rentetan atau nilai yang diberikan oleh pengguna.

Sintaks fungsi KIRI sama seperti fungsi lembaran kerja.

Ia mempunyai dua hujah.

Rentetan: Ini hanyalah nilai atau rujukan sel. Dari nilai ini, kami ingin memotong watak.
Panjang: Berapa banyak watak yang ingin anda ekstrak dari rentetan yang telah anda berikan. Ini mestilah nilai berangka.

Bagaimana menggunakan Fungsi Kiri Excel VBA?

Contoh # 1

Andaikan anda mempunyai perkataan "Sachin Tendulkar" dan anda hanya mahukan 6 watak pertama dari perkataan ini. Kami akan menunjukkan cara mengekstrak dari kiri menggunakan fungsi KIRI di VBA.

Langkah 1: Buat nama makro dan Tentukan pemboleh ubah sebagai String.

Kod:

Sub Kiri_Contoh1 () Turunkan Nilai Saya Sebagai String End Sub

Langkah 2: Sekarang tetapkan nilai pada pemboleh ubah ini

Kod:

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

Langkah 3: Buka fungsi KIRI.

Kod:

Sub Left_Example1 () Dim MyValue Sebagai String MyValue = Left (End Sub

Langkah 4: Argumen pertama adalah untuk memberitahu apakah rentetan atau nilai. Nilai kami di sini adalah "Sachin Tendulkar."

Kod:

Sub Kiri_Contoh1 () Turunkan Nilai Saya Sebagai Rentetan Nilai Saya = Kiri ("Sachin Tendulkar", Sub Akhir

Langkah 5: Panjangnya tidak lebih dari berapa banyak watak yang kita perlukan dari kiri. Kami memerlukan 6 watak.

Kod:

Sub Left_Example1 () Dim My Value Sebagai String MyValue = Left ("Sachin Tendulkar", 6) End Sub

Langkah 6: Tunjukkan nilai di Kotak Msg VBA.

Kod:

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

Langkah 7: Jalankan makro menggunakan kunci F5 atau secara manual melalui pilihan jalankan untuk mendapatkan hasilnya di kotak mesej.

Pengeluaran:

Daripada menunjukkan hasilnya di kotak mesej, kami dapat menyimpan hasil ini di salah satu sel di lembaran kerja excel kami. Kita hanya perlu menambahkan rujukan sel dan nilai pemboleh ubah.

Kod:

Sub Left_Example1 () Dim MyValue Sebagai String MyValue = Left ("Sachin Tendulkar", 6) Julat ("A1"). Nilai = MyValue End Sub

Sekarang, jika anda menjalankan kod ini, kami akan mendapat nilai dalam sel A1.

Contoh # 2 - KIRI dengan Fungsi Lain

Dalam kes di atas, kami telah secara langsung memberikan panjang watak yang kami perlukan dari arah kiri, tetapi ini lebih sesuai untuk satu atau dua nilai. Andaikan di bawah adalah senarai nilai yang anda ada dalam lembaran 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 kod ini secara manual, atau melalui F5, kita akan mendapat nama pertama.

Kami mendapat nama pertama untuk satu nama, tetapi kami juga mempunyai beberapa nama lain. Kita tidak dapat menulis 100 baris kod untuk diekstrak, lalu bagaimana kita mengekstrak?

Di sinilah keindahan gelung muncul dalam gambar. Berikut adalah kod gelung, yang dapat menghilangkan semua langkah yang tidak diingini dan dapat melakukan pekerjaan dalam 3 baris.

Kod:

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