අපි බොහෝ විට කේත ක්‍රියාත්මක කිරීමෙන් පසු දැනුම්දීම පෙන්වීමට VBA හි MsgBox භාවිතා කරමු. සමහර විට තනි පේළියකට ප්‍රතිදානය නිවැරදිව පෙන්විය නොහැක. එවිට අපි නව පේළි එකතු කරන්න . එබැවින් මෙම ලිපියෙන්, ඔබ Excel VBA භාවිතයෙන් MsgBox තුළ නව රේඛාවක් එක් කිරීමට 6 ප්‍රයෝජනවත් මැක්‍රෝස් ඉගෙන ගනු ඇත.

ප්‍රායෝගික වැඩපොත බාගන්න 5>

ඔබට මෙතැනින් නොමිලේ Excel අච්චුව බාගත කර ඔබටම පුහුණු විය හැක.

MsgBox.xlsm හි නව රේඛාවක් සාදන්න

6 Excel VBA භාවිතයෙන් MsgBox හි නව රේඛාවක් සෑදීමට උදාහරණ

1. Excel VBA භාවිතා කරමින් MsgBox තුළ නව රේඛාවක් එක් කිරීමට vbNewLine භාවිතා කරන්න

මෙහි, අපි හි පේළියක් එක් කිරීමට vbNewLine VBA Macro භාවිතා කරන්නෙමු. MsgBox. මම පළමු පේළියේ “ ආයුබෝවන්! ” සහ දෙවන පේළියේ “ ExcelWIKI වෙත සාදරයෙන් පිළිගනිමු” පෙන්වන්නම්.

පියවර:

• VBA කවුළුව විවෘත කිරීමට Alt + F11 ඔබන්න.
• ඉන්පසු පහත පරිදි ක්ලික් කරන්න මොඩියුලයක් ඇතුළු කරන්න: ➤ මොඩියුලය ඇතුල් කරන්න .

• පසුව, එහි පහත කේතයන් ටයිප් කරන්න-

5346

• ඉන්පසු ආපසු ඔබගේ පත්‍රය ට ගොස් පහත පරිදි ක්ලික් කර විවෘත කරන්න මැක්‍රෝ සංවාද කොටුව: සංවර්ධකයා ➤ මැක්‍රෝස් .

• මැක්‍රෝ තෝරන්න නම කේත හි දක්වා ඇති පරිදි.
• අවසාන වශයෙන්, ධාවනය ඔබන්න.

දැන් බලන්න, vbNewLine ප්‍රතිදානය දෙකකින් පෙන්වයිlines .

වැඩිදුර කියවන්න: VBA එක්සෙල් හි විද්‍යුත් තැපෑල තුළ බහු රේඛා ජනනය කිරීමට (ක්‍රම 2)

2. එක්සෙල් හි VBA භාවිතා කරමින් MsgBox හි නව රේඛාවක් සෑදීමට vbCrLf භාවිතා කරන්න

දැන් අපි නව රේඛාවක් සෑදීමට VBA – vbCrLf හි තවත් නියතයක් භාවිතා කරමු MsgBox . එය අඛණ්ඩ පේළි දෙක අතර නව රේඛාවක් ද එක් කරයි.

පියවර:

• පළමුව, පළමු ක්‍රමයේ සිට පළමු පියවර දෙක අනුගමනය කරන්න VBA
• ට මොඩියුලයක් ඇතුළු කිරීමට ඉන්පසු පහත කේත එහි-

1783

• ඊළඟට, මැක්‍රෝ සංවාද කොටුව විවෘත කිරීමට පළමු ක්‍රමයේ සිට සිව්වන පියවර අනුගමනය කරන්න.
• තෝරන්න. මැක්‍රෝ නම සහ ධාවනය ඔබන්න.

ස්ථාවර vbCrLf <1 එකතු කර ඇත>අලුත් පේළියක් පරතර පේළියක් සමඟද.

තවත් කියවන්න: එකතු කරන්නේ කෙසේද එක්සෙල් සෛලයේ පේළිය (පහසු ක්‍රම 5)

3. Excel VBA භාවිතා කරමින් MsgBox තුළ නව රේඛාවක් එක් කිරීමට vbLf ඇතුළු කරන්න

අපි තවත් නියතයක් භාවිතා කරමු- vbLf එක්සෙල් VBA හි MsgBox හි නව රේඛාවක් එක් කිරීමට.

පියවර:

• VBA තුළ මොඩියුලයක් ඇතුළු කිරීමට පළමු ක්‍රමයේ සිට පළමු පියවර දෙක අනුගමනය කරන්න
• පසුව, එහි පහත කේත ලියන්න-

1310

