Funktsioon VBA StrComp

Oma töös teeme tavaliselt iga kord võrdlusi. Need võrdlused võivad hõlmata numbritekste või mis tahes andmeid. Numbrite osas teame juba, kuidas me võrdlust teeme. Selleks on palju matemaatilisi meetodeid. Kuid kuidas võrrelda kahte stringi, millise tulemuse saame. VBA STRCOMP on stringide võrdlusfunktsioon. See võrdleb kahte stringi üksteisega ja annab meile tulemuse. Võrdluse tulemus pole aga tõene ega vale. Funktsiooni STRCOMP kahte stringi saab võrrelda kolmel viisil. Enne kui me sellesse sukeldume, vaatame selle funktsiooni süntaksi.

StrCompi süntaks Excel VBA-s

Funktsiooni VBA StrComp süntaks on järgmine:

String 1 on string, mida võrreldakse stringiga 2. Võrdlusmeetodid on selle funktsiooni jaoks valikulised. Nüüd läheme selle funktsiooni võrdlusmeetodite juurde. Selles funktsioonis on kolme tüüpi võrdlusmeetodeid ja need on järgmised:

  1. VbBinaryCompare: see on vaikimisi võrdlusmeetod, kui me ei vali oma funktsiooni jaoks võrdlusmeetodit. See võrdlusmeetod on tõstutundlik, mis tähendab, et stringid 1 ja 2 on samad, kuid string 1 on väiketähtedega ja string 2 on suurtähtedega, mõlemad ei ole sarnased. Binaarsed koodid a ja A erinevad. Samamoodi teiste tegelastega. Neid koode nimetatakse ASCII koodideks.
  2. VbTextCompare: Selles võrdlusmeetodis ei ole võrdlus tõstutundlik, nii et kui stringid 1 ja 2 on võrdsed, kuid mitte samal juhul, siis kasutatakse neid võrdlusmeetodeid.
  3. Juurdepääsu võrdlus: seda meetodit kasutatakse andmebaaside võrdlustes.

Mis tulemuse selle funktsiooni kasutamisel saavutame? Selle võrdlusfunktsiooni kasutamisel ei saa me tõesust ega vale. Selle asemel võib meil olla mõni järgmistest tulemustest:

  1. 0, kui stringid on üksteisega võrdsed.
  2. 1, kui stringid ei kattu üksteisega.
  3. -1, kui esimene string on väiksem kui string 2.
  4. NULL, kui nii 1. kui ka 2. stringil pole väärtust.

Tutvume erinevate näidetega ja näeme, kuidas neid stringi võrdlusi VBA-s tehakse.

Kuidas kasutada VBA StrCompi funktsiooni Excelis?

Õpime kasutama VBA StrCompi funktsiooni näites Excelis.

Selle VBA StrCompi Exceli malli saate alla laadida siit - VBA StrCompi Exceli mall

Näide nr 1 - VBA StrComp

Kasutagem kõigepealt oma näites binaarset võrdlusmeetodit. Võtame kasutajalt kaks stringi sisendit, ühe väiketähega, teise aga suurtähega ja võrdleme neid.

1. samm: arendaja vahekaardilt ja seejärel Visual Basicult, et pääseda VB redigeerijasse.

2. samm: sisestage moodul vahekaardilt insert, et alustada koodide kirjutamist VBA-s.

3. samm: topeltklõpsake projekti vahekaardil moodulil ja kuulutage alamfunktsioon järgmiselt.

Kood:

 Alamproov () Lõpp Alam

4. samm: peame määratlema kolm muutujat stringina, kaks hoiavad meie sisendit, teine ​​aga salvestab tulemuse.

Kood:

 Alamproov () Tühjendage A, B, C kui stringi lõpp Sub

5. samm: muutujates A ja B sisestage kasutajalt kaks stringi järgmiselt.

Kood:

 Alamproov () Dim A, B, C kui string A = InputBox ("Sisestage string", "Väiketähed") B = InputBox ("Sisestage string", "Suurtähtedega") Lõpp Sub

6. samm: võrrelge muutuja A ja B mõlemat stringi ja salvestage väärtus C-ga, kasutades funktsiooni STRCOMP, ja kasutage binaarse võrdlusena võrdlusmeetodit.

Kood:

 Alamproov () Dim A, B, C kui string A = InputBox ("Sisestage string", "Väiketähed") B = InputBox ("Sisestage string", "Suurtähtedega") C = StrComp (A, B, vbBinaryCompare) End Sub

7. samm . Funktsiooni Msgbox abil kuvage muutujasse C salvestatud väljund.

Kood:

 Alamproov () Dim A, B, C kui string A = InputBox ("Sisestage string", "Väiketähed") B = InputBox ("Sisestage string", "Suurtähtedega") C = StrComp (A, B, vbBinaryCompare) MsgBox C lõpp - alam

