VBA StrComp

Fungsi Excel VBA StrComp

VBA StrComp adalah fungsi bawaan yang digunakan untuk membandingkan apakah kedua nilai string identik. Namun, hasil tidak default sebagai BENAR atau SALAH seperti di lembar kerja. Sebaliknya, itu berbeda.

Sebelum kita melihat hasilnya, izinkan saya menunjukkan sintaks dari fungsi StrComp terlebih dahulu.

String 1: String 1 adalah string atau nilai pertama yang kita bandingkan.
String 2: String 2 adalah string atau nilai kedua yang kita bandingkan dengan String 1.
Bandingkan: Kami dapat menyediakan tiga opsi di sini.
- 0 = Perbandingan Biner. Itu melakukan perhitungan peka huruf besar-kecil. Misalnya, “Halo” tidak sama dengan “HELLO” karena kedua kasus kata berbeda. Ini adalah nilai default jika Anda mengabaikan parameter ini. vbBinaryCompare
- 1 = Bandingkan Teks. Opsi ini melakukan perhitungan non-peka huruf besar kecil. Misalnya, “Halo” sama dengan “HELLO” meskipun kedua kasus kata berbeda. vbTextCompare
- 2 = Akses Bandingkan. Itu melakukan perbandingan basis data.

Fungsi Hasil Perbandingan String (StrComp).

Saat kami membandingkan dua nilai di lembar kerja, kami mendapatkan hasilnya sebagai BENAR atau SALAH. Tetapi dengan string VBA Fungsi StringString VBA di VBA tidak menggantikan string; sebagai gantinya, fungsi ini membuat string baru. Ada banyak fungsi string di VBA, semuanya diklasifikasikan sebagai fungsi string atau teks. Baca lebih lanjut fungsi perbandingan. Hasilnya tidak sama.

Kami mendapatkan nol (0) ketika String 1 sama dengan String 2.
Kami mendapatkan satu (1) ketika nilai String 1 melebihi String 2 Value .
Kita mendapatkan minus satu (-1) ketika nilai String 1 lebih kecil dari String 2
Kami mendapatkan NULL ketika nilai String 1 atau String 2 adalah NULL.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA StrComp (wallstreetmojo.com)

Contoh untuk menggunakan Fungsi VBA StrComp

Contoh 1

Mari kita mulai dengan contoh sederhana. Misalnya, kami akan membandingkan dua nilai: “Excel VBA” dan “Excel VBA”.

Kode:

Sub StrComp_Example1() Dim FirstValue Sebagai String ‘Untuk Menyimpan Nilai String 1 Dim SecondValue Sebagai String ‘Untuk Menyimpan Nilai String 2 Dim Hasil Sebagai String ‘Untuk Menyimpan Hasil dari rumus StrComp FirstValue = “Excel VBA” ‘Menetapkan Nilai String 1 SecondValue = “Excel VBA” ‘Tetapkan nilai String 2 Hasil = StrComp(FirstValue, SecondValue, vbBinaryCompare) ‘Terapkan fungsi StrComp Hasil MsgBox ‘Tampilkan hasilnya di kotak pesan End Sub

Ketika kita menjalankan kode ini, kita akan mendapatkan Nol (0) karena nilai String 1 dan 2 sama.

Contoh #2

Sekarang, kami akan mengubah kasus dua kata.

String 1 = Excel Vba

Baris 2 = Excel VBA

Kode:

Sub StrComp_Example2() Redupkan FirstValue As String ‘Untuk Menyimpan Nilai String 1 Redupkan SecondValue As String ‘Untuk Menyimpan Nilai String 2 Redupkan Hasil Sebagai String ‘Untuk Menyimpan Hasil Formula StrComp FirstValue = “Excel Vba” ‘Tetapkan Nilai String 1 SecondValue = “Excel VBA” ‘Tetapkan nilai String 2 Hasil = StrComp(FirstValue, SecondValue, vbBinaryCompare) ‘Terapkan fungsi StrComp Hasil MsgBox ‘Tampilkan hasilnya di kotak pesan End Sub

Saat kita menjalankan kode ini, kita akan mendapatkan 1 karena sejak kita memberikan argumen Bandingkan sebagai ” vbBinaryCompare ,” kode ini akan memeriksa karakter peka huruf besar-kecil.

Sekarang, kita akan mengubah opsi Bandingkan dari “ vbBinaryCompare” menjadi “ vbTextCompare . “

Kode:

Sub StrComp_Example3() Dim FirstValue Sebagai String ‘Untuk Menyimpan Nilai String 1 Dim SecondValue Sebagai String ‘Untuk Menyimpan Nilai String 2 Dim Hasil Sebagai String ‘Untuk Menyimpan Hasil dari rumus StrComp FirstValue = “Excel Vba” ‘Menetapkan Nilai String 1 SecondValue = “Excel VBA” ‘Tetapkan nilai String 2 Hasil = StrComp(FirstValue, SecondValue, vbTextCompare) ‘Terapkan fungsi StrComp Hasil MsgBox ‘Tampilkan hasilnya di kotak pesan End Sub

Dengan Bandingkan ini, kita akan mendapatkan nol (0) karena vbaTextCompare mengabaikan kata-kata peka huruf besar-kecil.

Contoh #3

Studi Kasus VBA StrComp dengan Kondisi IF

Asumsikan Anda memiliki data seperti gambar di bawah ini.

Kita perlu membandingkan String 1 dengan String 2 dan sampai pada Hasil sebagai “Tepat” jika keduanya sama. Jika tidak, hasilnya harus “Tidak Tepat”.

Kode di bawah ini akan melakukan pekerjaan untuk kita.

Kode:

Sub StrComp_Example4() Dim Hasil Sebagai String Dim I Sebagai Integer For i = 2 To 6 Result = StrComp(Cells(i, 1).Value, Cells(i, 2).Value) If Result = 0 Then Cells(i, 3 ).Value = “Tepat” Else Cells(i, 3).Value = “Tidak Tepat” End If Next i End Sub

Ketika kita menjalankan kode VBA di atas dalam Kode ExcelVBA Dalam Kode ExcelVBA mengacu pada sekumpulan instruksi yang ditulis oleh pengguna dalam bahasa pemrograman Aplikasi Visual Basic pada Editor Visual Basic (VBE) untuk melakukan tugas tertentu.Baca lebih lanjut, kita akan mendapatkan hasil di bawah ini.

Jika Anda melihat sel C4, String 1 dan 2 adalah sama. Tapi karakter peka terhadap huruf besar/kecil, jadi hasilnya “Tidak Tepat”. Untuk mengatasi masalah ini, kita perlu menyediakan Bandingkan sebagai vbTextCompare.

Di bawah ini adalah kode yang dimodifikasi untuk mendapatkan hasil sebagai “Tepat” untuk sel C4.

Kode:

Sub StrComp_Example4() Dim Hasil Sebagai String Dim I Sebagai Integer For i = 2 To 6 Result = StrComp(Cells(i, 1).Value, Cells(i, 2).Value, vbTextCompare) If Result = 0 Then Cells(i , 3).Value = “Exact” Else Cells(i, 3).Value = “Not Exact” End If Next i End Sub

Kode ini akan mengembalikan hasil di bawah ini.

Artikel yang Direkomendasikan

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