Excel VBA كودى بىلەن ئىشلەۋاتقاندا ، مۇرەككەپ ۋەزىپىنى كىچىك بىر قۇر كودقا ئايلاندۇرىدىغان بىر قانچە ئىقتىدارنى ئۇچرىتىپ قالىمىز. InStr Excel VBA دا بار بولغان ئىقتىدار بولۇپ ، مەلۇم ئورۇندىن باشلاپ باشقا بىر قۇرنىڭ ئىچىدە مەلۇم بىر قۇرنى ئىزدەيدۇ. بۈگۈن مەن قانداق قىلىپ VBA دىكى InStr ئىقتىدارىنى ئىشلىتىپ ، باشقا بىر قۇرنىڭ ئىچىدە مەلۇم بىر قۇرنى ئىزدەيدىغانلىقىڭىزنى كۆرسىتىمەن.

InStr فۇنكسىيەسى. Xlsm

VBA InStr ئىقتىدارى خۇلاسە

بېرىلگەن ئورۇندىن باشلاپ ، مەلۇم بىر قۇر ئىچىدىكى مەلۇم بىر قۇرنى ئىزدەيدۇ. ئەگەر ماس تېپىلسا ، بېرىلگەن قۇردىكى ئورۇننى مۇسابىقە باشلانغان يەردىن قايتۇرىدۇ.

• گرامماتىكىسى

InStr ([باشلاش ], string1, string2, [سېلىشتۇرۇش])

• تالاش-تارتىش

تالاش-تارتىش

تەلەپ	چۈشەندۈرۈش
[باشلاش]	ئىختىيارى	ئىزدەشكە باشلايدىغان ئورۇن. سۈكۈتتىكىسى 1>	string2	تەلەپ قىلىنغان	مەلۇم بىر قۇر ئىچىدە ئىزدەيدىغان تىزما.
ئىختىيارى	سېلىشتۇرۇشنىڭ تىپىنى بەلگىلەيدىغان {-1,0,1,2 between ئارىسىدىكى سان قىممىتى. Theسۈكۈتتىكىسى -1 (vbUseCompareOption). ئەگەر تاللاش سېلىشتۇرۇش باياناتى ئېنىقلانمىغان بولسا ، ئىككىلىك سېلىشتۇرۇش ئېلىپ بېرىڭ.

ئەسكەرتىش:

• گەرچە بولسىمۇ ] بولمىسا ، ئۇ خاتالىق پەيدا قىلىدۇ.
• ئەگەر [باشلاش] تالاش-تارتىشىنىڭ بىرى ياكى ھەر ئىككىسى [سېلىشتۇرۇش]> ، سىز بىر خاتالىققا دۇچ كېلىسىز. ئۇلار تۆۋەندە تىلغا ئېلىنغان:

19> .19 <<> تەلەپ قىلىنغاندا كودنىڭ ئىككىلىك سېلىشتۇرۇش ياكى تېكىست سېلىشتۇرۇشنى ئىزدەيدىغان ياكى ئىزدەيدىغانلىقى بەلگىلەندى. ئاددىي قىلىپ ئېيتقاندا ، ئىككىلىك سېلىشتۇرۇش دېلوغا سەزگۈرلۈكنى كۆرسىتىدۇسېلىشتۇرۇش.

ئاددىي قىلىپ ئېيتقاندا ، تېكىست سېلىشتۇرۇش ئەھۋالغا سەزگۈر سېلىشتۇرۇشنى كۆرسىتىدۇ. 2>

