Біз кодтарды іске қосқаннан кейін хабарландыруды көрсету үшін VBA ішінде MsgBox жиі қолданамыз. Кейде бір жол шығысты дұрыс көрсете алмайды. Содан кейін бізге жаңа жолдарды қосу керек. Осы мақаладан Excel VBA көмегімен MsgBox ішіне жаңа жол қосу үшін 6 пайдалы макростарды үйренесіз.

Тәжірибе жұмыс кітабын жүктеп алу

Тегін Excel үлгісін осы жерден жүктеп алып, өз бетінше жаттығуға болады.

6 Excel VBA көмегімен MsgBox жүйесінде жаңа жолды құру мысалдары

1. MsgBox жүйесіне жаңа жол қосу үшін vbNewLine пайдаланыңыз Excel VBA

Мұнда біз vbNewLine VBA макрос ішіне жол қосу үшін қолданамыз. MsgBox. Мен бірінші жолда “ Сәлем! ” және екінші жолда “ ExcelWIKI-ге қош келдіңіз” көрсетемін.

Қадамдар:

• VBA терезесін ашу үшін Alt + F11 пернелер тіркесімін басыңыз.
• Одан кейін түймесін төмендегідей басыңыз. модульді кірістіру: Кірістіру ➤ Модуль .

• Кейінірек оған келесі кодтарды теріңіз-

6704

• Содан кейін параққа артқа оралыңыз және парақшасын ашу үшін түймешігін келесідей басыңыз. Макростар диалогтық терезе: Әзірлеуші ​​➤ Макростар .

• Макросты таңдаңыз кодтарда көрсетілгендей атауы.
• Соңында Орындау түймесін басыңыз.

Енді қараңыз, vbNewLine шығысты екіде көрсетедіжолдар .

Толығырақ оқу: VBA Excel бағдарламасында электрондық поштаның негізгі бөлігінде бірнеше жолдарды жасау үшін (2 әдіс)

2. MsgBox жүйесінде жаңа жол жасау үшін vbCrLf пайдаланыңыз Excel бағдарламасында VBA пайдалану

Енді біз жаңа жолды жасау үшін VBA – vbCrLf басқа тұрақтысын қолданамыз. MsgBox . Ол сонымен қатар екі қатардағы жолдың арасына жаңа жол қосады.

Қадамдар:

• Біріншіден, бірінші әдістің алғашқы екі қадамын орындаңыз. модульді VBA
• одан кейін жазыңыз келесі кодтарды оған-

5027

• Кейін, Макрос тілқатысу терезесін ашу үшін бірінші әдістен төртінші қадамды орындаңыз.
• Таңдаңыз Макрос атауы және Орындау түймесін басыңыз.

Тұрақты vbCrLf <1 қосты>жаңа жол аралық сызығы бар.

Толығырақ оқу: Қалай қосу керек Excel ұяшығындағы жол (5 оңай әдіс)

3. MsgBox ішіне жаңа жол қосу үшін vbLf кірістіру Excel VBA көмегімен

Excel VBA бағдарламасында MsgBox ішіне жаңа жол қосу үшін vbLf басқа тұрақтыны қолданайық.

Қадамдар:

• Модульді VBA ішіне енгізу үшін бірінші әдістен алғашқы екі қадамды орындаңыз
• Кейінірек, келесі кодтарды оған-

8134

• Содан кейін жазыңыз Макрос тілқатысу терезесін ашу үшін бірінші әдістен төртінші қадамды орындаңыз.
• Кейінірек Макрос атауы таңдаңыз.кодтарда айтылғандай және Орындау түймесін басыңыз.

Және көп ұзамай сіз қажетті нәтижені аласыз.

Толығырақ: Excel бағдарламасында CONCATENATE формуласымен жаңа жолды қалай қосуға болады (5 әдіс)

4. Excel бағдарламасында VBA көмегімен MsgBox-та жаңа жолды жасау үшін Chr қолданыңыз

Мұнда біз VBA- Chr(13) & Chr(10) жолдарды қосу үшін.

Қадамдар:

• Бірінші әдістен алғашқы екі қадамды орындаудан бастаңыз модульді VBA
• одан кейін жазу үшін келесі кодтарды оған-

7487

• Одан кейін Бірінші әдістен төртінші қадамды орындап, Макрос тілқатысу терезесін ашыңыз.
• Одан кейін тағайындалған Макрос атауы және Орындау түймесін басыңыз.

Бізде бірдей нәтиже бар екенін қараңыз.

5. Excel VBA бағдарламасында макросқа жаңа жол қосу

Алдыңғы әдістерде біз кодтағы жолды бұзбадық. Мұнда кодтар ішіндегі жолдарды үзіп, қосамыз.

Қадамдар:

• Біріншіден, бірінші әдістің алғашқы екі қадамын орындаңыз. модульді VBA
• Кіру үшін Келесі оған келесі кодтарды жазыңыз-

8844

