Мазмұны
Excel бағдарламасында VBA -мен жұмыс істегенде, жиі жұмыс парағында жол (лар) мен айнымалы (лар)ды біріктіруге тура келеді. Жол(лар) мен айнымалы(лар)ды біріктіру біздің жұмысымызда студенттердің нәтижелерін қорытындылаудан бастап күрделі бизнесті талдауға дейінгі барлық дерлік секторларда кеңінен қолданылады. Бұл мақалада мен Excel бағдарламасындағы VBA арқылы жұмыс парағындағы жол (лар) мен айнымалы мәндерді қалай біріктіруге болатындығын көрсетемін. Мен заттарды дұрыс мысалдармен және иллюстрациялармен түсіндіремін.
Excel VBA (Жылдам қарау) бағдарламасындағы жолдар мен айнымалы мәндерді біріктіру
Тәжірибе жұмыс кітабын жүктеп алу
Осы мақаланы оқып жатқанда жаттығу жасау үшін осы жаттығу жұмыс кітабын жүктеп алыңыз.
Жолды және айнымалыны біріктіріңіз.xlsm
Excel VBA жүйесіндегі жол(дар) мен айнымалы мәндерді біріктіру (қадамдық талдау)
Алдымен жолды(ларды) қалай біріктіруге болатынын көрейік. және VBA ішіндегі айнымалы (лар). 1>VBA , сіз арифметикалық қосу (+) белгісін де, амперсанды (& ) таңбасын да пайдалана аласыз.
Мысалы, біріктіру үшін Үтір бар “Үлкен үміттер” және “Екі қала туралы әңгіме” жолдарын пайдалана аласыз:
4066
Немесе,
3036
Жоғарыдағы кодтардың кез келгенін іске қосыңыз. Ол біріктірілген нәтижені көрсетеді, Үлкен үміттер,Екі қала туралы әңгіме .
⧪ Біріктіруші айнымалы(лар)
Егер барлық айнымалылар жол мәндерін қамтыса, онда сіз арифметикалық қосу (+) белгісін де, амперсанды (&) таңбасын да пайдалана аласыз.
Бірақ олар болмаса, онда сіз пайдалана аласыз біріктіру үшін тек амперсанды (&) белгісі.
Мысалы, A және B екі айнымалы болсын.
A жолды қамтиды, “Екі қала туралы әңгіме” және B басқа жолды қамтиды, “Махаббаттың қырық ережесі” .
Оларды біріктіру үшін қосымша (+) белгісін және амперсанды (&) таңбасын да пайдалануға болады.
9981
Немесе,
7998
Екі жағдайда да олар біріктірілген жолды қайтарады.
Бірақ егер A жол болса ( “ Екі қала туралы әңгіме” ) және B бүтін сан ( 27 ), біріктіру үшін амперсанд (&) таңбасын пайдалануыңыз керек.
4182
Ол біріктірілген шығысты қайтарады .
Concat мысалдары Excel бағдарламасындағы жолдар мен айнымалы мәндерді enate VBA (Макро, UDF және UserForm қатысты)
Біз Excel бағдарламасында VBA жолын және айнымалы мәндерін біріктіруді үйрендік . Бұл жолы біз VBA арқылы жол(дар) мен айнымалы(лар)ды біріктіруге қатысты кейбір мысалдарды зерттейміз.
1-мысал: Жол(лар)ды біріктіру үшін макросты әзірлеу және Excel VBA ішіндегі айнымалы(лар)
Біз үйрендікжолдар мен айнымалы мәндерді VBA арқылы біріктіру. Бұл жолы біз жұмыс парағындағы бірнеше бағандардың жолдары мен айнымалы мәндерін біріктіру үшін Макро әзірлейміз.
Мұнда бізде кітап атаулары бар деректер жинағы бар, авторлар және бағалары Мартин кітап дүкені деп аталатын кітап дүкенінің кейбір кітаптары.
Келіңіз, Макро<2 әзірлейік> F4 ұяшығындағы B4:D14 деректер жиынының 1, 2, және 3 бағандарын біріктіру үшін.
VBA коды болады:
⧭ VBA коды:
6861
⧭ Шығыс :
Осы кодты іске қосыңыз. Сіз F4:F14 ауқымында біріктірілген 3 бағандарын аласыз.
Толығырақ оқу: Макрос Excel бағдарламасында бірнеше бағандарды біріктіру (UDF және UserForm көмегімен)
2-мысал: Excel VBA бағдарламасында жол(лар) мен айнымалы(лар)ды біріктіру үшін пайдаланушы анықтайтын функцияны жасау
Деректер жиынының бірнеше бағандарын біріктіру үшін Макро жасауды үйрендік. Бұл жолы Excel бағдарламасында жолдарды немесе айнымалы мәндерді біріктіру үшін Пайдаланушы анықтайтын функция жасаймыз.
Толық VBA коды:
⧭ VBA коды:
3543
⧭ Шығару:
Біріктірілетін бағанды таңдаңыз. диапазонды таңдап, мына формуланы енгізіңіз:
=ConcatenateValues("She","H. Rider Haggard",", ") Ол шығыс ретінде Ше, Х. Райдер Хаггард қайтарады.
Қайтадан формуланы енгізіңіз:
=ConcatenateValues(B4:B14,30,", ") [ Массив формуласы . Сондықтан ұмытпа 365 Office қолданбасында болмасаңыз, CTRL + SHIFT + ENTER пернелерін басыңыз.]
Ол 30 мәнін B4:B14 ауқымының барлық мәндерімен біріктіреді. .
Соңында мынаны енгізіңіз:
=ConcatenateValues(B4:B14,C4:C14,", ") [Қайтадан Массив формуласы . Сондықтан Office 365 қолданбасаңыз, CTRL + SHIFT + ENTER пернелерін басуды ұмытпаңыз.]
Ол B4 ауқымының барлық мәндерін біріктіреді: B14 C4:C14 .
Толығырақ: Excel бағдарламасында біріктіру жолы (3 қолайлы жол)
Ұқсас оқулар:
- Excel бағдарламасында екі немесе одан да көп ұяшықтардағы мәтінді бір ұяшыққа қалай біріктіруге болады (5 әдіс)
- Excel бағдарламасында бір ұяшыққа жолдарды біріктіру
- Excel бағдарламасында сандарды біріктіру (4 жылдам формула)
- Мәтінді біріктіру Excel бағдарламасында (8 қолайлы жол)
- Excel бағдарламасында апострофты біріктіру (6 оңай жол)
3-мысал: Excel VBA бағдарламасындағы басқа жұмыс парағындағы жол (лар) мен айнымалы мәндерді (лар) біріктіру үшін UserForm
Біз Макрос және Пайдаланушы анықтайтын өңдеуді үйрендік функциясы жолдар мен мәндерді біріктіру үшін. Соңында, жолдар мен мәндерді қажетті жұмыс парағының қажетті орнына біріктіру үшін UserForm әзірлейміз.
⧪ 1-қадам: UserForm енгізу
Кірістіру > Жаңа UserForm кірістіру үшін VBA құралдар тақтасындағы UserForm опциясы.
⧪ 2-қадам: сүйреп апару ҚұралдарUserForm
A UserForm UserForm1 деп аталатын Құралдар жинағы Control деп аталатын Құралдар жинағы ашылады.
Тінтуірді th e Құралдар жинағының үстіне жылжытыңыз және UserForm ішіндегі 2 тізім ұясын, 5 мәтін ұясын, 7 белгіні және 1 пәрмен түймелерін сүйреңіз.
Жапсырмалардың дисплейлерін өзгертіңіз суретте көрсетілгендей.
Сол сияқты, Пәрмен түймесі дисплейін OK күйіне өзгертіңіз.
⧪ 3-қадам: TextBox1 үшін код жазу
TextBox1 түймесін екі рет басыңыз. TextBox1_Change деп аталатын Жеке ішкі процедура ашылады. Онда келесі кодты енгізіңіз.
3017
⧪ 4-қадам: TextBox3 үшін код жазу
Сол сияқты, түймесін екі рет басыңыз. TextBox3 . TextBox3_Change деп аталатын басқа Жеке қосалқы процедура ашылады. Онда келесі кодты енгізіңіз.
5397
⧪ 5-қадам: TextBox4 үшін код жазу
Сонымен қатар түймесін екі рет басыңыз. TextBox3 . TextBox3_Change деп аталатын басқа Жеке қосалқы процедура ашылады. Онда келесі кодты енгізіңіз.
4037
⧪ 6-қадам: ListBox2 үшін код жазу
Содан кейін ListBox2 түймесін екі рет басыңыз. . ListBox2_Click деп аталатын Жеке қосалқы процедура ашылғанда, осы кодты сол жерге енгізіңіз.
6613
⧪ 7-қадам: Кодты жазу CommanButton1
Сонымен қатар, CommandButton1 түймешігін екі рет басыңыз. CommandButton1_Change деп аталатын Жеке ішкі процедура -ден кейін ашылады, сол жерге келесі кодты енгізіңіз.
8127
⧪ 7-қадам: UserForm іске қосу үшін код жазу
Қазір соңғы қадам болып табылады. VBA құралдар тақтасынан жаңа Модуль енгізіп, келесі кодты енгізіңіз.
5543
⧪ 8-қадам: Іске қосу UserForm
Сіздің UserForm енді пайдалануға дайын. Оны іске қосу үшін жұмыс парағынан деректер жинағын таңдаңыз ( Тақырыптар қоса) және Run_UserForm деп аталатын Макро іске қосыңыз.
UserForm барлық опциялармен жүктеледі. Таңдалған ауқым мекенжайы TextBox1 ( B3:D4 осы жерде) ішінде көрсетіледі. Қаласаңыз, оны өзгертуге болады. Жұмыс парағындағы таңдалған ауқым өзгереді.
Бағандарды біріктіру Тізім жолағынан біріктіргіңіз келетін бағандарды таңдаңыз. Мұнда мен Кітап атауы және Баға таңдадым.
Бөлгіш енгізіңіз. Мұнда мен үтір ( , ) енгіздім.
Біріктірілген<2 ішінен біріктірілген ауқымды қойғыңыз келетін жұмыс парағының атын таңдаңыз> тізім жолағы. Мұнда мен 3-парақ енгіздім.
(Бетті таңдаған кезде ол белсенді емес болса да белсендіріледі.)
Содан кейін енгізіңіз Шығару орны . Бұл біріктірілген ауқымның бірінші ұяшығының ұяшық сілтемесі. Мұнда мен B3 қойдым.
( Шығу орны тармағына кірген кезде шығыс ауқымы таңдалады).
Соңында , енгізіңіз Шығыс тақырыбының атауы (Шығыс ауқымының тақырыбы). Мұнда мен Біріктірілген диапазон қойдым.
( Шығыс тақырыбы қойған сәтте шығыс бағанының тақырыбы орнатылады.)
OK түймесін басыңыз. Қажетті нәтижені қалаған жерде аласыз.
Толығырақ оқу: VBA көмегімен жол мен бүтін санды қалай біріктіру керек
Қорытынды
Сонымен бұл Excel VBA жолдар мен айнымалы мәндерді біріктіру үшін пайдалануға болатын бірнеше мысалдар. Мысалдар сізге бәрі түсінікті болды деп үміттенемін. Сұрақтарыңыз бар ма? Бізден сұрауға болады. Қосымша жазбалар мен жаңартулар үшін ExcelWIKI сайтымызға кіруді ұмытпаңыз.