• string1 باشلانغان string1 دىكى ئورنىنى قايتۇرىدۇ.
• string2 تېپىلمىغان ئەھۋال ئاستىدا string1 ئىچىدە باشلاش ئورنىدىن باشلاپ ، 0 گە قايتىدۇ.
• ئەگەر string1 نۆل ئۇزۇنلۇقتا بولسا ، 0.
قايتىدۇ
• ئەگەر string2 نۆل ئۇزۇنلۇقتا بولسا ، تالاش-تارتىشنى قايتۇرىدۇ باشلاش .
• ئاخىرىدا ، ئەگەر string1 ياكى string2 بولسا Null ، خاتالىقنى قايتۇرىدۇ. بۇ بۆلەكتە ، Excel دا VBA InStr ئىقتىدارىنى قوللىنىشنىڭ ئۈچ ئاسان مىسالىنى كۆرىمىز. VBA كودىدىكى InStr ئىقتىدارىنىڭ بىرىنچى مىسالىنى كۆرۈپ باقايلى.

  1. بىر ئادرېسنىڭ ئېلېكترونلۇق خەت ئادرېسى ياكى ئەمەسلىكىنى قارار قىلىش VBA InStr ئىقتىدارىنى ئىشلىتىش ئارقىلىق بۇ يەردە ، بىز خېرىدارلارنىڭ بىر قىسىم ئالاقىلىشىش ئادرېسىنى ئۆز ئىچىگە ئالغان سانلىق مەلۇمات توپلىمى ئالدۇق. بىزنىڭ بۇ يەردىكى مەقسىتىمىز ئادرېسلارنىڭ ئېلېكترونلۇق خەت ئادرېسى ياكى ئەمەسلىكىنى ئېنىقلاش.

  

  ھازىر بىز InStr ئىقتىدارى ئارقىلىق VBA كودىنى تەرەققىي قىلدۇرىمىز. مەيلى ئېلېكترونلۇق خەت ئادرېسى بولسۇن. بۇنىڭ ئۈچۈن تۆۋەندىكى باسقۇچلارغا ئەگىشىڭ.

  قەدەم باسقۇچلار: 1> Visual Basic (ياكى Alt + F11) نى بېسىپ VBA نى ئېچىڭ.كۆزنەك. بۆلەك

  .

• ئۇنىڭدىن كېيىن ، مودۇلغا تۆۋەندىكى كودنى چاپلاڭ:

3547

>

• ئۇنىڭ ئۈستىگە ، بىز قارار دەپ ئاتىلىدىغان ئىقتىدارنى قۇردۇق. ئۇ ئادرېسنىڭ ئېلېكترونلۇق خەت ئادرېسى ياكى ئەمەسلىكىنى بەلگىلەيدۇ. بۇ ئىقتىدارنى بىزدە بار بولغان سانلىق مەلۇماتلار توپلىمىغا تەدبىقلايلى.

=DECISION(B5)

• كۆرگىنىمىزدەك ، بىز ھەر بىر ئادرېسنى ئېلېكترونلۇق خەت ئادرېسى ياكى ئەمەسلىكىنى ئېنىقلىدۇق. ياكى ئەمەس.

Code كود قانداق ئىشلەيدۇ؟

• فۇنكسىيە قارارى (string1 ھەرپ تىزمىسى)

ئالدى بىلەن ، بۇ a string1 دەپ ئاتىلىدىغان ھەرپ تىزمىسى.

• دىم ئورنى پۈتۈن سان سۈپىتىدە
2>.

• ئورۇن = InStr (1 ، تىزما 1 ، «@» ، 0)
ئورۇن

ئۆزگەرگۈچى مىقدار InStr فۇنكىسىيەسىنىڭ نەتىجىسى سۈپىتىدە 1 ، string1 ، «@» ۋە 0 . قىسقىسى ، بۇ ئادرېستا «@» بار ئورۇننى بەلگىلەيدۇ.

• ئەگەر ئورۇن = 0 بولسا قارار = «ئېلېكترونلۇق خەت ئەمەس»

ئەگەر ئورۇن بولسا ، قارار فۇنكىسىيەسىنىڭ چىقىرىلىشىنى «ئېلېكترونلۇق خەت ئەمەس» قىلىپ بېرىدۇ.ئۆزگەرگۈچى مىقدار 0 ، يەنى بۇ ئادرېستا «@» يوق دېگەنلىك.

1> InStr ئىقتىدارى قايتىدۇ 0 ).

• باشقا قارار = «ئېلېكترونلۇق خەت»
ئەگەر ئادرېستا «@» بولغان بولسا ، قارار ئىقتىدارىنىڭ «ئېلېكترونلۇق خەت» سۈپىتىدە چىقىرىلىشى. شۇڭا «@» بار ئادرېسلار ئېلېكترونلۇق خەت ، قالغانلىرى «ئېلېكترونلۇق خەت ئەمەس» دەپ ئايرىلىدۇ.

