Clàr-innse
Fhad ‘s a bhios sinn ag obair le còdan Excel VBA, thig sinn tarsainn air beagan ghnìomhan togte a thionndaidheas gnìomh iom-fhillte gu còd beag aon-loidhne. Tha InStr a leithid de ghnìomh ri fhaighinn ann an Excel VBA a bhios a’ lorg sreang sònraichte taobh a-staigh sreang sònraichte eile a’ tòiseachadh bho shuidheachadh sònraichte. An-diugh bidh mi a' sealltainn mar as urrainn dhut an gnìomh InStr ann an VBA a chleachdadh gus sreang shònraichte a lorg taobh a-staigh sreang shònraichte eile.
Luchdaich sìos Leabhar-obrach Cleachdaidh
6>InStr Function.xlsm
Ro-ràdh gu Dleastanas InStr VBA
- Geàrr-chunntas
Sgrùdaidh sreang shònraichte taobh a-staigh sreang shònraichte, a' tòiseachadh o shuidheachadh sònraichte. Ma lorgas tu maids, tillidh e an suidheachadh san t-sreang a thug thu às às an do thòisich an maids.
- Co-chòrdadh
InStr([start ],string1,string2,[coimeas])
- Argamaidean
| ARGAIDH | RIAGHALTAS | TUAIRISG
| |||
|---|---|---|---|---|---|
| [tòisich] | Roghainneil | An suidheachadh às an tòisich e a’ rannsachadh. 'S e 1 an t-sreang bunaiteach anns a bheil e a' lorg sreang a chaidh a thoirt seachad. | sreang2 | Riatanach | An t-sreang a lorg e taobh a-staigh sreang shònraichte. |
| [ dèan coimeas] | Roghainneil | Luach àireamhach eadar {-1,0,1,2} a shònraicheas an seòrsa coimeas. Tha anis e am prìomh rud -1 (vbUseCompareOption). Mura h-eil an aithris Coimeas Roghainn air a shònrachadh, dèan Coimeas Dàna. |
An aire:
- Ged a tha Tha [tòisich] agus an argamaid [coimeas] roghainneil, feumaidh tu an argamaid [start] ma shònraicheas tu an argamaid [coimeas] . Mur eil, togaidh e mearachd.
- Ma tha aon no dhà dhe na h-argamaid [tòisich] agus an argamaid [coimeas] Null , bidh mearachd agad.
- Tha na ceithir luachan ainmichte san argamaid [coimeas] a' coileanadh ceithir diofar sheòrsachan coimeas. Tha iad air an ainmeachadh gu h-ìosal:
| LUACH | SANTA | Tuairisgeul
|
|---|---|---|
| -1 | vbUseCompareOption | Dèan a’ choimeas a chaidh a shònrachadh ann an an aithris Dèan coimeas eadar Roghainn. |
| 0 | vbBinaryCompare | Dèan coimeas binary. |
| 1 | vbTextCompare | Dèan coimeas teacsa. |
| 2 | vbDatabaseCompare | Dèan coimeas stèidhichte air an stòr-dàta agad . |
- Option Compare aithris a tha air a sholarachadh mus tòisich prìomh chòd VBA. Tha e a’ sònrachadh am bi an còd a’ lorg Coimeas Dàna no Coimeas Teacsa nuair a bhios feum air.
Roghainn Dèan coimeas eadar Teacs
- Gu sìmplidh , tha Coimeas Dàna a’ ciallachadh cùis-mhothachailcoimeas.
- Gu sìmplidh , tha Coimeas Teacsa a’ ciallachadh coimeas neo-mhothachail a’ chùis.
- Tillidh seo an suidheachadh san sreang1 às an do thòisich an string2 .
- Air eagal 's nach lorgar sreang2 taobh a-staigh string1 a' tòiseachadh bhon t-suidheachadh tòisich , tillidh 0.
- Ma tha an sreang 1 de dh'fhaid neoni, tillidh 0.
- Ma tha an sreang 2 de dh'fhaid neoni, tillidh an argamaid tòisich .
- Agus mu dheireadh, ma tha gin dhen t-sreang 1 no Is e string2 Null , a’ tilleadh mearachd.
3 Eisimpleirean furasta airson gnìomh VBA InStr a chleachdadh
In Anns an earrainn seo, chì sinn trì eisimpleirean furasta de bhith a’ cur an gnìomh VBA InStr ann an Excel. Chì sinn a’ chiad eisimpleir den ghnìomh InStr ann an còdan VBA.
1. A’ co-dhùnadh an e seòladh puist-d a th’ ann an seòladh no nach eil le bhith a’ cleachdadh gnìomh VBA InStr
An seo, tha sinn air seata dàta a ghabhail anns a bheil cuid de sheòlaidhean conaltraidh luchd-ceannach. 'S e ar n-amas an seo faighinn a-mach an e seòlaidhean puist-d a th' anns na seòlaidhean no nach eil.
Nise leasaichidh sinn còd VBA a' cleachdadh an gnìomh InStr gus a chomharrachadh ge bith an e seòladh puist-d a th’ ann no nach eil. Airson sin a dhèanamh, lean na ceumannan gu h-ìosal.
Ceumannan:
- An toiseach, theirig gu taba Leasaiche agus tagh Visual Basic ( No brùth Alt+F11) gus an VBA fhosgladhuinneag.
- An uairsin, air an uinneag VBA , theirig gu Cuir a-steach > Modal .
- Às deidh sin, cuir a-steach an còd a leanas air a’ mhodal:
2851
<27
- A bharrachd air an sin, tha sinn air gnìomh a chruthachadh leis an t-ainm DECISION . Bidh e a’ co-dhùnadh an e seòladh puist-d a th’ ann an seòladh no nach eil. Cuiridh sinn an gnìomh an sàs san t-seata dàta a th’ againn.
- Air cealla C5 , sgrìobh sìos am foirmle a leanas agus an uairsin lìon an còrr dhe na ceallan gu fèin-obrachail a’ cleachdadh Làimhseachadh Lìonadh .
=DECISION(B5) 
- Mar a chì sinn, tha sinn air gach seòladh a chomharrachadh an e seòladh puist-d a th’ ann. neo nach eil.
2, 20, 2014, 2015, 2017 🎓 Ciamar a tha an Còd ag obair?
- Gnìomh DECISION(sreang1 Mar String)
An toiseach, cruthaichidh seo gnìomh air a bheil CO-DHÙNADH le a argamaid sreang air a h-ainmeachadh string1 .
- Dim Poition As Integer
Tha e a' cur an cèill caochladair àireamh-shluaigh leis an ainm Suidheachadh .
- Position = InStr(1, string1, “@”, 0)
Sònraichidh seo luach an Caochladair suidheachadh mar thoradh na gnìomh InStr leis na h-argamaidean 1, string1, “@” agus 0 . Ann an ùine ghoirid, bidh seo a’ sònrachadh an t-suidheachaidh anns an t-seòladh far a bheil “@” .
- Ma tha Position = 0 An uairsin CO-DHÙNADH = “Chan e post-d”
Sònraichidh e toradh an gnìomh CO-DHÙNADH mar "Chan e post-d" , ma tha an suidheachadh 'S e caochladair 0 , tha sin a' ciallachadh, cha robh "@" san t-seòladh. 1>Tillidh an gnìomh InStr 0 ).
- Else DECISION = “Post-d”
Sònraichidh seo an toradh na gnìomh DECISION mar “Post-d” ma bha “@” san t-seòladh. Mar sin tha na seòlaidhean far a bheil an “@” air an seòrsachadh mar Post-d , agus tha an còrr air an seòrsachadh mar “Chan e post-d” .
Leughaidhean coltach ris
- Mar a chleachdas tu gnìomh VBA UCASE ann an Excel (4 eisimpleirean)
- Cleachd gnìomh MsgBox ann an Excel VBA (Stiùireadh coileanta)
- Mar a chleachdas tu gnìomh VBA SPLIT ann an Excel (5 eisimpleirean)
- Cleachd gnìomh LCase ann an VBA ann an Excel (Le 4 Eisimpleirean)
- Mar a chleachdas tu gnìomh Fix ann an Excel VBA (4 eisimpleirean)
2. A’ cleachdadh gnìomh VBA InStr airson Thoir a-mach leudachadh cuid de sheòlaidhean post-d
An seo, tha liosta againn de chuid de sheòlaidhean post-d cuid de luchd-ceannach. An turas seo bheir sinn a-mach leudachadh air an t-seòladh post-d mar a bheil gmail.com no yahoo.com aca.
Airson sin a dhèanamh, lean na ceumannan gu h-ìosal.
Ceumannan:
- Airson tòiseachadh, mar an dòigh roimhe, fosgail VBA<2 ùr> modal agus cuir a-steach an còd a leanas san uinneig.
9294
- A bharrachd air sin, tha sinn air gnìomh a chruthachadh leis an t-ainm EXTENSION . Bidh e a’ toirt a-mach leudachadh air seòladh puist-d sam bith.
- A bharrachd, leig dhuinn an gnìomh seo a chuir an sàs san t-seata dàta a th’ againn. An toiseach, cuir a-steach am foirmle seo air ceal C5 agus an uairsin cliog dùbailte air an Làimhseachadh Lìonadh .
=EXTENSION(B5) 3> 
- Mu dheireadh, chì sinn gu bheil sinn air Leudachadh nam Post-d gu lèir a thoirt a-mach gu soirbheachail.
1> 🎓 Ciamar a tha an Còd ag obair?
- Leudachadh gnìomh (Post-d mar String)
Cruthaichidh seo gnìomh ùr leis an ainm EXTENSION , le a argamaid sreang air a h-ainmeachadh Post-d .
- Dim Poition As Integer
Tha am pàirt seo a' cur an cèill caochladair àireamh-shluaigh leis an ainm Suidheachadh .
- Suidheachadh = InStr(1, Post-d, “@”, 0)
Sònraichidh seo luach an Caochladair suidheachadh mar thoradh na gnìomh InStr leis na h-argamaidean 1, Post-d, “@” agus 0 . Ann an ùine ghoirid, bidh seo a’ sònrachadh an t-suidheachaidh sa Post-d far a bheil “@” .
- EXTENSION = Deas(Post-d, (Len (Post-d) - Suidheachadh))
Sònraichidh am pàirt seo toradh a’ ghnìomh EXTENSION mar na caractaran às deidh an samhla “@” . Seo an leudachadh a tha a dhìth air an Post-d .
3. A’ toirt a-mach a’ chiad ainm no an t-ainm mu dheireadh à ainm le bhith a’ cleachdadh gnìomh VBA InStr
Mu dheireadh, nì sinn gnìomh air leth eadar-dhealaichte. An turas seo tha ainmean cuid de luchd-obrach againncompanaidh. Agus feuchaidh sinn ri gnìomh a thogail gus a' chiad ainm no an t-ainm mu dheireadh den luchd-obrach a thoirt a-mach.
Airson sin a dhèanamh, lean na ceumannan gu h-ìosal.
Ceumannan:
- An toiseach, coltach ri modh 1 , cuir a-steach an còd gu h-ìosal ann am modal ùr san uinneag VBA .
2930
- An seo, tha sinn air gnìomh air a bheil SHORTNAME a chruthachadh a bheir a-mach a' chiad ainm neo an t-ainm mu dheireadh à ainm. Nach cuir sinn am foirmle seo an sàs anns an t-seata dàta againn.
- An toiseach, airson a' chiad ainm a tharraing, sgrìobh sìos am foirmle gu h-ìosal ann an cealla C5 .
=SHORTNAME(B5,-1) 
- Mu dheireadh, gus na h-ainmean mu dheireadh a tharraing a-mach, sgrìobhaidh sinn sìos am foirmle a leanas ann an D5 :
=SHORTNAME(B5,1) 
- Às deidh sin, ma lìonas sinn an còrr de na ceallan gu fèin-obrachail le Làimhseachadh lìonaidh , chì sinn an toradh a tha sinn ag iarraidh.
🎓 Ciamar a tha an Còd ag obair?
- Gnìomh SHORTNAME(Ainm Mar String, First_or_Last As Integer)
Cruthaichidh e gnìomh ùr air a bheil SHORTNAME le aon argamaid sreang air a h-ainmeachadh Ainm agus aon Argamaid Slànaighear air a h-ainmeachadh First_or_Last .
- Dim Break As Integer <11
- Break = InStr(1, Ainm, ” “, 0) <10
- Ma tha First_or_Last = -1 An uairsin SHORTNAME = Clì(Ainm, Bris – 1)
- SHORTNAME = Còir(Ainm, Len(Ainm) – Bris)
Tha a’ chuibhreann seo a’ cur an cèill caochladair iomlan ùr leis an t-ainm Break .
Sònraichidh e luach an caochladair Break mar thoradh a’ ghnìomh InStr leis na h-argamaidean 1, Ainm, “” agus 0 . Ann an ùine ghoirid, sònraichidh seo an suidheachadh san Ainm far a bheil àite (“”).
Sònraichidh an loidhne seo toradh a’ ghnìomh SHORTNAME mar na caractaran ron space , mas e -1 an argamaid First_or_Last . Seo a' chiad ainm.
Sònraichidh am pàirt seo toradh an Gnìomh SHORTNAME mar na caractaran às dèidh an space , mas e 1 an argamaid First_or_Last . Seo an t-ainm mu dheireadh.
Co-dhùnadh
San dòigh seo, 's urrainn dhut còdan VBA a sgrìobhadh leis a' ghnìomh InStr a gheibh a-mach suidheachadh sreang shònraichte am broinn tè eile a chaidh a thoirt seachad sreang, agus an uairsin faodaidh tu na gnìomhan agad fhèin a chruthachadh airson grunn chleachdaidhean. A bharrachd air an sin, ma tha ceist sam bith agad, faodaidh tu faighneachd dhuinn.
