Სარჩევი
Excel-ში VBA -თან მუშაობისას, ხშირად გვიწევს სტრიქონების (s) და ცვლადების (s) შეერთება სამუშაო ფურცელში. სტრიქონების (s) და ცვლადის (s) შეერთება ფართოდ გამოიყენება ჩვენს ნამუშევრებში თითქმის ყველა სექტორში, დაწყებული სტუდენტების შედეგების შეჯამებიდან რთული ბიზნესის ანალიზამდე. ამ სტატიაში მე გაჩვენებთ, თუ როგორ შეგიძლიათ დააკავშიროთ სტრიქონები (s) და ცვლადები (s) სამუშაო ფურცელში VBA Excel-ში. მე ავხსნი საკითხებს სათანადო მაგალითებითა და ილუსტრაციებით.
სტრიქონების (ებ) და ცვლადების (ებ) შეერთება Excel VBA-ში (სწრაფი ნახვა)
ჩამოტვირთეთ სავარჯიშო სამუშაო წიგნი
ჩამოტვირთეთ ეს სავარჯიშო სამუშაო წიგნი, რათა ივარჯიშოთ ამ სტატიის კითხვის დროს.
შეაერთეთ სტრიქონი და ცვლადი.xlsm
სტრიქონების (s) და ცვლადის (s) შეერთება Excel VBA-ში (ეტაპობრივი ანალიზი)
პირველ რიგში, ვნახოთ, როგორ შეგვიძლია გავაერთიანოთ სტრიქონები (ები) და ცვლადი (s) VBA -ში ეტაპობრივად.
⧪ სტრიქონების შეერთება:
ორი ან მეტი სტრიქონის შეერთება VBA , შეგიძლიათ გამოიყენოთ როგორც არითმეტიკული დამატების (+) სიმბოლო, ასევე ამპერსანდის (& ) სიმბოლო.
მაგალითად, შეერთებისთვის სტრიქონები „დიდი მოლოდინები“ და „ზღაპარი ორი ქალაქის შესახებ“ მძიმით , შეგიძლიათ გამოიყენოთ:
5432
ან,
9922
გაუშვით რომელიმე ზემოთ მოყვანილი კოდი. ის აჩვენებს შეერთებულ გამომავალს, დიდი მოლოდინები,ზღაპარი ორი ქალაქის შესახებ .
⧪ შემაერთებელი ცვლადი (ებ)
თუ ყველა ცვლადი შეიცავს სტრიქონების მნიშვნელობებს, მაშინ შეგიძლიათ გამოიყენოთ როგორც არითმეტიკული მიმატება (+) სიმბოლო და აპერსანდი (&) სიმბოლო.
მაგრამ თუ არა, მაშინ შეგიძლიათ გამოიყენოთ მხოლოდ ამპერსანდის (&) სიმბოლოს შეერთება.
მაგალითად, გვაქვს ორი ცვლადი, A და B .
A შეიცავს სტრიქონს, "ზღაპარი ორი ქალაქის შესახებ" და B შეიცავს სხვა სტრიქონს, "სიყვარულის ორმოცი წესი" .
შეგიძლიათ გამოიყენოთ როგორც დამატების (+) სიმბოლო, ასევე აპერსანდი (&) მათ შესაერთებლად.
4307
ან,
8795
ორივე შემთხვევაში, ისინი დააბრუნებენ შეერთებულ სტრიქონს.
მაგრამ თუ A არის სტრიქონი ( „ზღაპარი ორი ქალაქის შესახებ“ ) და B არის მთელი რიცხვი ( 27 ), თქვენ უნდა გამოიყენოთ ამპერსანდი (&) შესაერთებლად.
5143
ის დააბრუნებს შეერთებულ გამომავალს .
მაგალითები Concat Enate სტრიქონები და ცვლადები Excel VBA-ში (მაკროს, UDF და UserForm-ის ჩათვლით)
ჩვენ ვისწავლეთ სტრიქონების (ებ) და ცვლადების (s) შეერთება VBA Excel-ში . ამჯერად ჩვენ განვიხილავთ რამდენიმე მაგალითს, რომელიც მოიცავს სტრიქონების (s) და ცვლადის (s) შეერთებას VBA -თან.
მაგალითი 1: მაკროს შემუშავება სტრიქონების შეერთებისთვის და ცვლადი (ებ) Excel VBA
ჩვენ ვისწავლეთშეაერთეთ სტრიქონები და ცვლადები VBA -ით. ამჯერად ჩვენ შევიმუშავებთ მაკრო სამუშაო ფურცელში მრავალი სვეტის სტრიქონებისა და ცვლადების შესაერთებლად.
აქ გვაქვს მონაცემთა ნაკრები წიგნების სახელებით , ავტორები და ფასები წიგნების მაღაზიის ზოგიერთი წიგნის, სახელწოდებით Martin Bookstore.
მოდით, განვავითაროთ მაკრო მონაცემთა ნაკრების B4:D14 სვეტების 1, 2, და 3 შესაერთებლად F4 .
VBA კოდი იქნება:
⧭ VBA კოდი:
9985
⧭ გამომავალი :
გაუშვით ეს კოდი. თქვენ მიიღებთ 3 სვეტებს მიბმული F4:F14 დიაპაზონში.
დაწვრილებით: მაკრო მრავალი სვეტის შეერთება Excel-ში (UDF-ით და UserForm-ით)
მაგალითი 2: მომხმარებლის მიერ განსაზღვრული ფუნქციის შექმნა სტრიქონების (ებ) და ცვლადების (s) შეერთებისთვის Excel VBA-ში
ჩვენ ვისწავლეთ მაკრო შემუშავება მონაცემთა ნაკრების მრავალი სვეტის შესაერთებლად. ამჯერად ჩვენ შევქმნით მომხმარებლის მიერ განსაზღვრულ ფუნქციას Excel-ში სტრიქონების ან ცვლადების შესაერთებლად.
სრული VBA კოდი იქნება:
⧭ VBA კოდი:
4404
⧭ გამომავალი:
აირჩიეთ სვეტი, სადაც გსურთ დააკავშიროთ დიაპაზონი და შეიყვანეთ ეს ფორმულა:
=ConcatenateValues("She","H. Rider Haggard",", ") გამომავალი დაბრუნების She, H. Rider Haggard .
კიდევ ერთხელ შეიყვანეთ ფორმულა:
=ConcatenateValues(B4:B14,30,", ") [ Array Formula . ასე რომ არ დაგავიწყდეთდააჭირეთ CTRL + SHIFT + ENTER , თუ არ ხართ Office 365 .]
ის აერთიანებს 30 დიაპაზონის ყველა მნიშვნელობას B4:B14 .
ბოლოს, შეიყვანეთ:
=ConcatenateValues(B4:B14,C4:C14,", ") [ისევ Array Formula . ასე რომ, არ დაგავიწყდეთ დააჭიროთ CTRL + SHIFT + ENTER , თუ არ ხართ Office 365 -ში.]
ის აერთიანებს დიაპაზონის ყველა მნიშვნელობას B4: B14 C4:C14 -თან.
წაიკითხეთ მეტი: როგორ დავაკავშიროთ Excel-ში (3 შესაფერისი გზა)
მსგავსი წაკითხვები:
- როგორ გავაერთიანოთ ტექსტი ორი ან მეტი უჯრედიდან ერთ უჯრედში Excel-ში (5 მეთოდი)
- გაერთიანეთ რიგები ერთ უჯრედში Excel-ში
- ნომრების შეერთება Excel-ში (4 სწრაფი ფორმულა)
- ტექსტის შერწყმა Excel-ში (8 შესაფერისი გზა)
- როგორ გავაერთიანოთ აპოსტროფი Excel-ში (6 მარტივი გზა)
მაგალითი 3: შემუშავება UserForm სტრიქონების (s) და ცვლადის (s) შეერთებისთვის Excel VBA-ში სხვადასხვა სამუშაო ფურცელში
ჩვენ ვისწავლეთ მაკრო და მომხმარებლის მიერ განსაზღვრულის შემუშავება ფუნქცია სტრიქონების და მნიშვნელობების შეერთების მიზნით. დაბოლოს, ჩვენ შევიმუშავებთ UserForm სტრიქონების და მნიშვნელობების შესაერთებლად სასურველი სამუშაო ფურცლის სასურველ ადგილას.
⧪ ნაბიჯი 1: UserForm-ის ჩასმა
გადადით ჩასმა > UserForm ოფცია VBA ხელსაწყოთა ზოლში ახალი UserForm ჩასართავად.
⧪ ნაბიჯი 2: გადათრევა ინსტრუმენტებიგაიხსნება UserForm
A UserForm , სახელწოდებით UserForm1 , ერთად Toolbox სახელწოდებით Control .
გადაიტანეთ მაუსი e Toolbox-ზე და გადაიტანეთ 2 List Boxes, 5 Text Boxes, 7 Labels და 1 CommanButtons UserForm-ში .
შეცვალეთ Labels-ის ჩვენება. როგორც ნაჩვენებია სურათზე.
მსგავსად, შეცვალეთ CommandButton ჩვენება OK .
⧪ ნაბიჯი 3: კოდის დაწერა TextBox1-ისთვის
ორჯერ დააწკაპუნეთ TextBox1 . გაიხსნება პირადი ქვეპროცედურა სახელწოდებით TextBox1_Change . შეიყვანეთ იქ შემდეგი კოდი.
3194
⧪ ნაბიჯი 4: კოდის დაწერა TextBox3-ისთვის
მსგავსად, ორჯერ დააწკაპუნეთ TextBox3 . გაიხსნება კიდევ ერთი პირადი ქვეპროცედურა სახელწოდებით TextBox3_Change . შეიყვანეთ იქ შემდეგი კოდი.
4274
⧪ ნაბიჯი 5: კოდის დაწერა TextBox4-ისთვის
ასევე, ორჯერ დააწკაპუნეთ TextBox3 . გაიხსნება კიდევ ერთი პირადი ქვეპროცედურა სახელწოდებით TextBox3_Change . შეიყვანეთ იქ შემდეგი კოდი.
7363
⧪ ნაბიჯი 6: ჩაწერეთ კოდი ListBox2-ისთვის
შემდეგ ორჯერ დააწკაპუნეთ ListBox2-ზე . როდესაც იხსნება პირადი ქვეპროცედურა სახელწოდებით ListBox2_Click , შეიყვანეთ ეს კოდი იქ.
2594
⧪ ნაბიჯი 7: კოდის ჩაწერა CommanButton1-ისთვის
ასევე, ორჯერ დააწკაპუნეთ CommandButton1 -ზე. პირადი ქვეპროცედურის შემდეგ მოუწოდა CommandButton1_Change იხსნება, იქ ჩასვით შემდეგი კოდი.
A = "A Tale of Two Cities" B = "The Forty Rules of Love" New_String = A & ", " & B 
⧪ ნაბიჯი 7: კოდის დაწერა UserForm-ის გასაშვებად
ახლა არის საბოლოო ნაბიჯი. ჩადეთ ახალი მოდული VBA ხელსაწყოთა ზოლიდან და ჩადეთ შემდეგი კოდი.
7241
⧪ ნაბიჯი 8: გაშვება UserForm
თქვენი UserForm ახლა მზად არის გამოსაყენებლად. მის გასაშვებად, აირჩიეთ მონაცემთა ნაკრები სამუშაო ფურცლიდან ( Headers -ის ჩათვლით) და გაუშვით Macro სახელწოდებით Run_UserForm .
UserForm ჩაიტვირთება ყველა ვარიანტით. არჩეული დიაპაზონის მისამართი გამოჩნდება TextBox1 ( B3:D4 აქ). თუ გსურთ, შეგიძლიათ შეცვალოთ იგი. სამუშაო ფურცელში არჩეული დიაპაზონი შეიცვლება.
აირჩიეთ სვეტები, რომელთა შეერთებაც გსურთ Columns to Concat ListBox-დან. აქ მე ავირჩიე წიგნის სახელი და ფასი .
შეიყვანეთ გამყოფი . აქ მე შევიყვანე მძიმე ( , ).
აირჩიეთ სამუშაო ფურცლის სახელი, სადაც გსურთ დააყენოთ თანმიმდევრული დიაპაზონი Concatenated In<2-დან> სიის ყუთი. აქ მე შევიყვანე Sheet3 .
(როდესაც ფურცელს აირჩევთ, ის გააქტიურდება, თუნდაც ის არ იყოს აქტიური.)
შემდეგ ჩადეთ გამომავალი მდებარეობა . ეს არის მიბმული დიაპაზონის პირველი უჯრედის მითითება. აქ მე დავაყენე B3 .
(როგორც შეხვალთ გამომავალი მდებარეობა , გამომავალი დიაპაზონი შეირჩევა).
და ბოლოს , შეიყვანეთ გამომავალი სათაურის სახელი (გამომავალი დიაპაზონის სათაური). აქ მე დავაყენე Concatenated Range .
(როგორც დააყენებთ Output Header , გამომავალი სვეტის სათაური დაყენდება.)
დააწკაპუნეთ OK . თქვენ მიიღებთ სასურველ გამომავალს სასურველ ადგილას.
წაიკითხეთ მეტი: როგორ გავაერთიანოთ სტრიქონი და მთელი რიცხვი VBA-ს გამოყენებით
დასკვნა
ასე რომ, ეს არის რამდენიმე მაგალითი, რომლებშიც შეგიძლიათ გამოიყენოთ Excel VBA სტრიქონებისა და ცვლადების შესაერთებლად. ვიმედოვნებთ, რომ მაგალითებმა ყველაფერი საკმაოდ ნათელი გახადა თქვენთვის. გაქვთ რაიმე შეკითხვები? თავისუფლად გვკითხეთ. და არ დაგავიწყდეთ ეწვიოთ ჩვენს საიტს ExcelWIKI მეტი პოსტებისა და განახლებისთვის.