مۇشۇنىڭغا ئوخشاش ئوقۇشلۇقلار

• Excel دىكى VBA UCASE ئىقتىدارىنى قانداق ئىشلىتىش (4 مىسال)
• Excel VBA دا MsgBox ئىقتىدارىنى ئىشلىتىڭ (تولۇق يېتەكچى)
• Excel دا VBA SPLIT ئىقتىدارىنى قانداق ئىشلىتىش (5 مىسال) 4 مىسال)
• Excel VBA دىكى فۇنكسىيە ئىقتىدارىنى قانداق ئىشلىتىش (4 مىسال)

2. <2 بۇ قېتىم ئېلېكترونلۇق خەت ئادرېسىنىڭ كېڭەيتىلگەن نۇسخىسىنى ئۇلارنىڭ gmail.com ياكى yahoo.com بارلىقىغا ئوخشاش چىقىرىمىز.



بۇنىڭ ئۈچۈن تۆۋەندىكى باسقۇچلارغا ئەگىشىڭ.

قەدەم باسقۇچلار:> مودۇل ۋە تۆۋەندىكى كودنى كۆزنەككە چاپلاڭ.

قاراڭ: مەخپىي نومۇرسىز Excel جەدۋىلىنى قانداق قوغداش كېرەك (4 ئاسان ئۇسۇل)

9130

• بۇنىڭدىن باشقا ، بىز بىر ئىقتىدار قۇردۇق. كېڭەيتىش . ئۇ ھەر قانداق ئېلېكترونلۇق خەت ئادرېسىنىڭ كېڭەيتىلمىسىنى چىقىرىپ تاشلايدۇ. ئالدى بىلەن ، بۇ فورمۇلانى C5 كاتەكچىگە كىرگۈزۈڭ ، ئاندىن تولدۇرۇش تۇتقۇچى نى قوش چېكىڭ.

=EXTENSION(B5)

• ئاخىرىدا ، بىز بارلىق ئېلېكترونلۇق خەتلەرنىڭ كېڭەيتىلمىسىنى مۇۋەپپەقىيەتلىك ھالدا ئېلىۋالغانلىقىمىزنى كۆرەلەيمىز.

Code كود قانداق ئىشلەيدۇ؟

• ئىقتىدارنى كېڭەيتىش (ئېلېكترونلۇق خەت شەكلىدە)

بۇ كېڭەيتىش دەپ ئاتىلىدىغان يېڭى ئىقتىدارنى بارلىققا كەلتۈرىدۇ ئېلېكترونلۇق خەت دەپ ئاتىلىدىغان ھەرپ تىزمىسى.

