Perbandingan String VBA

Perbandingan String Excel VBA

Kami memiliki fungsi bawaan untuk membandingkan dua string di VBA: ‘ StrComp .’ Kita bisa membacanya sebagai ‘ Perbandingan String .’ Fungsi ini hanya tersedia dengan VBA dan bukan sebagai fungsi Lembar Kerja. Itu membandingkan dua string apa pun dan mengembalikan hasilnya sebagai ‘Nol (0)’ jika kedua string cocok. Kami akan mendapatkan ‘Satu (1)’ jika kedua string yang disediakan tidak cocok.

Di VBA atau Excel, kami menghadapi banyak skenario berbeda. Salah satu skenario tersebut adalah membandingkan dua nilai string. Tentu saja, kita dapat melakukan ini dalam lembar kerja biasa dengan berbagai cara, tetapi bagaimana Anda melakukannya di VBA?

tautan atribusi

Di bawah ini adalah sintaks dari fungsi ‘StrComp’.

Pertama, dua argumen cukup sederhana.

Untuk String 1, kita perlu memberikan nilai pertama yang kita bandingkan.
Untuk String 2, kita perlu menyediakan nilai kedua yang kita bandingkan.
[Bandingkan] ini adalah argumen opsional dari fungsi StrComp. Akan sangat membantu ketika kita ingin membandingkan perbandingan peka huruf besar kecil. Misalnya, dalam argumen ini, ‘Excel’ tidak sama dengan ‘EXCEL’ karena kedua kata tersebut peka huruf besar-kecil.

Kami dapat menyediakan tiga nilai di sini.

Nol (0) untuk ‘ Perbandingan Biner, ‘ yaitu, ‘Excel,’ tidak sama dengan ‘EXCEL.’ Untuk perbandingan peka huruf besar kecil, kami dapat menyediakan 0.
Satu (1) untuk ‘ Bandingkan Teks, ‘ yaitu, ‘Excel,’ sama dengan ‘EXCEL.’ Ini adalah perbandingan non-peka huruf besar-kecil.
Dua (2) ini hanya untuk perbandingan database.

Hasil dari fungsi ‘StrComp’ tidak default BENAR atau SALAH tetapi bervariasi. Di bawah ini adalah hasil yang berbeda dari fungsi ‘StrComp’.

Kami akan mendapatkan ‘0’ jika string yang disediakan cocok.
Kami akan mendapatkan ‘1’ jika string yang disediakan tidak cocok. Dalam kasus pencocokan numerik, kita akan mendapatkan 1 jika String 1 lebih besar dari string 2.
Kita akan mendapatkan ‘-1’ jika angka string 1 lebih kecil dari angka string 2.

Bagaimana Melakukan Perbandingan String di VBA?

Contoh 1

Kami akan mencocokkan ‘ Bangalore ‘ dengan string ‘ BANGALORE .’

Namun, pertama-tama, deklarasikan dua variabel VBADeklarasikan Dua Variabel VBADeklarasi variabel diperlukan dalam VBA untuk mendefinisikan variabel untuk tipe data tertentu sehingga dapat menyimpan nilai; variabel apa pun yang tidak ditentukan dalam VBA tidak dapat menyimpan nilai. Baca lebih lanjut sebagai string untuk menyimpan dua nilai string.

Kode:

Sub String_Comparison_Example1() Dim Value1 Sebagai String Dim Value2 Sebagai String End Sub

Untuk dua variabel ini, simpan dua nilai string.

Kode:

Sub String_Comparison_Example1() Dim Value1 As String Redup Value2 As String Value1 = “Bangalore” Value2 = “BANGALORE” End Sub

Sekarang, deklarasikan satu variabel lagi untuk menyimpan hasil dari fungsi ‘ StrComp ‘.

Kode:

Sub String_Comparison_Example1() Dim Value1 As String Redup Value2 As String Value1 = “Bangalore” Value2 = “BANGALORE” Dim FinalResult As String End Sub

Untuk variabel ini, buka fungsi ‘StrComp’.

Kode:

