Სარჩევი
თუ თქვენ ეძებთ რამდენიმე უმარტივეს გზას VBA-ს გამოყენებით ქვესტრიქონის მოსაძებნად, მაშინ თქვენ სწორ ადგილას ხართ. ამ სტატიის გავლის შემდეგ, თქვენ შეძლებთ იპოვოთ ქვესტრიქონის პოზიცია ან ამოიღოთ მონაცემები ამ ქვესტრიქონის გამოყენებით ან მარტივად შეცვალოთ ქვესტრიქონის ფორმატი. მოდით გადავიდეთ სტატიაში.
ჩამოტვირთეთ სამუშაო წიგნი
ნიმუშის შინაარსი
9 გზა VBA-ს გამოყენებით ქვესტრიქონის მოსაძებნად
აქ, მე მაქვს შემდეგი მონაცემთა ცხრილი, რომლითაც მე ვაჩვენებ VBA-ს გამოყენებით სტრიქონში ქვესტრიქონის პოვნის გზებს. მე ასევე ვეცდები გაჩვენო შემთხვევითი სტრიქონში ქვესტრიქონის პოვნის გზები.
ეს დავალება შევასრულე Microsoft Excel 365 ვერსიით, შეგიძლიათ გამოიყენოთ ნებისმიერი სხვა ვერსია თქვენი მოხერხებულობის მიხედვით.
მეთოდი-1: სტრიქონში ქვესტრიქონის პოვნა VBA-ს გამოყენებით
თუ გსურთ იპოვოთ სასურველი ქვესტრიქონი სტრიქონში VBA-ს გამოყენებით, შეგიძლიათ გამოიყენოთ InStr ფუნქცია VBA კოდში.
Step-01 :
➤გადადით Developer Tab>> Visual Basic ოფცია
შემდეგ, Visual Basic რედაქტორი გაიხსნება.
➤გადადით ჩასმა Tab>> მოდული ოფცია
ამის შემდეგ შეიქმნება მოდული .
ნაბიჯი-02 :
➤დაწერეთ შემდეგი კოდი
1572
აქ, InStr(1, " ვფიქრობ, ამიტომ ვარ”, “think”) დააბრუნებს სტრიქონის ქვესტრიქონის პოზიციას. 1 არისსაწყისი პოზიცია, „ მე ვფიქრობ, ამიტომ ვარ“ ეს არის სტრიქონი, სადაც იპოვით სასურველ ქვესტრიქონს და „think“ ეს არის ქვესტრიქონი, რომლის პოვნაც გსურთ. ის ნაგულისხმევად მგრძნობიარეა რეგისტრის მიმართ, ასე რომ, ფრთხილად იყავით თქვენი ქვესტრიქონის ქეისზე, რომლის ძიებაც გსურთ.
➤დააჭირეთ F5
შედეგი :
ამის შემდეგ, თქვენ მიიღებთ შემდეგ შეტყობინებების ყუთს რომელიც შეიცავს "think" ქვესტრინგის პოზიციას.
მეთოდი-2: სტრიქონში რეგისტრირებული ქვესტრიქონის პოვნა
თუ გსურთ იპოვოთ სასურველი ქვესტრიქონი სტრიქონში, განურჩევლად ქეისისა, VBA-ს გამოყენებით, მაშინ მიჰყევით ამას მეთოდი.
Step-01 :
➤მიჰყევით Step-01 of Method-1
9602
აქ vbTextCompare გამოიყენება რეგისტრისადმი მგრძნობიარე ქვესტრიქონის მოსაძებნად.
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ მიიღებთ შემდეგ შეტყობინებების ყუთს რომელიც შეიცავს "think" ქვესტრინგის პოზიციას.
იგივე შეგიძლიათ გააკეთოთ შემდეგი კოდის გამოყენებით.
9463
აქ, Option Compare Text იპოვის ქვესტრიქონს.
<. 0>
➤ დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ მიიღებთ შემდეგ შეტყობინებების ყუთს რომელიც შეიცავს "think" ქვესტრინგის პოზიციას.
მეთოდი-3: InstrRev ფუნქციის გამოყენება VBA-ში
აქ მე გაჩვენებთ გზას, რომ იპოვოთ ქვესტრიქონი ბოლოდანstring.
Step-01 :
➤მიჰყევით Step-01 of Method-1
6831
InStrRev იპოვის ქვესტრიქონს მარჯვენა მხრიდან მარცხენა მხარის ნაცვლად.
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ მიიღებთ შემდეგ შეტყობინებების ყუთს რომელიც შეიცავს მეორე "I" ქვესტრიქონიდან მარჯვენა მხარე.
მეთოდი-4: სტრიქონში ქვესტრიქონის პოზიციის პოვნა მონაცემთა დიაპაზონში
თუ გსურთ იპოვოთ სპეციალური სიმბოლო “@” ელფოსტის ID-ში , შემდეგ მიჰყევით ამ მეთოდს. მე დავამატე აქ პოზიციის სვეტი ამ მიზნით.
ნაბიჯი-01 :
➤მიყევით Step-01 Method-1
4342
ის შექმნის ფუნქციას სახელად FindSubstring (შეგიძლიათ გამოიყენოთ ნებისმიერი სხვა სახელი)
მნიშვნელობა არის უჯრედის მითითება, რომელიც შეიცავს სტრიქონს და ის გამოცხადებულია როგორც დიაპაზონი .
ნაბიჯი -02 :
➤აირჩიეთ გამოსავალი Cell E5
➤აკრიფეთ შემდეგი ფუნქცია (შექმნილი VBA )
=FindSubstring(D5)
D5 არის უჯრედი, რომელიც შეიცავს სტრიქონს.
➤დააჭირეთ ENTER
➤გადაათრიეთ შევსების სახელური ინსტრუმენტი
შედეგი :
შემდეგ, თქვენ მიიღებთ სპეციალური სიმბოლოს პოზიციებს “ @” ელფოსტის ID-ში .
მსგავსი წაკითხვები:
- როგორ მოვძებნოთსტრიქონი უჯრედში VBA-ს გამოყენებით Excel-ში (2 მეთოდი)
- იპოვეთ შემდეგი VBA-ს გამოყენებით Excel-ში (2 მაგალითი)
- როგორ მოვძებნოთ სტრიქონი VBA Excel-ში (8 მაგალითი)
- VBA იპოვეთ ბოლო მწკრივი Excel-ში (5 გზა)
მეთოდი-5: გარკვეული ქვესტრინგის შემოწმება სტრიქონი მონაცემთა დიაპაზონში
ვთქვათ, გსურთ დაწეროთ გადავლება ან ვერ შეესაბამება მოსწავლეთა სახელებს შედეგის სვეტის მიხედვით სადაც Pass ან Fail ჩაწერილია ფრჩხილში. ამ ქვესტრიქონის მოსაძებნად შედეგის სვეტში და ჩაწერეთ გადადით ან ვერ ხერხდება სვეტში მიჰყევით ამ მეთოდს.
<. 11>Step-01 :
➤მიჰყევით Step-01 of Method-1
8927
აქ, უჯრედების დიაპაზონი არის C5:C10 რომელიც არის შედეგის სვეტი
InStr(cell.value, „Pass“) > 0 ეს არის მდგომარეობა, როდესაც რიცხვი მეტია ნულზე (როდესაც უჯრედი შეიცავს „გადასასვლელი“ ) მაშინ შემდეგი ხაზი გაგრძელდება და გამომავალს მიმდებარე უჯრედში იძლევა გადასული .
თუ პირობა გახდება false ნიშნავს, რომ უჯრედი არ შეიცავს „გადასასვლელს“ , მაშინ ხაზი Else შესრულდება და მისცემს გამომავალ მნიშვნელობას მიმდებარე უჯრედი, როგორც ვერ შესრულდა .
ეს ციკლი გაგრძელდება თითოეული უჯრედისთვის.
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ მიიღებთ შემდეგ გამომავალს გადადით ან ვერ მოხერხდა სვეტი.
მეთოდი-6: სტრიქონში გარკვეული ქვესტრიქონის შემოწმება და მონაცემების ამოღება
მე ვაჩვენებ გზას დასახელებული სტუდენტების მოსაძებნად Michael Student Name სვეტში და ამოიღეთ მათი შესაბამისი მონაცემები VBA ამ მეთოდით.
Step-01 :
➤მიჰყევით Step-01 of Method-1
3210
აქ, მე გამოვიყენე B100 როგორც აქტიური ფურცლის დიაპაზონი , მაგრამ თქვენ შეგიძლიათ გამოიყენოთ ნებისმიერი დიაპაზონი თქვენი გამოყენების მიხედვით.
InStr(1, Range("B" & i), "Michael") > 0 არის თუ არა უჯრედი სვეტი B შეიცავს Michael
Range("E" & icount & ":G" & icount) არის დიაპაზონი, სადაც გსურთ თქვენი გამომავალი მონაცემები და Range("B" & i & ":D" & i).value მისცემს მნიშვნელობებს სვეტებიდან B -დან D -მდე.
➤დააჭირეთ F5
შედეგი :
ამის შემდეგ, თქვენ მიიღებთ შემდეგ ამოღებულ მონაცემებს იმ სტუდენტებისთვის, რომლებსაც აქვთ სახელი Michael .
მეთოდი-7: Word-ის ქვესტრიქონის ძიება
თუ გსურთ იპოვოთ ქვესტრიქონი სიტყვად, მაშინ fol დაბალი ეს მეთოდი.
Step-01 :
➤მიჰყევით Step-01 of Metod-1
1214
გადაამოწმებს, შეიცავს თუ არა სტრიქონი არის და შემდეგ მიენიჭება მისი პოზიცია
➤დააჭირე F5
შედეგი :
შემდეგ, თქვენ მიიღებთ შემდეგ შეტყობინებას, რომელშიც ნაჩვენებია სიტყვა ნაპოვნი პოზიციაში:6 (პოზიცია არის ).
შეგიძლიათ შეამოწმოთამოიღეთ ეს კოდი სიტყვისთვის, რომელიც არ არის სტრიქონში.
➤აკრიფეთ შემდეგი კოდი
7691
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ მიიღებთ შემდეგ შეტყობინებას, რომელიც აჩვენებს სიტყვა ვერ მოიძებნა .
მეთოდი-8: Instr და LEFT ფუნქციების გამოყენებით
აქ, მე აგიხსნით სტრიქონში ქვესტრიქონის პოზიციის პოვნის გზას და ამ ქვესტრიქონამდე ტექსტების ამოღებას გამოყენებით. VBA და LEFT ფუნქცია .
Step-01 :
➤მიჰყევით Step-01 of მეთოდი-1
5150
j = InStr(txt, "is") არის ქვესტრიქონის პოზიცია არის და Left(txt, j - 1) გამოიყვანს ქვესტრიქონებს <11-მდე> არის .
➤დააჭირეთ F5
შედეგი :
ამის შემდეგ, თქვენ მიიღებთ შემდეგ შეტყობინებებს, რომელიც აჩვენებს აქ (ქვესტრიქონი ის -მდე).
მეთოდი-9: სქელი გარკვეული ქვესტრიქონი სტრიქონში
შეგიძლიათ დახაზოთ კლასები ფრჩხილების წინ შედეგის სვეტში ამ მეთოდის დაცვით დ.
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯი-01 მეთოდი- 1
1309
txt = InStr(1, Cell, "(") დააბრუნებს პირველი ფრჩხილის პოზიციას და Cell.Characters(1, txt - 1).Font.Bold გააქცევს ქვესტრიქონს პირველი ფრჩხილის წინ Bold .
ნაბიჯი-02 :
➤აირჩიეთ შედეგის სვეტი
➤გადადით დეველოპერამდე Tab>> მაკრო ოფცია
შემდეგ, მაკროგამოჩნდება ოსტატი.
➤აირჩიეთ Boldingsubstring (VBA კოდის სახელი) და შემდეგ Run .
შედეგი :
ამის შემდეგ, შედეგი სვეტი შეფასებები თამამდება.
სავარჯიშო განყოფილება
დამოუკიდებლად პრაქტიკის გასაკეთებლად, ჩვენ მოგაწოდეთ პრაქტიკა განყოფილება, როგორც ქვემოთ მოცემულ ფურცელში სახელად პრაქტიკა . გთხოვთ, გააკეთეთ ეს დამოუკიდებლად.
დასკვნა
ამ სტატიაში შევეცადე გამეშუქებინა ქვესტრიქონის პოვნის უმარტივესი გზები VBA Excel-ში ეფექტურად. იმედია გამოგადგებათ. თუ თქვენ გაქვთ რაიმე შემოთავაზება ან შეკითხვა, მოგერიდებათ გაგვიზიაროთ ისინი.