• ඉන්පසු මැක්‍රෝ සංවාද කොටුව විවෘත කිරීමට පළමු ක්‍රමයේ සිට සිව්වන පියවර අනුගමනය කරන්න.
• පසුව, මැක්‍රෝ නම තෝරන්නකේතයන්හි සඳහන් පරිදි Run ඔබන්න.

ඉක්මනින්ම ඔබට අවශ්‍ය ප්‍රතිදානය ලැබෙනු ඇත.

තවත් කියවන්න: Excel හි CONCATENATE සූත්‍රය සමඟ නව රේඛාවක් එක් කරන්නේ කෙසේද (විධි 5)

4. Excel හි VBA භාවිතයෙන් MsgBox හි නව රේඛාවක් සෑදීමට Chr යොදන්න

මෙහි, අපි VBA හි නියතයන් දෙකක් භාවිතා කරමු- Chr(13) & Chr(10) රේඛා එකතු කිරීමට.

පියවර:

• පළමු ක්‍රමයේ සිට පළමු පියවර දෙක අනුගමනය කිරීමෙන් ආරම්භ කරන්න VBA
• හි මොඩියුලයක් ඇතුළු කිරීමට ඉන්පසු පහත කේත එහි-

5394

ලියන්න

• ඉන් පසුව මැක්‍රෝ සංවාද කොටුව විවෘත කිරීමට පළමු ක්‍රමයේ සිට සිව්වන පියවර අනුගමනය කරන්න.
• ඉන්පසු තෝරන්න assigned Macro name සහ Run ඔබන්න.

බලන්න අපිට එකම ප්‍රතිදානය ලැබී ඇති බව.

5. Excel VBA හි Macro තුළ නව රේඛාවක් එක් කරන්න

පෙර ක්‍රම වලදී, අපි කේතයේ රේඛාව බිඳ දැමුවේ නැත. මෙන්න, අපි කේත තුළ රේඛා බිඳ දමා එකතු කරන්නෙමු.

පියවර:

• පළමුව, පළමු ක්‍රමයේ සිට පළමු පියවර දෙක අනුගමනය කරන්න VBA
• ඊළඟට, මොඩියුලයක් ඇතුළු කිරීමට පහත කේත එහි-

2599

• පසුව, මැක්‍රෝ සංවාද කොටුව විවෘත කිරීමට පළමු ක්‍රමයේ සිට සිව්වන පියවර අනුගමනය කරන්න.
• ඉන්පසු මැක්‍රෝ නාමය තෝරා ධාවනය ඔබන්න.

දැන්බලන්න, මැක්‍රෝ නව පේළියක් එකතු කර ඇත පරතර රේඛාවක් රේඛා අතර තබාගෙන.

තවත් කියවන්න: Excel හි රේඛීය බිඳීමක් කරන්නේ කෙසේද (මාර්ග 4)

6. බොත්තම භාවිතයෙන් MsgBox තුළ නව රේඛා එක් කිරීමට VBA කාවද්දන්න

අපගේ අවසාන ක්‍රමයේදී, අපි කාර්යය ටිකක් වෙනස් ආකාරයකින් කරන්නෙමු. අපි MsgBox තුළ රේඛා එක් කිරීමට බොත්තම සකසන්නෙමු.

6.1 තනි පේළිය සඳහා බොත්තම

මුලින්ම, අපි තනි පේළියක් එකතු කිරීම සඳහා බොත්තමක් සාදනු ඇත. ඒ සඳහා, මම අවසාන නම , ලිපිනය , සහ දුරකථන අංකය ආදානය ලබා දීම සඳහා සෛල තුනක් නියෝජනය කරන දත්ත කට්ටලයක් සාදා ඇත. අපි බොත්තම ක්ලික් කළ විට, එය සෛල පරීක්ෂා කර හිස් කොටුවක් ලැබුණහොත් එවිට එම කොටුව සඳහා පණිවිඩය පෙන්වයි.

• පහත පරිදි ක්ලික් කරන්න: සංවර්ධකයා ➤ ඇතුළු කරන්න ඉන්පසු තෝරන්න සෘජුකෝණාස්‍රාකාර කොටුව Form Controls කොටස වෙතින්.

• ඉක්මනින්, ඔබට plus පිවිසුමක් ලැබෙනු ඇත ඔබගේ කර්සරය, බොත්තම් ප්‍රමාණය සැකසීමට ඔබේ මූසිකය වම්-ක්ලික් කර ඇදගෙන යන්න පත්‍රය .

• ඉන්පසු දකුණු-ක්ලික් කරන්න ඔබේ මූසිකය බොත්තම මත ක්ලික් කර පෙළ සංස්කරණය කරන්න<2 තෝරන්න. බොත්තම නම සැකසීමට සන්දර්භය මෙනුව වෙතින්> නම සහ පත්රයේ ඕනෑම තැනක ක්ලික් කරන්න.

