Tabl cynnwys
Rydym yn aml yn defnyddio MsgBox yn VBA i ddangos yr hysbysiad ar ôl rhedeg y codau. Weithiau ni all llinell sengl ddangos yr allbwn yn iawn. Yna mae angen ychwanegu llinellau newydd . Felly o'r erthygl hon, byddwch yn dysgu 6 Macros defnyddiol i ychwanegu llinell newydd yn MsgBox gan ddefnyddio Excel VBA.
Lawrlwytho Llyfr Gwaith Ymarfer
Gallwch lawrlwytho'r templed Excel rhad ac am ddim yma ac ymarfer ar eich pen eich hun.
Creu Llinell Newydd yn MsgBox.xlsm
>6 Enghraifft i Greu Llinell Newydd yn MsgBox Gan Ddefnyddio Excel VBA
1. Defnyddiwch vbNewLine i Ychwanegu Llinell Newydd yn MsgBox Gan ddefnyddio Excel VBA
Yma, byddwn yn defnyddio vbNewLine yn VBA Macro i ychwanegu llinell yn MsgBlwch. Byddaf yn dangos “ Helo! ” yn y llinell gyntaf a “ Croeso i ExcelWIKI” yn yr ail linell.
Camau:
- Pwyswch Alt + F11 i agor y ffenestr VBA .
- Yna cliciwch fel a ganlyn i mewnosod modiwl: Mewnosod ➤ Modiwl .
- Yn ddiweddarach, teipiwch y codau canlynol ynddo-
7282
>
0> Edrychwch nawr, mae vbNewLine yn dangos yr allbwn mewn daullinellau .
Darllen Mwy: VBA i Gynhyrchu Llinellau Lluosog mewn Corff E-bost yn Excel (2 Ddull)
2. Defnyddiwch vbCrLf i Greu Llinell Newydd yn MsgBox Gan ddefnyddio VBA yn Excel
Nawr byddwn yn defnyddio cysonyn arall o VBA – vbCrLf i greu llinell newydd yn MsgBlwch . Bydd hefyd yn ychwanegu llinell newydd rhwng y ddwy linell olynol.
Camau:
- Yn gyntaf, dilynwch y ddau gam cyntaf o'r dull cyntaf i fewnosod modiwl yn y VBA
- Yna ysgrifennwch y codau canlynol ynddo-
8545
- Nesaf, dilynwch y pedwerydd cam o'r dull cyntaf i agor y blwch deialog Macro .
- Dewiswch yr Enw Macro a phwyswch Rhedeg .
Mae'r cysonyn vbCrLf wedi ychwanegu llinell newydd gyda llinell fwlch hefyd.
Darllen Mwy: Sut i Ychwanegu a Llinell mewn Cell Excel (5 Dull Hawdd)
3. Mewnosod vbLf i Ychwanegu Llinell Newydd yn MsgBox Gan Ddefnyddio Excel VBA
Gadewch i ni ddefnyddio cysonyn arall- vbLf i ychwanegu llinell newydd yn MsgBox yn Excel VBA.
Camau:
- Dilynwch y ddau gam cyntaf o'r dull cyntaf i fewnosod modiwl yn y VBA
- Yn ddiweddarach, ysgrifennwch y codau canlynol ynddo-
2938
- Yna dilynwch y pedwerydd cam o'r dull cyntaf i agor y blwch deialog Macro .
- Yn ddiweddarach, dewiswch yr Enw Macro fel y crybwyllwyd yn y codau a phwyswch Rhedeg .
Ac yn fuan wedyn fe gewch yr allbwn a ddymunir.
24>
Darllen Mwy: Sut i Ychwanegu Llinell Newydd gyda Fformiwla CONCATENATE yn Excel (5 Ffordd)
4. Cymhwyso Chr i Greu Llinell Newydd yn MsgBox Gan ddefnyddio VBA yn Excel
Yma, byddwn yn defnyddio dau gysonyn o VBA- Chr(13) & Chr(10) i ychwanegu llinellau.
Camau:
- Dechrau gyda dilyn y ddau gam cyntaf o'r dull cyntaf i fewnosod modiwl yn y VBA
- Yna ysgrifennwch y codau canlynol ynddo-
5763
- Ar ôl hynny dilynwch y pedwerydd cam o'r dull cyntaf i agor y blwch deialog Macro .
- Yna dewiswch y wedi'i aseinio Enw Macro a phwyswch Rhedeg .
Gweler ein bod wedi cael yr un allbwn.
5. Ychwanegu Llinell Newydd o fewn y Macro yn Excel VBA
Yn y dulliau blaenorol, ni wnaethom dorri'r llinell yn y cod. Yma, byddwn yn torri ac yn ychwanegu llinellau o fewn y codau.
Camau:
- Yn gyntaf, dilynwch y ddau gam cyntaf o'r dull cyntaf i fewnosod modiwl yn y VBA
- Nesaf, ysgrifennwch y codau canlynol ynddo-
5224
- Yn ddiweddarach, dilynwch y pedwerydd cam o'r dull cyntaf i agor y blwch deialog Macro .
- Yna dewiswch Enw Macro a gwasgwch Rhedeg .
Nawrgweld, bod macro wedi ychwanegu llinell newydd gan gadw llinell fwlch rhwng y llinellau.
Darllen Mwy: Sut i Wneud Toriad Llinell yn Excel (4 Ffordd)
6. Mewnosod VBA i Ychwanegu Llinellau Newydd yn MsgBox Gan Ddefnyddio Botwm
Yn ein dull olaf un, byddwn yn gwneud y dasg mewn ffordd ychydig yn wahanol. Byddwn yn gosod botwm i ychwanegu llinellau yn MsgBox .
6.1 Botwm ar gyfer Llinell Sengl
Yn gyntaf, rydym yn Bydd yn gwneud botwm ar gyfer ychwanegu llinell sengl. Ar gyfer hynny, rwyf wedi gwneud set ddata sy'n cynrychioli tair cell i roi mewnbwn Enw Diwethaf , Cyfeiriad , a Rhif ffôn . Pan fyddwn yn clicio ar y botwm , bydd yn gwirio'r celloedd ac os caiff gell wag yna bydd yn dangos y neges ar gyfer y gell honno.
0>
- Yn fuan wedyn, byddwch yn cael arwydd plws i mewn eich cyrchwr, cliciwch ar y chwith eich llygoden a llusgwch ar y ddalen i osod maint y botwm .
- Yna de-gliciwch eich llygoden ar y botwm a dewiswch Golygu Testun o ddewislen cyd-destun i osod enw'r botwm .
- Math>yr Enw a chliciwch unrhyw le ar y ddalen.
- Eto cliciwch ar y dde eich llygoden ar y botwm a dewiswch Aseinio Macro o'r ddewislen cyd-destun i osod Macro .
10>
- Yna teipiwch y codau canlynol –
1598
Dadansoddiad Cod<2
- Yn gyntaf, creais Is-weithdrefn SingleLine_Button .
- Yna datganais newidyn WS fel Taflen waith .
- Yna defnyddio tri datganiad IF i wirio'r celloedd, os yw'r gell wedi'i llenwi â gwerth yna bydd yn ei hanwybyddu ac os yn cael cell wag yna bydd yn dangos y neges gyfatebol trwy MsgBox .
- Yn ddiweddarach, dim ond ewch yn ôl i'ch dalen a cliciwch y botwm .
Gan fod y maes Enw Diwethaf yn wag dyna pam ei fod yn dangos y neges hysbysu.
- Pwyswch OK ac yna bydd yn gwirio'r ail faes .
Mae ail faes yn wag hefyd felly ychwanegodd n ew line i'w hysbysu .
Yma, llenwais y maes cyntaf a chlicio ar y botwm, a gweld ei fod wedi hepgor y maes hwnnw a neidio i'r ail faes i ddangos y neges.
6.2 Botwm ar gyfer Llinellau Lluosog
Trwy aseinio y botwm hwn, byddwn yn gallu ychwanegu llinellau lluosog ar y tro yn y blwch neges.
- Yn gyntaf, dilynwch y 6 cham cyntaf o'radran flaenorol i ychwanegu botwm ac aseinio macro .
3372
Dadansoddiad Cod<2
- Yma, creais Is-weithdrefn Multiple_Line_Button .
- Yna datganais rai newidynnau WS Fel 1>Taflen waith a Olaf_Enw , Cyfeiriad , Ffôn , Gwall_msg Fel
- Yn ddiweddarach, defnyddiwyd >Len a Amrediad i osod y meysydd.
- Yn olaf, defnyddiwch Os datganiadau i wirio a yw y meysydd yn wag ai peidio . Os yw wedi'i lenwi bydd yn ei hepgor ac os na, bydd yn dangos negeseuon trwy MsgBox .
- Yn olaf, dim ond dychwelwch i'r ddalen a cliciwch y botwm .
A gwelwch ei fod yn dangos tair llinell ar gyfer y tri maes fel y maent i gyd yn wag .
Llenwais y maes cyntaf a nawr gwelwch, dim ond negeseuon ar gyfer y mae'n eu dangos 2 faes nesaf .
Darllen Mwy: Sut i Roi Llinellau Lluosog yn Excel Cell (2 Ffordd Hawdd)
Casgliad
Gobeithiaf y bydd y gweithdrefnau a ddisgrifir uchod yn ddigon da i greu llinell newydd yn MsgBox gan ddefnyddio Excel VBA. Mae croeso i chi ofyn unrhyw gwestiwn yn yr adran sylwadau a rhowch adborth i mi.