• دىم ئورنى پۈتۈن سان سۈپىتىدە .
  • ئورۇن = InStr (1 ، ئېلېكترونلۇق خەت ، «@» ، 0) > ئورۇن ئۆزگەرگۈچى مىقدار InStr فۇنكىسىيەسىنىڭ نەتىجىسى سۈپىتىدە 1 ، ئېلېكترونلۇق خەت ، «@» ۋە 0 . قىسقىسى ، بۇ ئېلېكترونلۇق خەت دىكى ئورۇننى بەلگىلەيدۇ ، بۇ يەردە «@» بار.
    • كېڭەيتىش = ئوڭ (ئېلېكترونلۇق خەت ، (ئېلخەت) - ئورۇن) بۇ ئېلېكترونلۇق خەت نىڭ كېڭەيتىلگەن كېڭەيتىلمىسى.

      3. ئىسىم ياكى فامىلىسىنى ئىسىمدىن چىقىرىش ئارقىلىق VBA InStr ئىقتىدارىنى ئىشلىتىش ئارقىلىق

      ئاخىرىدا ، بىز باشقىچە بىر ۋەزىپىنى ئورۇندايمىز. بۇ قېتىم بىزدە بىر قىسىم خىزمەتچىلەرنىڭ ئىسمى باربىر شىركەت. بىز خىزمەتچىلەرنىڭ ئىسمى ياكى فامىلىسىنى چىقىرىش ئۈچۈن بىر ئىقتىدار قۇرۇشقا تىرىشىمىز.

      

      قاراڭ: Excel فورمۇلا بىلەن باھاغا پىرسەنتنى قانداق قوشۇش (2 خىل ئۇسۇل)

      بۇنى قىلىش ئۈچۈن تۆۋەندىكى باسقۇچلارنى بېسىڭ.

      قەدەم باسقۇچلار:>

      3497

      

      • بۇ يەردە ، بىز SHORTNAME دەپ ئاتىلىدىغان بىر ئىقتىدارنى قۇردۇق ، ئۇ ئىسىم ياكى فامىلىسىنى ئىسىمدىن ئالىدۇ. بۇ فورمۇلانى سانلىق مەلۇمات توپلىمىمىزغا تەدبىقلايلى.
      • دەسلەپتە ئىسىمنى چىقىرىش ئۈچۈن تۆۋەندىكى فورمۇلانى C5 كاتەكچىگە يېزىڭ> =SHORTNAME(B5,-1)

        

        • ئەڭ ئاخىرىدا ، فامىلىسىنى چىقىرىش ئۈچۈن ، تۆۋەندىكى فورمۇلانى D5 :
        =SHORTNAME(B5,1)

        

        • ئۇنىڭدىن كېيىن ، ئەگەر بىز قالغان ھۈجەيرىلەرنى ئاپتوماتىك تولدۇرساق تولدۇرغۇچى ، كۆزلىگەن نەتىجىمىزنى كۆرىمىز.

        

        Code كود قانداق ئىشلەيدۇ؟

        > ئىسمى ۋە بىر پۈتۈن سان تالاش-تارتىشى بىلەن بىرىنچى_ ئاخىرقى_ ئاخىرقى .
      • پۈتۈن سان سۈپىتىدە دىم بۇزۇش>

        بۇ بۆلەك بۆسۈش دەپ ئاتىلىدىغان يېڭى پۈتۈن سان ئۆزگەرگۈچى مىقدارنى ئېلان قىلدى>

      ئۇ بۆسۈش ئۆزگەرگۈچى مىقدارنىڭ قىممىتىنى تالاش-تارتىشلار بىلەن InStr فۇنكىسىيەسىنىڭ نەتىجىسى قىلىپ بېرىدۇ. 1 ، ئىسىم ، «» ۋە 0 . قىسقىسى ، بۇ ئىسىم دىكى ئورۇننى بەلگىلەيدۇ ، بۇ يەردە بوشلۇق بار ("").

      • ئەگەر First_or_Last = -1 ئۇنداقتا SHORTNAME = سول (ئىسىم ، بۆسۈش - 1)

      بۇ قۇر بوشلۇق دىن بۇرۇنقى ھەرپلەر سۈپىتىدە SHORTNAME فۇنكىسىيەسىنىڭ نەتىجىسىنى تەقسىملەيدۇ. ئەگەر First_or_Last تالاش-تارتىشى -1. بۇ بىرىنچى ئىسىم.

      • SHORTNAME = ئوڭ (ئىسىم ، لېن (ئىسىم) - بۆسۈش) بوشلۇق دىن كېيىنكى ھەرپلەر سۈپىتىدە SHORTNAME فۇنكسىيەسى ، ئەگەر First_or_Last تالاش-تارتىشى بولسا 1. بۇ فامىلىسى. <3 تىزما ، ئاندىن ھەر خىل ئىشلىتىش ئۈچۈن ئۆزىڭىزنىڭ ئىقتىدارلىرىنى قۇرالايسىز. ئۇنىڭدىن باشقا ، سوئالىڭىز بولسا بىزدىن سوراپ بېقىڭ.

VALUE	CONSTANT	چۈشەندۈرۈش
-1	vbUseCompareOption	كۆرسىتىلگەن سېلىشتۇرۇشنى قىلىدۇ. تاللاشنى سېلىشتۇرۇش باياناتى.
0	vbBinaryCompare	ئىككىلىك سېلىشتۇرۇش ئېلىپ بارىدۇ.
vbTextCompare	تېكىست سېلىشتۇرۇش ئېلىپ بارىدۇ.
2