مەزمۇن جەدۋىلى
ئەگەر سىز Excel VBA نى ئىشلىتىپ ھەرپ تىزمىسىدىكى تېكىستنى ئالماشتۇرۇشنىڭ يوللىرىنى ئىزدەۋاتقان بولسىڭىز ، ئۇنداقتا بۇ ماقالىنى پايدىلىق دەپ قارايسىز. مەلۇم تېكىست قىسمىنى ئالماشتۇرۇش تېكىست تىزمىسىنى قايتا يېزىشتا نۇرغۇن ۋاقىت تېجەپ قېلىشى مۇمكىن. ئۇنداقتا ، بۇ ئالماشتۇرۇش ۋەزىپىسىنىڭ تەپسىلاتىنى بىلىش ئۈچۈن ئاساسلىق ماقالىگە كىرەيلى.
خىزمەت دەپتىرىنى چۈشۈرۈڭ 4> Excel VBA
ئارقىلىق تېكىستنى تىزما ئالماشتۇرۇشنىڭ 5 خىل ئۇسۇلى ، بۇ يەردە خىزمەتچىلەرنىڭ ئېلېكترونلۇق خەت ساندۇقى بىلەن بەزى خاتىرىلەرنى ئۆز ئىچىگە ئالغان تۆۋەندىكى سانلىق مەلۇمات جەدۋىلى بار. بىزنىڭ ۋەزىپىمىز كونا تور نامىنى يېڭىسىغا ئالماشتۇرۇش. تۆۋەندىكى ئۇسۇللاردا ، بىز بۇ سانلىق مەلۇمات جەدۋىلى بىلەن بىر قىسىم ئىختىيارى تېكىست تىزمىلىرى بىلەن بىللە لازىملىق تېكىستنى VBA كودىغا ئالماشتۇرىمىز.
بىز بۇ يەردە Microsoft Excel 365 نەشرى ، قۇلايلىقلىقىڭىزغا ئاساسەن باشقا نەشرىنى ئىشلىتەلەيسىز. بۇ يەردە ، ئوخشىمىغان باشلىنىش ئورنى ئۈچۈن ئىختىيارى تېكىست تىزمىسىدىكى تېكىستنى ئالماشتۇرىمىز.
قەدەم -01 :
& gt; & gt; كود گۇرۇپپا & gt; & gt; كۆرۈنمە ئاساسى تاللاش.
ئېچىلىدۇ.
< قىستۇر بەتكۈچ & gt; & gt;
ئۇنىڭدىن كېيىن ، بۆلەك بارلىققا كېلىدۇ.
قەدەم -02 :
➤ تۆۋەندىكىلەرنى يېزىڭكود
5757
بۇ يەردە ، بىز full_txt_str ۋە يېڭىلانغان_ str نى تىزما دەپ جاكارلىدۇق ، ئاندىن ئىختىيارى تېكىستكە full_txt_str نى تەقسىملىدۇق. string- «يۈز ماشىنا ئەللىك ماشىنا ئون ماشىنا» . ئاندىن VBA ئالماشتۇرۇش ئىقتىدارى بۇ تاسادىپىي تىزمىنىڭ ماشىنا قىسمىنى ۋېلىسىپىت <10 گە ئالماشتۇرۇشقا ئىشلىتىلىدۇ> ۋە 1 بۇ قۇرنىڭ ئورنىنى 1 ئورنىدىن ئالماشتۇرۇشنى باشلايدۇ. ئاخىرىدا ، بىز بۇ يېڭى تېكىست تىزمىسىنى يېڭىلانغان_ str غا تەقسىملىدۇق ، ئۇچۇر رامكىسى ( MsgBox ) ئارقىلىق نەتىجىنى كۆرىمىز.
< F5 نى بېسىڭ.
ئاندىن يېڭى تېكىست تىزمىسى بىلەن ۋېلىسىپىت <<>
9457
بۇ يەردە ، بىز باشلىنىش ئورنىنى 14 قىلىپ قوللاندۇق ، چۈنكى بىز يۈز ماشىنا دىن كېيىن بۇ قۇرنىڭ بىر قىسمىغا ئېرىشىپ ، <1 نىڭ ئورنىنى ئالماقچى> بۇ يەردىكى ماشىنىلار
. 
تېكىست تىزمىسى تېكىستتىن باشلاپ ئەللىك ۋە ۋېلىسىپىت بىلەن <ئورنىدا. 1> ئاپتوموبىللار . 0> بۇ يەردە ، بىز باشلىنىش ئورنىنى 25 قىلىپ قوللاندۇق چۈنكى بىز ئەللىك ماشىنا دىن كېيىن تىزمىنىڭ بىر قىسمىغا ئېرىشىپ ، ماشىنا نى ۋېلىسىپىت <گە ئالماشتۇرماقچىمىز. بۇ يەردە 10> . ۋېلىسىپىتلەر . 3>
ئۇسۇل -02: Excel VBA نى ئىشلىتىپ تاسادىپىي يۈز بەرگەن n-th نىڭ ئورنىغا تېكىستنى ئالماشتۇرۇش VBA كودىنىڭ.
باسقۇچلار :
2>.
the تۆۋەندىكى كودنى كىرگۈزۈڭ. ئاندىن ئىختىيارى تېكىست تىزمىسىغا full_txt_str نى تەقسىم قىلدى- «يۈز ماشىنا ئەللىك ماشىنا ئون ماشىنا» . ئۇنىڭدىن كېيىن ، ئالماشتۇرۇش ئىقتىدارى بۇ تاسادىپىي تىزمىنىڭ ماشىنا قىسمىغا ۋېلىسىپىت <نىڭ ئورنىغا ئىشلىتىلىدۇ. 9> ، 1 بۇ يەردە بۇ قۇرنىڭ 1 ئورنىدىن ئالماشتۇرۇشنى باشلايدۇ ، ئەڭ ئاخىرقى 1 بولسا يۈز بەرگەنلەرنىڭ سانىنى ھېسابلاش ئۈچۈن. سان نومۇرى سۈپىتىدە 1 نى ئىشلىتىپ ، بىز پەقەت بىرىنچى ماشىنىلارنىڭ نىڭ ئورنىنى ئالماقچى. ئاخىرىدا ، بىز بۇ يېڭى تېكىست تىزمىسىنى يېڭىلانغان_ str ۋە a بىلەن تەقسىملىدۇقئۇچۇر رامكىسى ( MsgBox ) بىز نەتىجىنى كۆرىمىز.
➤ F5 نى بېسىڭ. ئۇچۇر ساندۇقى يېڭى تېكىست بىلەن ۋېلىسىپىت ماشىنىلارنىڭ بىرىنچى ئورنى دا كۆرۈنىدۇ. <> پەقەت> تۆۋەندىكى كودنى ئىشلىتىڭ> ۋېلىسىپىت بىلەن. 9> ماشىنىلار بىلەن ۋېلىسىپىتلەر .
ماشىنىلار تېكىستنىڭ. ماشىنىلارنىڭ ھەممىسىنىڭ نىڭ ۋېلىسىپىت بىلەن تېكىست تىزمىسىدىكى ئورنىنى ئالغان ساننى ساناش.
➤ F5 نى بېسىڭ.
ئۇنىڭدىن كېيىن ، بىز قىلىمىز تۆۋەندىكى ئۇچۇر رامكىسى نىڭ ئورنىغا ئالماشتۇرۇلغان تېكىست ۋېلىسىپىت بار.
مۇشۇنىڭغا ئوخشاش ئوقۇشلۇقلار
- Excel دىكى تېكىستنى ۋاگونغا قايتۇرۇش بىلەن قانداق ئالماشتۇرۇش (4 سىلىق ئۇسۇل)
- Excel VBA: قانداق تېپىش ۋە تېپىش سۆز ھۆججىتىدىكى تېكىستنى ئالماشتۇرۇڭ
- Excel دىكى كونكرېت ھەرپتىن كېيىن تېكىستنى قانداق ئالماشتۇرۇش (3 خىل ئۇسۇل)
- تېكىستنى ئالماشتۇرۇشExcel دىكى ئەھۋالغا ئاساسەن كاتەكچە (5 ئاسان ئۇسۇل) ئىشلەتكۈچى تەرىپىدىن VBA InputBox ئىقتىدارى نىڭ ياردىمىدە ئېنىقلىنىدىغان تېكىست بىلەن ئىختىيارى تىزما.
باسقۇچلار :
< ئۇسۇل -1 نىڭ قەدەم -01 گە ئەگىشىڭ.
following تۆۋەندىكى كودنى كىرگۈزۈڭ. full_txt_str>> «يۈز ماشىنا ئەللىك ماشىنا ئون ماشىنا» . ئىشلەتكۈچى بەلگىلىگەن كىرگۈزۈشنى تېكىست شەكلىدە ماشىنا بىلەن ئىختىيارى تىزما قىلىپ ئالماشتۇرۇش ئۈچۈن ، بىز InputBox ئىقتىدارىنى ئىشلىتىپ ، ئاندىن بۇ قىممەتنى تەقسىملىدۇق. to new_txt . ئاندىن REPLACE فۇنكسىيەسى بۇ تاسادىپىي سىزىقنىڭ ماشىنىلىرى نىڭ ئورنىغا new_txt نىڭ ئورنىغا ئىشلىتىلىدۇ. ئاخىرىدا ، بىز بۇ يېڭى تېكىست تىزمىسىنى يېڭىلانغان_ str غا تەقسىملىدۇق ، ئۇچۇر رامكىسى ( MsgBox ) ئارقىلىق نەتىجىنى كۆرىمىز.
<نى بېسىڭ F5 . 3>
➤ ۋېلىسىپىت ياكى خالىغان تېكىستنى كىرگۈزۈپ ئاندىن OK نى بېسىڭ.
ئاخىرىدا ، سىز شۇنداق يېڭى تېكىست تىزمىسىدا يېڭى تېكىست ۋېلىسىپىت بولغان تۆۋەندىكىدەك نەتىجىگە ئېرىشىڭ ماشىنىلارنىڭ ئورنى .
ئۇسۇل -04: بىر قاتار تىزمىلاردىكى تېكىستنى Excel VBA بىلەن ئالماشتۇرۇڭ
بۇ يەردە ، بىز gmail نىڭ ئورنىنى ئالماشتۇرىمىز. ئېلېكترونلۇق خەت كىملىكى يېڭى دائىرە ئىستونىدىكى دائىرە بىلەن ، ۋە يېڭى ئېلېكترونلۇق خەت ID لىرىنى توپلاش ئۈچۈن بىز يېڭى ئىستون قىستۇردۇق. ئاخىرقى ئېلېكترونلۇق خەت كىملىكى .
باسقۇچلار :
ئۇسۇل -1 .following تۆۋەندىكى كودنى كىرگۈزۈڭ. 1> قۇر 4 دىن قۇر 13 . IF-THEN باياناتىنىڭ ياردىمىدە ، بىز ستون D نىڭ ئېلېكترونلۇق خەت ساندۇقىنىڭ «gmail» <10 بار-يوقلۇقىنى تەكشۈردۇق> ياكى ئەمەس ، ھەمدە بۇ ئۆلچەمنى ئورۇنداش ئۈچۈن ئېلېكترونلۇق خەت ساندۇقىنىڭ «gmail» قىسمى E ئىستوندىكى يېڭى ساھەگە ئالماشتۇرۇلىدۇ. 10> ستون F دىكى يېڭى id لارنى قۇرۇش. بولمىسا تۈۋرۈك F نىڭ مۇناسىپ كاتەكچىلىرىدە بوش قالىسىز.
< F5 نى بېسىڭ. .
ئۇنداقتا ، سىزدە ئاخىرقى ئېلېكترونلۇق خەت كىملىكى ئىستونىدا يېڭى ئېلېكترونلۇق خەت كىملىكى بولىدۇ.
Excel VBA بىر ئىستوندىكى تېكىستنى تېپىش ۋە ئالماشتۇرۇش (2 مىسال) تۆۋەندىكى ئېلېكترونلۇق خەت ئادرېسىيېڭى دائىرە ۋە ئالدىنقى كىملىكلەردە نېمىنىڭ ئورنىنى ئالىدىغانلىقىنى ئېلان قىلىش ئارقىلىق بۇ ئۇسۇلنى قوللانسىڭىز بولىدۇ.
باسقۇچلار :
< ئۇسۇل -1 نىڭ قەدەم -01 گە ئەگىشىڭ.
following تۆۋەندىكى كودنى كىرگۈزۈڭ. قىسمەن_ تېكىست نى تىزما قىلىپ ، ئاندىن ئۇنى كىرگۈزۈش ساندۇقى ئارقىلىق ئىشلەتكۈچى بېرىدىغان بىر قۇرغا تەقسىم قىلدى.
ئۇنىڭدىن كېيىن ، بىز FOR loop ئارقىلىق قۇر 4 دىن قۇر 13 غىچە مەشغۇلات ئېلىپ باردۇق. IF-THEN جۈملىسى ، بىز ستون D نىڭ ئېلېكترونلۇق خەت ساندۇقىنىڭ «gmail» ياكى ئەمەسلىكىنى تەكشۈردۇق. ئەمەس. ھەمدە بۇ ئۆلچەمنى ئەمەلگە ئاشۇرۇش ئۈچۈن ئېلېكترونلۇق خەت ساندۇقىنىڭ «gmail» قىسمى E ئىستون نىڭ يېڭى ساھەلىرىگە ئالماشتۇرۇلىدۇ. ستون F دىكى يېڭى id. بولمىسا تۈۋرۈك F نىڭ مۇناسىپ كاتەكچىلىرىدە بوش قالىسىز.
< F5 نى بېسىڭ. << gmail نى كىرگۈزۈپ ، ئاندىن بولىدۇ نى بېسىڭ. ئېلېكترونلۇق خەت ساندۇقى ستون.
مەشىق بۆلۈمى
ئارقىلىق مەشىق قىلىش ئۈچۈنئۆزىڭىز بىز مەشىق ناملىق جەدۋەلدە تۆۋەندىكىدەك مەشىق بۆلىكىنى تەمىنلىدۇق. بۇنى ئۆزىڭىز قىلىڭ. . پايدىلىق دەپ بىلىشىڭىزنى ئۈمىد قىلىمەن. تەكلىپ-پىكىرلىرىڭىز بولسا ، پىكىر بۆلۈمىدە ئورتاقلىشىڭ.