8. samm: vajutage kood F5 ja sisestage kaks sisestusstringi järgmiselt:

9. samm: vaadake lõpptulemust järgmiselt.

Saame tulemuseks 1, kuna binaarses võrdluses ei ole mõlemad stringid võrdsed, kuna üks string on suurtähega, teine ​​aga väiketähega.

Näide 2 - VBA StrComp

Kasutagem nüüd teist võrdlusmeetodit, mis on VbTextCompare, ja vaatame, milliseid tulemusi saame samade sisendite kohta, mida me eespool pakkusime.

1. samm: moodulisse lisasime varem, topeltklõpsake seda projekti vahekaardil ja kuulutage alamfunktsioon, et alustada teise näitega tööd järgmiselt.

Kood:

 Alamproov1 () Lõpeta alamvalim

2. samm: peame määratlema kolm muutujat stringina, kaks hoiavad meie sisendit, teine ​​aga salvestab tulemuse.

Kood:

 Alamproov1 () Tühjendage A, B, C kui stringi lõpp Sub

3. samm: muutujates A ja B sisestage kasutajalt kaks stringi järgmiselt.

Kood:

 Alamnäide1 () Dim A, B, C kui string A = InputBox ("Sisestage string", "Väiketähed") B = InputBox ("Sisestage string", "Suurtähtedega") Lõpp Sub

4. samm: võrrelge muutuja A ja B mõlemat stringi ja salvestage väärtus C-ga, kasutades funktsiooni STRCOMP, ja kasutage võrdlusmeetodit teksti võrdlusena.

Kood:

 Alamnäide1 () Dim A, B, C kui string A = InputBox ("Sisestage string", "Väiketähed") B = InputBox ("Sisestage string", "Suurtähtedega") C = StrComp (A, B, vbTextCompare) End Sub

5. samm . Funktsiooni Msgbox abil kuvage muutujasse C salvestatud väljund.

Kood:

 Alamnäide1 () Dim A, B, C kui string A = InputBox ("Sisestage string", "Väiketähed") B = InputBox ("Sisestage string", "Suurtähtedega") C = StrComp (A, B, vbTextCompare) MsgBox C lõpp - alam

6. samm: nüüd vajutage klahvi F5 ja sisestage kaks sisestusstringi järgmiselt.

7. samm: vaadake lõpptulemust järgmiselt.

Saame tulemuseks 0, kuna teksti võrdlus ei ole tõstutundlik, mis tähendab, et stringid on võrdsed.

Näide nr 3 - VBA StrComp

Nüüd on mul lehel 1 järgmised andmed, tahan teada saada, kas mõlemad veeru A ja veeru B andmed on üksteisega sarnased või mitte. Vaadake allpool olevaid andmeid.

1. samm: Töötagem järgmises näites oma kolmandas näites.

Kood:

 Alamproov2 () Lõpeta alamvalim

2. samm: aktiveerige tööleht 1, et saaksime kasutada selle atribuute.

Kood:

 Alamvalim2 () töölehed ("leht1"). Aktiveerige alamvalik

3. samm: kuulutage kaks muutujat täisarvuna, mida kasutatakse silmuse jaoks, ja teist stringina, mida kasutatakse võrdlustulemuse salvestamiseks.

Kood:

 Alamvalim2 () töölehed ("leht1"). Aktiveerige Dim A täisarvuna Dim B String End Sub

4. samm: kirjutage järgmine kood, et võrrelda ja kasutada silmuse jaoks.

Kood:

 Alamvalim2 () töölehed ("leht1"). Aktiveerige Dim A täisarvuna Dim B kui string A = 2 kuni 5 B = StrComp (lahtrid (A, 1) .Väärtus, lahtrid (A, 2) .Väärtus, vbBinaryCompare) Kui B = 0, siis lahtrid (A, 3) .Value = "Equal" Else Cells (A, 3) .Value = "NOT Equal" End Kui järgmine A End Sub

5. samm: käivitage ülaltoodud kood ja vaadake tulemust 1. lehel järgmiselt.

Ükski keel ei olnud võrdluses võrdne.

Asjad, mida meeles pidada

  • See on võrdlusfunktsioon.
  • Tagastab väärtuse 0, 1, -1 või NULL, kuna see pole tõene ega vale.
  • Kui me ei paku ühtegi võrdlusmeetodit, on vaikimisi võrdlusmeetodiks VbBinaryCompare.
  • Võrdlusmeetod on selle funktsiooni valikuline argument.

Soovitatavad artiklid

See on VBA StrCompi juhend. Siin arutatakse, kuidas kasutada funktsiooni Excel VBA StrComp koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA InStr selgitas näidetega
  2. VBA täisarvutüüp
  3. Kuidas valida lahtrit VBA-koodi abil?
  4. Pange vahemik üle VBA-s
  5. VBA töölehed (näited)

Kategooria:

VBA