Სარჩევი
ერთ-ერთი ყველაზე მნიშვნელოვანი და ფართოდ გამოყენებული ფუნქცია, რომელსაც ვიყენებთ VBA -თან მუშაობისას Excel-ში არის Mid ფუნქცია VBA -დან. ის იღებს სტრიქონს, როგორც შეყვანას და აბრუნებს სიმბოლოების მოცემულ რაოდენობას სტრიქონის შუა ნაწილიდან გამოსაყვანად. დღეს ამ სტატიაში მე გაჩვენებთ, თუ როგორ შეგიძლიათ გამოიყენოთ Mid ფუნქცია VBA შესაბამისი მაგალითებით და ილუსტრაციებით.
ეს დააბრუნებს 9 სიმბოლოებს სტრიქონიდან „Angela Catherine Nevills“ , დაწყებული 8-ე სიმბოლოდან. ეს არის „კატერინე“ .
ჩამოტვირთეთ სავარჯიშო სამუშაო წიგნი
ჩამოტვირთეთ ეს სავარჯიშო წიგნი, რათა შეასრულოთ დავალება, სანამ თქვენ კითხულობთ ამ სტატიას.
VBA Mid Function.xlsm
შესავალი VBA-ის Mid ფუნქციაში Excel-ში
⧭ ფუნქციის მიზანი:
Mid ფუნქცია იღებს მნიშვნელობას შეყვანის სახით და აბრუნებს სიმბოლოების მოცემულ რაოდენობას, დაწყებული მნიშვნელობის მოცემული პოზიციიდან, როგორც გამომავალი.
მნიშვნელობა შეიძლება იყოს სტრიქონი, რიცხვი ან თუნდაც ლოგიკური .
მაგალითად, თუ ჩასვით Mid("Angela Catherine Nevills",8,9), ის დააბრუნებს "Catherine" .
თუ ჩასვით Mid(12345,2,3) , მიიღებთ 234.
და ჩასვით Mid(False,2,3) , თქვენ მიიღებთ als .
⧭ სინტაქსი:
სინტაქსი Mid ფუნქცია VBA -დანარის:
=Mid(String,Start as Long,[Length]) ⧭ არგუმენტები:
| არგუმენტი | საჭირო / არასავალდებულო | ახსნა |
|---|---|---|
| სტრიქონი | საჭირო | სტრიქონი რომელიც დაბრუნდება სიმბოლოების რაოდენობა. |
| დაწყება | საჭიროა | სტრიქონის საწყისი სიმბოლო, რომელიც დაბრუნდება. |
| სიგრძე | სურვილისამებრ | სიმბოლოების რაოდენობა, რომელიც დაბრუნდება. ნაგულისხმევი არის 1. |
⧭ დაბრუნების მნიშვნელობა:
აბრუნებს სიმბოლოების მოცემულ რაოდენობას შუა რიცხვიდან სტრიქონის, დაწყებული მოცემული პოზიციიდან.
3 მაგალითები VBA-ის Mid ფუნქციის Excel-ში
ამჯერად, მოდით გამოვიკვლიოთ Mid ფუნქცია VBA -დან დეტალურად რამდენიმე მაგალითით.
1. სიმბოლოების მოცემული რაოდენობის გამოყოფა ზოგიერთი ID-ის შუა ნაწილიდან VBA-ს Mid ფუნქციის გამოყენებით Excel-ში
აქ ჩვენ მივიღეთ მონაცემთა ნაკრები ID-ებით და კომპანიის ზოგიერთი თანამშრომლის სახელები სახელწოდებით Saturn Group.
აქ, თითოეულის მეოთხე მეშვიდე გმირები ID აღნიშნავს შესაბამისი თანამშრომლის შემოერთების წელს.
ახლა ჩვენ განვავითარებთ მომხმარებლის მიერ განსაზღვრულ ფუნქციას Mid ფუნქციის VBA -ის გამოყენებით. რომელიც ამოიღებს თითოეული თანამშრომლის გაწევრიანების წელს თანამშრომლის ID-დან .
შეგიძლიათ გამოიყენოთ შემდეგი VBA კოდი:
⧭ VBA კოდი:
3558
შენიშვნა: ეს კოდიქმნის ფუნქციას სახელწოდებით შეერთების_წელი .
⧭ გამომავალი:
გაუშვით ეს ფუნქციონირებს თქვენი სამუშაო ფურცლის ნებისმიერ უჯრედში ID-ით, როგორც არგუმენტი.
აქ, უჯრედში D4 , ჩვენ შევიყვანეთ ფორმულა:
=Joining_Year(B4) დაბრუნდა პირველი თანამშრომლის შემოერთების წელი, 2021 .
ახლა შეგიძლიათ გადაიტანოთ შეავსეთ Handle , რათა მიიღოთ დარჩენილი თანამშრომლების გაწევრიანების წლები.
⧭ კოდის ახსნა:
- პირველ რიგში, ჩვენ ვაცხადებთ ფუნქციას სახელწოდებით შეერთების_წელი , რომელიც იღებს ID-ს, როგორც შეყვანის ხაზს ფუნქცია Joining_Year(ID) .
- შემდეგ ამოვიღებთ 4 სიმბოლოს ID-დან, დაწყებული 4 პოზიციიდან, Joining_Year = Mid(ID, 4, 4) .
- ხაზი End Function აცხადებს ფუნქციის დასრულებას.
2. გაფართოებების ამოღება ზოგიერთი ელ.ფოსტის მისამართიდან VBA-ის Mid ფუნქციის გამოყენებით Excel-ში
ახლა ჩვენ დავამატეთ ახალი სვეტი მონაცემთა ნაკრებში, რომელიც შეიცავს თანამშრომლების ელფოსტის მისამართებს.
ამჯერად ჩვენ გამოვყოფთ ელფოსტის მისამართების გაფართოებებს VBA -ის Mid ფუნქციის გამოყენებით.
VBA კოდი იქნება:
⧭ VBA კოდი:
5778
შენიშვნა: ეს კოდი ქმნის ფუნქციას სახელწოდებით გაფართოება .
⧭ გამომავალი:
გაუშვით ეს ფუნქციონირება თქვენი სამუშაო ფურცლის ნებისმიერ უჯრედში ელფოსტითმისამართი როგორც არგუმენტი.
აქ, უჯრედში E4 , ჩვენ შევიყვანეთ ფორმულა:
=Extension(D4) მას დააბრუნა პირველი ელფოსტის მისამართის გაფართოება.
შემდეგ შეგიძლიათ გადაათრიოთ შევსების სახელური ყველა ელფოსტის გაფართოების ამოსაღებად. მისამართები.
⧭ კოდის ახსნა
- პირველ რიგში, ჩვენ ვაცხადებთ ფუნქციას ე.წ. გაფართოება რომელიც იღებს ნებისმიერ სახელს ხაზში Function Extension(Email_Address) .
- შემდეგ ვიწყებთ გამეორებას for-loop რომელიც ამოწმებს ელ.ფოსტის მისამართის თითოეულ სიმბოლოს, რათა ნახოს არის თუ არა @ ხაზით If Mid(Email_Address, i, 1) = "@" მაშინ .
- თუ ის იპოვის @ , მაშინ ამოიღებს საჭირო გაფართოებას ელ.ფოსტის მისამართიდან სტრიქონით გაფართოება = შუა (ელფოსტის_მისამართი, i. + 1, Len(Email_Address) – (i + 4)) .
- ბოლოს ვაცხადებთ ფუნქციის დასრულებას.
3. ზოგიერთი ტექსტის შემოწმება, რომ ნახოთ, შეიცავს თუ არა კონკრეტულ ტექსტს
Mid ფუნქციის ერთ-ერთი ყველაზე მნიშვნელოვანი გამოყენება არის იმის დანახვა, შეიცავს თუ არა ტექსტი კონკრეტულ ტექსტს. .
მოდით, შევიმუშავოთ ფუნქცია, რათა შევამოწმოთ, შეიცავს თუ არა ელფოსტის მისამართები ტერმინს “gmail” .
შეგიძლიათ გამოიყენოთ შემდეგი VBA კოდი:
⧭ VBA კოდი:
5584
შენიშვნა: ეს კოდი ქმნის ფუნქციას დაურეკა შემოწმება .
⧭ გამომავალი:
ამ ფუნქციის გაშვება ნებისმიერ უჯრედში თქვენი სამუშაო ფურცლის ორი ტექსტით არგუმენტად.
აქ, უჯრედში E4 , ჩვენ შევიყვანეთ ფორმულა:
=Checking(D4,"gmail") ის დაბრუნდა დიახ რადგან 1-ლი ელფოსტის მისამართი არის Gmail მისამართი.
შემდეგ შეგიძლიათ გადაათრიოთ შეავსეთ სახელური , რომ იგივე გააკეთოთ ყველა ელფოსტის ID-ისთვის.
⧭ კოდის ახსნა:
- პირველ რიგში, ჩვენ ვაცხადებთ ფუნქციას სახელწოდებით Checking , რომელიც არგუმენტად იღებს ორ ტექსტს სტრიქონზე Function Checking(Text1,Text2) .
- შემდეგ ჩვენ ვიწყებთ for loop-ს, რომელიც ამოწმებს Text1 -ის თითოეულ სეგმენტს 1 პოზიციიდან დაწყებული, რათა ვნახოთ, უდრის თუ არა Text2 -ს. , ხაზით თუ Mid(Text1, i, Len(Text2)) = Text2 მაშინ .
- თუ იპოვის Text2 , მაშინ დააბრუნებს „დიახ“ , წინააღმდეგ შემთხვევაში დააბრუნებს „არა“ .
- საბოლოოდ, ჩვენ ვასრულებთ ფუნქციას სტრიქონით End Function .
რაც უნდა გვახსოვდეს
- <28 1st არგუმენტი Mid ფუნქციის არ უნდა იყოს ყოველთვის სტრიქონი. ეს შეიძლება იყოს სტრიქონი , რიცხვი ან თუნდაც ლოგიკური მნიშვნელობა.
- მაგრამ მეორე და მე-3 არგუმენტები უნდა იყოს ნომრები . ისინი შეიძლება იყოს მთელი რიცხვები ან წილადები მაგრამ უნდა იყოს რიცხვები . თუ ისინი არიან წილადები , მაშინ შუაფუნქცია გადააქცევს მათ უახლოეს მთელ რიცხვებად .
