Fungsi VBA LEN

Fungsi Len adalah fungsi umum untuk kedua-dua lembar kerja dan VBA, ini adalah fungsi bawaan untuk kedua-dua platform dan sintaks untuk menggunakan fungsi ini juga serupa, argumen yang diambil oleh fungsi ini di kedua-dua platform adalah serupa yang merupakan rentetan dan penggunaan atau output untuk fungsi ini sama kerana mengembalikan panjang rentetan.

Fungsi VBA LEN mengembalikan "panjang rentetan" iaitu mengembalikan berapa banyak watak yang ada dalam nilai yang diberikan. Dari semua fungsi rentetan dalam VBA, "LEN" adalah fungsi yang paling tidak digunakan. Saya telah melihat fungsi "VBA LEN" digunakan sebagai fungsi sokongan untuk fungsi rentetan lain seperti fungsi VBA MID dan fungsi VBA RIGHT.

Bagaimana anda mencari panjang tali atau nilai?

Contohnya, jika anda kalimat "Hello Guys, Selamat Pagi !!!" dan anda jika anda ingin mencari bilangan watak di dalamnya bagaimana anda menemuinya? Dalam artikel ini, kami akan menunjukkan kepada anda fungsi "VBA LEN".

Rumusan Fungsi VBA LEN

Fungsi LEN hanya mempunyai satu sintaks iaitu Ekspresi.

Ungkapan tidak lain hanyalah nilai yang cuba kita uji.

Contohnya, Len ("Bagus") akan mengembalikan 4.

Contoh

Berikut adalah contoh FBA Panjang String Fungsi.

Contoh # 1

Panjang fungsi String VBA sangat mudah digunakan. Contohnya, lihat kod VBA di bawah.

Kod:

 Sub LEN_Contoh () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub

Dalam pemboleh ubah kod di atas adalah "Total_Length".

Dim Total_Length Seperti Rentetan

Untuk pemboleh ubah ini, kami telah menetapkan nilai melalui fungsi VBA LEN.

Total_Length = Len ("Excel VBA")

Untuk fungsi LEN, kami telah menetapkan nilai sebagai "Excel VBA".

Total_Length = Len ("Excel VBA")

Seterusnya, kami menunjukkan hasilnya di kotak mesej VBA.

Total_Length MsgBox

Apabila saya menjalankan kod ini menggunakan kunci F5 atau secara manual, hasilnya kita akan mendapat 9 kerana ruang juga merupakan watak.

VBA LEN sebagai Fungsi Sokongan

Contoh # 1

Tujuan fungsi LEN kebanyakan digunakan dengan fungsi lain. Saya telah menggunakan fungsi ini dengan fungsi KANAN & Instr.

Sebagai contoh, lihat data sampel di bawah.

Dari data di atas, kita perlu mengekstrak Tarikh secara berasingan dan Catatan Secara Berasingan. Salin data di atas ke lembaran excel anda dan tampal di Sel A1.

Untuk mengekstrak unsur-unsur ini, kita perlu menggunakan fungsi LEN dengan fungsi rentetan yang lain. Kod di bawah akan berfungsi untuk kita.

Kod:

Sub LEN_Contoh1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'Dalam kes ini data saya bermula dari sel kedua dan berakhir pada 6hb. 'Berdasarkan data anda ubah nombor OurValue = ActiveSheet.Cells (k, 1). Value' Ini akan mengekstrak 10 aksara pertama iaitu bahagian Date ActiveSheet.Cells (k, 2). Value = Left (Trim (OurValue), 10) 'Ini akan mengekstrak bahagian komen ActiveSheet.Cells (k, 3). Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Sub Akhir Akhir

Apabila kita menjalankan kod ini secara manual atau melalui kunci F5, kita akan mendapat hasilnya seperti di bawah.

Contoh # 2

Sekarang saya akan menunjukkan kepada anda cara menggunakan Panjang tali VBA sebagai fungsi sokongan untuk mengekstrak nama belakang nama penuh dengan fungsi KANAN & Instr.

Untuk demonstrasi lihat data di bawah.

Dari senarai di atas, kita perlu mengekstrak Nama Akhir dari nama penuh. Kod di bawah akan mengeluarkan nama belakang. LEN digunakan sebagai fungsi sokongan di sini.

Kod:

 Sub LEN_Contoh2 () Dim PenuhNama Sebagai Rentetan Dim k Selagi k = 2 Hingga 8Nama Penuh = ActiveSheet.Cells (k, 1). Nilai 'Ini akan mengekstrak nama belakang ActiveSheet.Cells (k, 2). Nilai = Kanan (Nama Penuh , Len (Nama Penuh) - InStr (1, Nama Penuh, "")) 'LEN menemui bilangan watak penuh' Instr mencari watak ruang 'LEN - Inst akan memberikan jumlah watak dari Sub Akhir Akhir yang betul