Სარჩევი
თუ თქვენ ეძებთ გზებს სტრიქონში ტექსტის ჩანაცვლებისთვის Excel VBA -ის გამოყენებით, მაშინ ეს სტატია თქვენთვის სასარგებლო იქნება. ტექსტის გარკვეული ნაწილის ჩანაცვლებამ შეიძლება დაზოგოს ბევრი დრო ტექსტის სტრიქონების ხელახლა აკრეფისას. მოდით გადავიდეთ მთავარ სტატიაში, რათა ვიცოდეთ დეტალები ამ ჩანაცვლების ამოცანის შესახებ.
ჩამოტვირთეთ სამუშაო წიგნი
ტექსტის ჩანაცვლება String.xlsm-ში
5 გზა ტექსტის ჩანაცვლების სტრიქონში Excel VBA გამოყენებით
აქ, ჩვენ გვაქვს შემდეგი მონაცემთა ნაკრები, რომელიც შეიცავს თანამშრომლების რამდენიმე ჩანაწერს მათი ელფოსტის ID-ებით. ჩვენი ამოცანაა ძველი დომენური სახელების ახლით ჩანაცვლება. შემდეგ მეთოდებში, ჩვენ ვიმუშავებთ ამ მონაცემთა ნაკრებთან ერთად რამდენიმე შემთხვევითი ტექსტის სტრიქონებთან ერთად, რათა შევცვალოთ სასურველი ტექსტი VBA კოდებით.
ჩვენ გამოვიყენეთ VBA . 9>Microsoft Excel 365 ვერსია აქ, შეგიძლიათ გამოიყენოთ ნებისმიერი სხვა ვერსია თქვენი მოხერხებულობის მიხედვით.
მეთოდი-01: ტექსტის შეცვლა შემთხვევითი სტრიქონის n-ე პოზიციიდან
აქ ჩვენ შევცვლით ტექსტს შემთხვევითი ტექსტის სტრიქონში სხვადასხვა საწყისი პოზიციისთვის.
ნაბიჯი-01 :
➤ გადადით დეველოპერი ჩანართზე >> კოდი ჯგუფი >> Visual Basic ოფცია.
შემდეგ, Visual Basic რედაქტორი გაიხსნება.
➤ გადადით ჩასმა ჩანართზე >> მოდული ოფცია.
ამის შემდეგ შეიქმნება მოდული .
ნაბიჯი-02 :
➤ დაწერეთ შემდეგიკოდი
4299
აქ ჩვენ გამოვაცხადეთ full_txt_str და განახლებული_str როგორც სტრიქონი და შემდეგ მივანიჭეთ full_txt_str შემთხვევით ტექსტს string- „ასი მანქანა ორმოცდაათი მანქანა ათი მანქანა“ . შემდეგ VBA REPLACE ფუნქცია გამოიყენება ამ შემთხვევითი სტრიქონის Cars ნაწილის ჩანაცვლებისთვის ველოსიპედები და 1 გამოიყენება აქ ჩანაცვლების დასაწყებად ამ სტრიქონის 1 პოზიციიდან. და ბოლოს, ჩვენ მივანიშნეთ ეს ახალი ტექსტის სტრიქონი განახლებული_str და შეტყობინების ყუთით ( MsgBox ) დავინახავთ შედეგს.
➤ დააჭირეთ F5 .
შემდეგ გამოჩნდება შეტყობინებების ყუთი ახალი ტექსტური სტრიქონით შეცვლილი ტექსტით ველოსიპედები .
➤ ჩანაცვლების პროცესის შესასრულებლად მანქანების მეორე ინსტანციიდან გამოიყენეთ შემდეგი კოდი.
8990
აქ, ჩვენ გამოვიყენეთ საწყისი პოზიცია, როგორც 14 რადგან გვსურს გვქონდეს სტრიქონის ნაწილი ასი მანქანის და ჩავანაცვლოთ მანქანები აქ.
➤ კოდის გაშვების შემდეგ გვექნება შემდეგი შეტყობინებების ყუთი ტექსტური სტრიქონით ტექსტიდან იწყება ორმოცდაათი და ველოსიპედები პოზიციაზე მანქანები .
➤ ამ სტრიქონის მხოლოდ ბოლო ნაწილის არსებობისთვის ჩვენ ვიყენებთ შემდეგ კოდს.
5984
აქ ჩვენ გამოვიყენეთ საწყისი პოზიცია როგორც 25 რადგან ჩვენ გვინდა გვქონდეს სტრიქონის ნაწილი ორმოცდაათი მანქანის შემდეგ და ჩავანაცვლოთ Cars ველოსიპედებით აქ.
საბოლოოდ, გვექნება შეტყობინებების ყუთი სტრიქონის ჩვენთვის სასურველი ნაწილის ჩანაცვლებით ველოსიპედები .
დაწვრილებით: Excel VBA: ჩაანაცვლეთ სიმბოლო სტრიქონში პოზიციის მიხედვით (4 ეფექტური გზა)
მეთოდი-02: ტექსტის ჩანაცვლება შემთხვევითი სტრიქონის n-ე შემთხვევისთვის Excel VBA-ს გამოყენებით
ამ განყოფილებაში ჩვენ შევცვლით ტექსტს შემთხვევით სტრიქონში სხვადასხვა რაოდენობის შემთხვევისთვის. VBA კოდიდან.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ ჩაწერეთ შემდეგი კოდი.
9059
აქ ჩვენ გამოვაცხადეთ full_txt_str და განახლებული_str როგორც სტრიქონი და შემდეგ მიენიჭა full_txt_str შემთხვევითი ტექსტის სტრიქონს- „ასი მანქანა ორმოცდაათი მანქანა ათი მანქანა“ . ამის შემდეგ, REPLACE ფუნქცია გამოიყენება ამ შემთხვევითი სტრიქონის Cars ნაწილის ჩანაცვლებისთვის ველოსიპედებით <. 9>, 1 აქ გამოიყენება ჩანაცვლების დასაწყებად ამ სტრიქონის 1 პოზიციიდან და საბოლოო 1 არის შემთხვევების რაოდენობის დასათვლელად. 1 , როგორც მთვლელი რიცხვის გამოყენებით, ჩვენ განვსაზღვრავთ მხოლოდ პირველი მანქანების ჩანაცვლებას. და ბოლოს, ჩვენ მივანიშნეთ ეს ახალი ტექსტის სტრიქონი განახლებული_str და aშეტყობინების ველი ( MsgBox ) ჩვენ ვნახავთ შედეგს.
➤ დააჭირეთ F5 .
შემდეგ, შეტყობინებების ყუთი გამოჩნდება ახალი ტექსტით ველოსიპედები პირველ პოზიციაზე მანქანები მხოლოდ.
➤ მანქანების პირველი ორი ინსტანციის ველოსიპედებით <10-ით ჩანაცვლებისთვის> გამოიყენეთ შემდეგი კოდი.
1920
აქ 2 გამოიყენება როგორც დამთვლელი რიცხვი Cars <2-ის პირველი ორი ინსტანციის ჩასანაცვლებლად> ველოსიპედებით .
კოდის გაშვების შემდეგ გექნებათ პირველი ორი ტექსტის შეცვლა მანქანები ველოსიპედებით .
➤ გამოიყენეთ შემდეგი კოდი ყველა ინსტანციის ჩასანაცვლებლად ტექსტიდან Cars .
2673
აქ, REPLACE ფუნქციის უკანასკნელი არგუმენტი არის 3 რაც არის მთვლელი რიცხვი, რომელიც მიუთითებს ყველა მანქანის შეცვლის ველოსიპედებით ტექსტურ სტრიქონში.
➤ დააჭირეთ F5 .
შემდეგ, ჩვენ აქვს შემდეგი შეტყობინებების ყუთი შეცვლილი ტექსტით ველოსიპედები სტრიქონში.
მსგავსი წაკითხვები
- როგორ შევცვალოთ ტექსტი Carriage Return-ით Excel-ში (4 გლუვი მიდგომა)
- Excel VBA: როგორ მოვძებნოთ და ტექსტის ჩანაცვლება Word დოკუმენტში
- როგორ შევცვალოთ ტექსტი კონკრეტული სიმბოლოს შემდეგ Excel-ში (3 მეთოდი)
- შეცვალოთ ტექსტიუჯრედი, რომელიც დაფუძნებულია მდგომარეობაზე Excel-ში (5 მარტივი მეთოდი)
მეთოდი-03: ტექსტის ჩანაცვლება შემთხვევით სტრიქონში InputBox-ით
აქ ჩვენ ჩავანაცვლებთ გარკვეულ ტექსტს შემთხვევითი სტრიქონი ტექსტით, რომელსაც მომხმარებელი განსაზღვრავს VBA InputBox ფუნქციის დახმარებით.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ ჩაწერეთ შემდეგი კოდი.
7246
აქ ჩვენ გამოვაცხადეთ full_txt_str , new_txt და განახლებული_str როგორც სტრიქონი და შემდეგ მიენიჭა full_txt_str შემთხვევითი ტექსტის სტრიქონს- „ასი მანქანა ორმოცდაათი მანქანა ათი მანქანა“ . მომხმარებლის მიერ განსაზღვრული შეყვანის ტექსტის სახით ჩანაცვლებისთვის Cars შემთხვევით სტრიქონში, ჩვენ გამოვიყენეთ InputBox ფუნქცია და შემდეგ მივანიჭეთ ეს მნიშვნელობა. new_txt -მდე. შემდეგ REPLACE ფუნქცია გამოიყენება ამ შემთხვევითი სტრიქონის Cars ნაწილის ჩანაცვლებისთვის new_txt . და ბოლოს, ჩვენ მივანიშნეთ ეს ახალი ტექსტის სტრიქონი განახლებული_str და შეტყობინების ყუთით ( MsgBox ) დავინახავთ შედეგს.
➤ დააჭირეთ F5 .
ამის შემდეგ გამოჩნდება შეყვანის ველი , სადაც შეგიძლიათ შეიყვანოთ ტექსტის ნებისმიერი ნაწილი, რომელიც გსურთ, რომ გქონდეთ ახალ სტრიქონში.
➤ აკრიფეთ Bicycles ან ნებისმიერი სხვა ტექსტი, რომელიც გსურთ და შემდეგ დააჭირეთ OK .
საბოლოოდ, თქვენ აქვს შემდეგი შედეგი ახალი ტექსტის სტრიქონით, რომელსაც აქვს ახალი ტექსტი ველოსიპედები ში მანქანების პოზიცია .
წაიკითხეთ მეტი: როგორ შეცვალოთ ტექსტი Excel ფორმულაში (7 მარტივი გზა)
მეთოდი-04: ტექსტის ჩანაცვლება სტრიქონების დიაპაზონში Excel VBA-ით
აქ ჩვენ ჩავანაცვლებთ gmail ნაწილს ელფოსტის იდენტიფიკატორი დომენებით New Domain სვეტაში და ახალი ელფოსტის იდენტიფიკაციის დასაგროვებლად ჩავსვით ახალი სვეტი; ელფოსტის საბოლოო ID .
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 -დან.
➤ აკრიფეთ შემდეგი კოდი.
3186
აქ ჩვენ გამოვიყენეთ FOR loop ოპერაციის შესასრულებლად
3186
1> მე-4 მწკრივი მე-13 მწკრივი . IF-THEN განცხადების დახმარებით, ჩვენ შევამოწმეთ, შეიცავს თუ არა D სვეტის ელფოსტის ID “gmail” თუ არა და ამ კრიტერიუმის შესასრულებლად “gmail” ელფოსტის ID-ების ნაწილი შეიცვლება სვეტის E<ახალი დომენებით. 10> ახალი ID-ების შესაქმნელად F სვეტში . წინააღმდეგ შემთხვევაში, თქვენ გექნებათ ცარიელი ადგილი F სვეტის F შესაბამის უჯრედებში.
➤ დააჭირეთ F5 .
შემდეგ, თქვენ გექნებათ ახალი ელფოსტის ID Email-ის საბოლოო ID სვეტაში.
დაწვრილებით: Excel VBA სვეტში ტექსტის მოსაძებნად და ჩასანაცვლებლად (2 მაგალითი)
მეთოდი-05: ტექსტის ჩანაცვლება სტრიქონების დიაპაზონში მომხმარებლის შეყვანით ტექსტის საპოვნელად
შეგიძლიათ შეცვალოთ შემდეგი ელფოსტის ID-ებითახალი დომენები და განაცხადეთ, თუ რა უნდა შეიცვალოს წინა ID-ებში მომხმარებლის შეყვანის გამოყენება შესაძლებელია ამ მეთოდით.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ ჩაწერეთ შემდეგი კოდი.
8322
აქ ჩვენ განვსაზღვრეთ ნაწილობრივი_ტექსტი როგორც სტრიქონი და შემდეგ მიენიჭა სტრიქონს, რომელსაც მომხმარებელი მისცემს შეყვანის ველში .
ამის შემდეგ, ჩვენ გამოვიყენეთ FOR loop ოპერაციის შესასრულებლად 4 მწკრივიდან 13 მწკრივმდე და ვიყენებდით განცხადებაში IF-THEN , ჩვენ შევამოწმეთ, შეიცავენ თუ არა D სვეტის ელფოსტის ID “gmail” ან არა. და ამ კრიტერიუმის შესასრულებლად “gmail” ელ.ფოსტის ID-ების ნაწილი შეიცვლება სვეტის E ახალი დომენებით შესაქმნელად. ახალი ID სვეტა F . წინააღმდეგ შემთხვევაში, თქვენ გექნებათ ცარიელი ადგილი F სვეტის F შესაბამის უჯრედებში.
➤ დააჭირეთ F5 .
ამის შემდეგ, თქვენ გექნებათ შეყვანის ველი სადაც უნდა აკრიფოთ ტექსტი, რომელიც გსურთ მოძებნოთ ელ.ფოსტის ID-ების დიაპაზონში (აქ გვაქვს შეიყვანეთ gmail ) და შემდეგ დააჭირეთ OK .
ბოლოს, ჩვენ გვაქვს ჩვენი განახლებული ელფოსტის ID ფინალში ელფოსტის ID სვეტი.
წაიკითხეთ მეტი: იპოვეთ და შეცვალეთ ტექსტი დიაპაზონში Excel VBA-ით (მაკრო და მომხმარებლის ფორმა)
სავარჯიშო განყოფილება
პრაქტიკის გასაკეთებლადთქვენ მოგაწოდეთ პრაქტიკა განყოფილება, როგორც ქვემოთ მოცემულ ფურცელში სახელად პრაქტიკა . გთხოვთ, გააკეთოთ ეს დამოუკიდებლად.
დასკვნა
ამ სტატიაში ჩვენ შევეცადეთ გაგვეშუქებინა ტექსტის ჩანაცვლების გზები Excel VBA-ის გამოყენებით სტრიქონში. . იმედია გამოგადგებათ. თუ თქვენ გაქვთ რაიმე შემოთავაზება ან შეკითხვა, მოგერიდებათ გააზიაროთ ისინი კომენტარების განყოფილებაში.