Sub String_Comparison_Example1() Redupkan Nilai1 Sebagai String Redupkan Nilai2 Sebagai String Value1 = “Bangalore” Value2 = “BANGALORE” Redupkan FinalResult Sebagai String FinalResult = StrComp( End Sub

Kita telah menetapkan nilai melalui variabel untuk ‘String1’ dan ‘String2’, jadi masukkan nama variabelnya masing-masing.

Kode:

Sub String_Comparison_Example1() Dim Value1 As String Dim Value2 As String Value1 = “Bangalore” Value2 = “BANGALORE” Redupkan FinalResult Sebagai String FinalResult = StrComp(Value1, Value2, End Sub

Bagian terakhir dari fungsi adalah ‘Bandingkan’ untuk pilihan ini ‘vbTextCompare . ‘

Kode:

Sekarang tampilkan variabel ‘Hasil Akhir’ di kotak pesan di Kotak VBAMessage Dalam fungsi VBAVBA MsgBox adalah fungsi keluaran yang menampilkan pesan umum yang disediakan oleh pengembang. Pernyataan ini tidak memiliki argumen dan pesan yang dipersonalisasi dalam fungsi ini ditulis di bawah tanda kutip ganda sedangkan untuk nilai referensi variabel disediakan.baca lebih lanjut.

Kode:

Mari kita jalankan kodenya dan lihat hasilnya.

Keluaran:

Karena string ‘Bangalore’ dan ‘BANGALORE’ adalah sama, kami mendapatkan hasilnya sebagai 0, yaitu pencocokan. Namun, kedua nilai peka huruf besar kecil karena kami telah memberikan argumen sebagai ‘vbTextCompare , ‘ itu telah mengabaikan kecocokan peka huruf besar kecil dan hanya mencocokkan nilai, sehingga kedua nilainya sama, dan hasilnya adalah 0, yaitu, BENAR .

Kode:

Contoh #2

Kami akan mengubah metode perbandingan untuk kode yang sama dari ‘vbTextCompare’ menjadi ‘vbBinaryCompare . ‘

Kode:

Sub String_Comparison_Example2() Dim Value1 As String Dim Value2 As String Value1 = “Bangalore” Value2 = “BANGALORE” Redupkan FinalResult Sebagai String FinalResult = StrComp(Value1, Value2, vbBinaryCompare) MsgBox FinalResult End Sub

Sekarang, jalankan kodenya dan lihat hasilnya.

Keluaran:

Meskipun kedua stringnya sama, kami mendapatkan hasilnya sebagai 1, yaitu, tidak cocok karena kami telah menerapkan metode bandingkan sebagai ‘vbBinaryCompare’, yang membandingkan dua nilai sebagai peka huruf besar-kecil.

Contoh #3

Sekarang, kita akan melihat bagaimana membandingkan nilai numerik. Untuk kode yang sama, kami akan menetapkan nilai yang berbeda.

Kode:

Sub String_Comparison_Example3() Dim Value1 As String Dim Value2 As String Value1 = 500 Value2 = 500 Dim FinalResult As String FinalResult = StrComp(Value1, Value2, vbBinaryCompare) MsgBox FinalResult End Sub

Kedua nilai tersebut adalah 500. Oleh karena itu, kita akan mendapatkan hasil 0 karena kedua nilai tersebut cocok.

Keluaran:

Sekarang, kita akan mengubah angka Value1 dari 500 menjadi 100.

Kode:

Sub String_Comparison_Example3() Dim Value1 As String Dim Value2 As String Value1 = 1000 Value2 = 500 Dim FinalResult As String FinalResult = StrComp(Value1, Value2, vbBinaryCompare) MsgBox FinalResult End Sub

Jalankan kodenya dan lihat hasilnya.

Keluaran:

Kita tahu Nilai1 dan Nilai2 tidak sama. Tapi hasilnya -1 bukan 1 karena untuk perbandingan numerik, ketika nilai String 1 lebih besar dari String 2, kita akan mendapatkan -1 ini.

Kode:

Sekarang, kita akan membalik nilainya.

Kode:

Sub String_Comparison_Example3() Dim Value1 As String Dim Value2 As String Value1 = 500 Value2 = 1000 Dim FinalResult As String FinalResult = StrComp(Value1, Value2, vbBinaryCompare) MsgBox FinalResult End Sub

Jalankan kodenya dan lihat hasilnya.

Keluaran:

Itu tidak istimewa. Jika tidak cocok, kita hanya akan mendapatkan 1.

Hal yang Perlu Diingat di sini

Argumen [Bandingkan] dari ‘StrComp’ adalah opsional, tetapi dalam kasus kecocokan peka huruf besar kecil, kita dapat memanfaatkan ini, dan opsinya adalah ‘vbBinaryCompare.’
Hasil nilai numerik sedikit berbeda jika String 1 lebih besar dari string 2, dan hasilnya -1.
Hasilnya adalah 0 jika cocok dan 1 jika tidak cocok.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk perbandingan string VBA. Di sini, kita membahas membandingkan dua nilai string menggunakan fungsi StrComp di Excel VBA dan contoh serta mengunduh template Excel. Anda juga dapat melihat artikel lain yang terkait dengan Excel VBA: –