Tabloya naverokê
Heke hûn li awayên li şûna nivîsê di rêzekê de bi karanîna Excel VBA digerin, wê hingê hûn ê vê gotarê kêrhatî bibînin. Veguheztina beşek nivîsê ya diyar dibe ku di nivîsandina rêzikên nivîsê de ji nû ve gelek wext xilas bike. Ji ber vê yekê, werin em têkevin gotara sereke da ku hûrguliyên li ser vê peywira veguheztinê zanibin.
Pirtûka Xebatê dakêşin
Nivîs li String.xlsm Biguherînin
5 Awayên Veguheztina Nivîsar di Stringê de Bi Bikaranîna Excel VBA
Li vir, me databasa jêrîn heye ku hin tomarên karmendan bi nasnameyên wan ên e-nameyan vedihewîne. Wezîfeya me ew e ku em navên domên kevn bi yên nû biguherînin. Di rêbazên jêrîn de, em ê bi vê databasê re digel hin rêzikên nivîsê yên bêserûber bixebitin da ku metna xwestî bi kodên VBA veguherînin.
Me Guhertoya Microsoft Excel 365 li vir, hûn dikarin guhertoyên din li gorî rehetiya xwe bikar bînin.
Rêbaz-01: Nivîsar Biguhezînin Destpêkirina Ji n-emîn Helwesta Rêzikek Rasthatî
Li vir, em ê li şûna nivîsê di rêzika nivîsê ya rasthatî de ji bo pozîsyonên destpêkê yên cihêreng.
Gavê-01 :
➤ Biçe tabêya Pêşvebir >> Kod Grûp >> Visual Basic Vebijêrk.
Piştre, Edîtorê Visual Basic dê vebe.
➤ Biçe Têxe Tab >> Modula Vebijêrk.
Piştî wê, Modul dê were çêkirin.
Gavê-02 :
➤ Ya jêrîn binivîsekod
3156
Li vir, me full_txt_str û updated_str wekî String daxuyand û paşê full_txt_str ji nivîsareke rasthatî re diyar kir. string- “Sed Cars Fifty Cars Deh Cars” . Dûv re VBA Fonksiyon REPLACE tê bikaranîn ku Orebîl parçeya vê rêzika bêserûber bi Bisîklet<10 veguherîne> û 1 li vir tê bikaranîn ku ji cihê 1 vê rêzê dest bi guherandinê bike. Di dawiyê de, me ev rêzika nivîsê ya nû ji bo updated_str veqetand û bi qutiya peyamê ( MsgBox ) em ê encamê bibînin.
➤ Bişkojka F5 .
Piştre dê qutiya peyamê bi rêzika nivîsê ya nû bi nivîsa guherî Bisîklet .
➤ Ji bo ku hûn pêvajoya veguheztinê ji mînaka duyemîn a Cars kodê jêrîn bikar bînin.
1678
Li vir, me pozîsyona destpêkê wekî 14 bikar aniye, ji ber ku em dixwazin beşa rêzê li dû Sed Ereban hebe û li şûna Otomobîl li vir.
➤ Piştî xebata kodê, em ê qutiya peyamê ya jêrîn hebin bi rêzika nivîsê ji nivîsê dest pê dike Pêncî û bi Bisîklêtan di pozîsyona Car .
➤ Ji bo ku tenê beşa dawî ya vê rêzê hebe em koda jêrîn bicîh dikin.
3238
Li vir, me pozîsyona destpêkê wekî 25 bikar aniye ji ber ku em dixwazin beşa rêzê li dû Pêncî Otomobîlan hebe û Osombîlên bi Bisîkletan veguherînin. 10> li vir.
Di dawiyê de, em ê qutiya peyamê ya ku beşa me ya xwestî ya rêzê li şûna heye. Bisîklet .
Zêdetir Bixwîne: Excel VBA: Karakterê di Stringê de bi Positionê Biguherîne (4 Rêyên Bibandor)
Rêbaz-02: Bikaranîna Excel VBA-yê ji bo n-emîn Bûyera Rêzeka Rasthatî Bikaranîn Nivîsar Biguherîne
Di vê beşê de, em ê bi arîkariyê nivîsek di rêzek rasthatî de ji bo hejmarên cihêreng bûyeran biguhezînin. ji VBA kod.
Gavên :
➤ Bişopînin Gavê-01 ji Rêbaz-1 .
➤ Koda jêrîn binivîsin.
7376
Li vir, me full_txt_str û updated_str wekî String ragihand. û dûv re full_txt_str ji rêzika nivîsê ya bêserûber- "Sed Otomobîl Fifty Cars Ten Cars" hate destnîşankirin. Piştî wê, fonksiyona REPLACE tê bikaranîn ku li şûna Osombîlên parçeya vê rêzika rasthatî bi Bisîklet , 1 li vir tê bikaranîn ku ji pozîsyona 1 ya vê rêzê dest bi guherandinê bike, û ya dawî 1 e. ji bo hejmartina hejmara bûyeran. Bi karanîna 1 wekî jimareya jimartinê, em şûna Osabên tenê yên yekem diyar dikin. Di dawiyê de, me ev rêzika nivîsê ya nû ji bo updated_str û bi aqutiya peyamê ( MsgBox ) em ê encamê bibînin.
➤ Bişkojka F5 .
Piştre, dê qutiya peyamê bi nivîsa nû Bisiklêtan li pozîsyona yekem ya Orebîlan tenê.
➤ Ji bo guheztina her du mînakên pêşîn ên Car bi Bicycles koda jêrîn bikar bînin.
2513
Li vir, 2 wekî jimareya hejmartinê tê bikaranîn ku li şûna du mînakên pêşîn ên Otomobîlan bi Bisîklêtan .
Piştî ku kodê bimeşînin, hûn ê du nivîsên pêşî li şûna Otomobîlên bi Bisîklêtan .
➤ Ji bo şûna hemî mînakan koda jêrîn bicîh bikin ya nivîsê Otomobîl .
2127
Li vir, argumana dawî ya Fonksiyon REPLACE 3 e ku ev e jimareya hejmartinê nîşan dide ku hemû Otomobîlên bi Bisîklet di rêzika nivîsê de cih digirin.
➤ Bişkojka F5 .
Piştre, em ê qutiya peyama jêrîn bi nivîsa guherbar Bisîklet di rêzê de heye.
Xwendinên Wekhev
- Meriv Çawa Nivîsar Bi Vegera Vegerê Di Excel-ê de (4 Nêzîktêdayînên Xweşik) Biguherîne
- Excel VBA: Meriv çawa dibîne û Nivîsar di Belgeya Wordê de Biguherîne
- Meriv çawa piştî Karaktera Taybet di Excel de (3 Rêbaz) Nivîsar Biguhezîne
- Nivîsek VeguhezîneHucreya Li ser Bingeha Rewşa Di Excel de (5 Rêbazên Hêsan)
Rêbaz-03: Nivîsarekê di Rêzikek Tesadufî de Bi InputBox re Biguherîne
Li vir, em ê hin nivîsarek biguhezînin rêzikek rasthatî ya bi nivîsek ku dê ji hêla bikarhênerek ve bi alîkariya fonksiyona VBA InputBox diyar bibe.
Gavên :
➤ Bişopînin Gava-01 ji Rêbaz-1 .
➤ Koda jêrîn binivîsin.
4451
Li vir, me ragihand full_txt_str , new_txt , û new_txt wekî String û paşê full_txt_str ji rêzika nivîsê ya rasthatî- "Sed Cars Fifty Cars Deh Cars" . Ji bo ku têketina ku ji hêla bikarhêner ve hatî diyar kirin wekî nivîsa ku divê bi Cars ve were guheztin di rêzika bêserûber de, me fonksiyona InputBox bikar aniye û paşê vê nirxê destnîşan kiriye. ji bo new_txt . Dûv re fonksiyona REPLACE tê bikaranîn ku li şûna Cars parçeya vê rêzika bêserûber bi new_txt veguherîne. Di dawiyê de, me ev rêzika nivîsê ya nû ji bo updated_str veqetand û bi qutiya peyamê ( MsgBox ) em ê encamê bibînin.
➤ Bişkojka F5 bike.
Piştî wê, Qutiya Ketinê dê derkeve holê ku hûn dikarin beşek nivîsê ya ku hûn dixwazin di rêzika nû de hebe têkevinê.
➤ Bicycles an nivîseke din a ku hûn dixwazin binivîsin û paşê OK binivîsin.
Di dawiyê de, hûn ê Encama jêrîn bi rêzika nivîsê ya nû heye ku nivîsa nû heye Bicycles inpozîsyona Otomobîl .
Zêdetir Bixwîne: Meriv Meriv Di Formula Excel-ê de Meriv Çawa Nivîsar Biguherîne (7 Rêyên Hêsan)
Rêbaz-04: Bi Excel VBA re nivîsê di nav rêzek rêzan de biguherîne
Li vir, em ê gmail beşê biguherînin. Nasnameyên e-nameyên bi domên di stûna Domaina Nû de, û ji bo berhevkirina nasnameyên e-nameyên nû me stûnek nû xistiye; Nasnameya E-nameya Dawî .
Gavên :
➤ Bişopînin Gavê-01 ya Rêbaz-1 .
➤ Koda jêrîn binivîsin.
4030
Li vir, me Zorpêça FOR bikar anî da ku ji xebatê bimeşîne. 1> Rêza 4 heta Rêza 13 . Bi alîkariya daxuyaniya IF-THEN , me seh kir ku nasnameyên e-nameyê yên Stûna D "gmail" <10 hene> an na, û ji bo bicihanîna vê pîvanê dê "gmail" beşa nasnameyên e-nameyê bi domên nû yên Stûna E
➤ Bişkojka F5 .
Piştre, hûn ê di stûna Nasnameya E-nameya Dawî de nasnameyên e-nameya nû hebin.
Zêdetir Bixwîne: Excel VBA ji bo dîtin û guhertina nivîsê di stûnekê de (2 Mînak)
Rêbaz-05: Bi Ketina Bikarhêner re Nivîsarekê Biguherîne Ji bo Dîtina Nivîsarê
Hûn dikarin li şûna nasnameyên e-nameyê yên jêrîn bidomênên nû û diyar bikin ku di nasnameyên berê de çi biguhezînin, têketina bikarhênerek dikare bi şopandina vê rêbazê were bikar anîn.
Gavên :
➤ Bişopînin Gava-01 ji Rêbaz-1 .
➤ Koda jêrîn binivîsin.
8625
Li vir, me diyar kir. partal_text wekî String û dûv re ew ji rêzek ku dê ji hêla bikarhênerek ve bi riya Qutiya Ketinê were dayîn veqetandin.
Dûv re, me xeleka FOR bikar anî da ku operasyonê ji Rêza 4 heya Rêza 13 bimeşîne, û Daxuyaniya Eger-PÊŞÎ , me kontrol kir ka nasnameyên e-nameyê yên Stûna D "gmail" an ne. Û ji bo bicihanîna vê pîvanê dê "gmail" beşa nasnameyên e-nameyê bi domênên nû yên Stûna E were guherandin. nasnameyên nû di Stûna F de. Wekî din hûn ê di şaneyên têkildar ên Stûna F de valahiyek we hebe.
➤ Bişkojka F5 .
Piştî wê, we dê Qutiya Ketinê hebe ku hûn tê de nivîsa ku hûn dixwazin lê bigerin di nav rêza nasnameyên e-nameyê de binivîsin (li vir em hene ketin gmail ) û dûv re OK bikirtînin.
Di dawiyê de, em nasnameyên e-nameya xwe yên nûvekirî di Fînalê de hene Nasnameya E-nameyê stûn.
Zêdetir Bixwîne: Bi Excel VBA (Makro û Forma Bikarhêner) Nivîsekê Di Rêjeyekê de Bibînin û Biguherînin
Beşa Pratîkê
Ji bo kirina pratîkê ji hêlabi xwe me di kaxeza bi navê Peraktîv de beşeke Pratîk wek li jêr pêşkêş kiriye. Ji kerema xwe wê bi xwe bikin.
Encam
Di vê gotarê de, me hewl da ku rêyên ku li şûna nivîsê di rêzek de bi karanîna Excel VBA veguhezînin veşêrin. . Hêvî dikim ku hûn ê wê kêrhatî bibînin. Ger pêşniyar û pirsên we hebin, di beşa şîroveyê de parve bikin.