• Кейінірек Макрос тілқатысу терезесін ашу үшін бірінші әдістен төртінші қадамды орындаңыз.
• Содан кейін жай ғана Макрос атауы таңдап, Орындау түймесін басыңыз.

Қазірқараңыз, макрос жаңа жолды қосты, жолдар арасында бос жолды сақтайды.

Толығырақ: Excel бағдарламасында жол үзілімін қалай жасауға болады (4 әдіс)

6. MsgBox-қа жаңа жолдарды қосу үшін VBA-ны түймені пайдаланып ендіру

Соңғы әдісімізде тапсырманы сәл басқаша орындаймыз. MsgBox ішіне жолдарды қосу үшін түймесін орнатамыз.

6.1 Бір жолға арналған түйме

Біріншіден, біз бір жолды қосу үшін түймені жасайды. Ол үшін Тегі , Мекенжай және Телефон нөмірі енгізу үшін үш ұяшықты білдіретін деректер жиынын жасадым. түймесін басқан кезде, ол ұяшықтарды тексереді және егер бос ұяшықты алса , сол ұяшық үшін хабарды көрсетеді.

• Төмендегідей басыңыз: Әзірлеуші ​​➤ Кірістіру , содан кейін тік бұрышты жолақты<2 таңдаңыз> Пішін басқару элементтері бөлімінен.

• Көп ұзамай сіз плюс белгісі аласыз. курсорды тінтуірдің сол жақ түймешігімен тінтуірмен басыңыз және түйме өлшемін орнату үшін парақтағы сүйреңіз.

• Одан кейін тінтуірдің оң жақ түймешігімен түймешіктегі тінтуір және Мәтінді өңдеу таңдаңыз> түйменің атын орнату үшін контекстік мәзірден .

• <2 теріңіз> Атау және парақтың кез келген жерін басыңыз.

• Тағы тінтуірдің оң жақ түймешігімен >тінтуірді түймесінде және Макрос орнату үшін контекстік мәзірден Макросты тағайындау пәрменін таңдаңыз.

• Осы сәтте Макрос атауын беріп, Жаңа түймесін басыңыз.

• Содан кейін келесі кодтарды –

7080

Кодтың бөлінуін<2 теріңіз>

• Алдымен Ішкі процедураны Біржолды_Түйме жасадым.
• Содан кейін WS айнымалы мәнін <деп жарияладым. 1>Жұмыс парағы .
• Содан кейін ұяшықтарды тексеру үшін үш IF мәлімдемесі пайдаланылды, егер ұяшық мәнмен толтырылса болса, ол оны елемеді. және егер бос ұяшық алса, MsgBox арқылы сәйкес хабарды көрсетеді.

• Кейінірек, жай ғана параққа қайтып және түймесін басыңыз.

Тегі өрісі бос болғандықтан, ол хабарландыру хабарын көрсетеді.

• OK түймесін басыңыз, содан кейін ол екінші өрісті тексереді. .

Екінші өріс де бос , сондықтан ол n қосты ew жолын хабарлау үшін .

Мұнда мен бірінші өрісті толтырдым және түймені басқанмын, оның сол өрісті өткізіп жібергенін және хабарды көрсету үшін екінші өріске секірді.

6.2 Бірнеше жолға арналған түйме

Тағайындау арқылы бұл түймені пайдалансаңыз, хабар терезесіне бір уақытта бірнеше жолды қоса аламыз.

• Біріншіден, алғашқы 6 қадамды орындаңыз.алдыңғы бөлімде түймешік қосу және макрос тағайындау.

• Сосын келесі кодтарды макро-

7796

Кодтың бөлінуі теріңіз>

• Мұнда мен Қосымша процедураны Бірнеше_жолды_түйме жасадым.
• Содан кейін кейбір айнымалы мәндерді WS С ретінде жарияладым. 1>Жұмыс парағы және Тегі_аты , Мекенжай , Телефон , Қате_хабарлама Кейіннен
• Кейінірек пайдаланылған Len және Өрістерді орнату үшін диапазон.
• Соңында өрістердің бос немесе бос еместігін тексеру үшін If операторлары пайдаланылды . Егер ол толтырылса, оны өткізіп жібереді, ал болмаса MsgBox арқылы хабарларды көрсетеді.

• Соңында, жай ғана параққа қайтарыңыз және түймені басыңыз.

Және оның үш өріс үшін үш жолды көрсетіп тұрғанын қараңыз. барлығы бос .

Мен бірінші өрісті толтырдым, енді көрдім, ол тек үшін хабарларды көрсетіп тұр. келесі 2 өріс .

Толығырақ оқу: Excel ұяшығына бірнеше жолдарды қалай қою керек (2 оңай жол)

Қорытынды

Жоғарыда сипатталған процедуралар Excel VBA көмегімен MsgBox жүйесінде жаңа жолды жасау үшін жеткілікті жақсы болады деп үміттенемін. Түсініктеме бөлімінде кез келген сұрақ қойып, маған пікір қалдырыңыз.