• නැවත දකුණු-ක්ලික් කරන්න ඔබේ <1 බොත්තම මත> මූසිකය සහ මැක්‍රෝ සැකසීමට සන්දර්භය මෙනුව වෙතින් මැක්‍රෝ පවරන්න තෝරන්න.

<3 10>

• ඉන්පසු ටයිප් කරන්න පහත කේත –

7164

කේත බිඳවැටීම

• පළමුව, මම උප ක්‍රියාපටිපාටියක් SingleLine_Button නිර්මාණය කළෙමි.
• ඉන්පසු WS ලෙස විචල්‍යයක් ප්‍රකාශ කළෙමි. 1>වැඩපත්‍රය .
• ඉන්පසු සෛල පරීක්ෂා කිරීමට IF ප්‍රකාශයන් තුනක් භාවිතා කළේය, කොටුව අගයෙන් පිරී තිබේ නම් එවිට එය එය නොසලකා හරිනු ඇත. සහ හිස් කොටුවක් ලැබුණහොත් එවිට අනුරූප පණිවිඩය MsgBox හරහා පෙන්වනු ඇත.

• පසුව, යන්තම් ආපසු ඔබේ පත්‍රය ට ගොස් බොත්තම ක්ලික් කරන්න.

අවසාන නම ක්ෂේත්‍රය හිස් බැවින් එය දැනුම්දීම් පණිවිඩය පෙන්වයි.

• OK ඔබන්න ඉන්පසු එය දෙවන ක්ෂේත්‍රය පරීක්ෂා කරයි .

දෙවන ක්ෂේත්‍රයද හිස්ය ඒ නිසා එය n එකක් එකතු කළා එය දැනුම් දීමට ew රේඛාව .

මෙහි, මම පළමු ක්ෂේත්‍රය පුරවා බොත්තම ක්ලික් කර, එය එම ක්ෂේත්‍රය මඟ හැර ගිය බව බලන්න සහ පණිවිඩය පෙන්වීමට දෙවන ක්ෂේත්‍රය වෙත පැන්නා.

6.2 බහු රේඛා සඳහා බොත්තම

පවරමින් මෙම බොත්තම, අපට පණිවිඩ පෙට්ටිය තුළ එකවර පේළි කිහිපයක් එක් කිරීමට හැකි වනු ඇත.

• පළමුව, පළමු පියවර 6 අනුගමනය කරන්නපෙර කොටස බොත්තමක් එකතු කිරීමට සහ සාර්ව පැවරීමට.

• ඉන්පසු සාර්ව-

7048

කේත බිඳවැටීම පහත පහත කේත ටයිප් කරන්න

• මෙහි, මම උප ක්‍රියාපටිපාටියක් Multiple_Line_Button නිර්මාණය කළෙමි.
• ඉන්පසු සමහර විචල්‍යයන් WS ලෙස ප්‍රකාශ කළෙමි. 1>වැඩ පත්‍රිකාව සහ අවසන්_නම , ලිපිනය , දුරකථනය , දෝෂ_msg ලෙස
• පසුව, භාවිත කළේ <1 ක්ෂේත්‍ර සැකසීමට>Len සහ පරාසය .
• අවසානයේ, ක්ෂේත්‍ර හිස්ද නැද්ද යන්න පරීක්ෂා කිරීමට if ප්‍රකාශන භාවිත කළේය . එය පුරවා ඇත්නම් එය මඟ හරිනු ඇති අතර එසේ නොවේ නම් MsgBox හරහා පණිවිඩ පෙන්වනු ඇත.

• අවසානයේ, නැවත පත්‍රය වෙත සහ බොත්තම ක්ලික් කරන්න.

සහ එය ක්ෂේත්‍ර තුනක් සඳහා පේළි තුනක් පෙන්වන බව බලන්න. සියල්ල හිස් .

මම පළමු ක්ෂේත්‍රය පුරවා ඇත, දැන් බලන්න, එය සඳහා පණිවිඩ පමණක් පෙන්වයි මීළඟ ක්ෂේත්‍ර 2 .

වැඩිදුර කියවන්න: Excel Cell හි බහු රේඛා දමන්නේ කෙසේද (පහසු ක්‍රම 2ක්)

නිගමනය

ඉහත විස්තර කර ඇති ක්‍රියා පටිපාටි Excel VBA භාවිතයෙන් MsgBox හි නව රේඛාවක් සෑදීමට ප්‍රමාණවත් වනු ඇතැයි මම බලාපොරොත්තු වෙමි. අදහස් දැක්වීමේ කොටසේ ඕනෑම ප්‍රශ්නයක් ඇසීමට නිදහස් වන්න සහ කරුණාකර මට ප්‍රතිපෝෂණ ලබා දෙන්න.