ჩვენ ხშირად ვიყენებთ MsgBox VBA -ში, კოდების გაშვების შემდეგ შეტყობინების საჩვენებლად. ზოგჯერ ერთი ხაზი ვერ აჩვენებს გამოსავალს სწორად. შემდეგ ჩვენ გვჭირდება ახალი ხაზების დამატება . ამრიგად, ამ სტატიიდან თქვენ შეისწავლით 6 სასარგებლო მაკროებს ახალი ხაზის დასამატებლად MsgBox Excel VBA-ის გამოყენებით.

ჩამოტვირთეთ პრაქტიკის სამუშაო წიგნი

შეგიძლიათ ჩამოტვირთოთ Excel-ის უფასო შაბლონი აქედან და ივარჯიშოთ დამოუკიდებლად.

6 მაგალითი MsgBox-ში ახალი ხაზის შესაქმნელად Excel VBA-ის გამოყენებით

1. გამოიყენეთ vbNewLine ახალი ხაზის დასამატებლად MsgBox-ში Excel VBA-ის გამოყენებით

აქ, ჩვენ გამოვიყენებთ vbNewLine VBA მაკროში ხაზის დასამატებლად MsgBox. მე ვაჩვენებ „ გამარჯობა! “ პირველ სტრიქონში და „ მოგესალმებით ExcelWIKI“ მეორე სტრიქონში.

ნაბიჯები:

• დააჭირეთ Alt + F11 , რომ გახსნათ VBA ფანჯარა .
• შემდეგ დააწკაპუნეთ როგორც მოდულის ჩასმა: ჩასმა ➤ მოდული .

• მოგვიანებით აკრიფეთ მასში შემდეგი კოდები-

4275

• შემდეგ დაბრუნდით თქვენს ფურცელზე და დააწკაპუნეთ როგორც შემდეგნაირად გასახსნელად მაკრო დიალოგური ფანჯარა: დეველოპერი ➤ მაკრო .

• აირჩიეთ მაკრო სახელი როგორც მითითებულია კოდებში .
• და ბოლოს, უბრალოდ დააჭირეთ Run .

ახლა შეხედეთ, vbNewLine გვიჩვენებს გამოსავალს ორშიხაზები .

დაწვრილებით: VBA მრავალი ხაზის გენერირებისთვის ელფოსტის ტექსტში Excel-ში (2 მეთოდი)

2. გამოიყენეთ vbCrLf ახალი ხაზის შესაქმნელად MsgBox-ში VBA-ის გამოყენებით Excel-ში

ახლა ჩვენ გამოვიყენებთ სხვა მუდმივას VBA – vbCrLf ახალი ხაზის შესაქმნელად MsgBox . ის ასევე დაამატებს ახალ ხაზს ორ ზედიზედ ხაზს შორის.

ნაბიჯები:

• პირველ რიგში, მიჰყევით პირველ ორ ნაბიჯს პირველი მეთოდიდან მოდულის ჩასასმელად VBA
• შემდეგ ჩაწერეთ შემდეგი კოდები მასში-

2002

• შემდეგ მიჰყევით მეოთხე საფეხურს პირველი მეთოდიდან , რათა გახსნათ მაკრო დიალოგური ფანჯარა .
• აირჩიეთ მაკროს სახელი და დააჭირეთ Run .

მუდმივმა vbCrLf დამატებულია ახალი ხაზი უფსკრული ხაზით ასევე.

დაწვრილებით: როგორ დავამატო ხაზი Excel უჯრედში (5 მარტივი მეთოდი)

3. ჩადეთ vbLf ახალი ხაზის დასამატებლად MsgBox-ში Excel VBA-ის გამოყენებით

მოდით გამოვიყენოთ სხვა მუდმივი- vbLf დავამატოთ ახალი ხაზი MsgBox-ში Excel VBA-ში.

ნაბიჯები:

• მიჰყევით პირველი ორი ნაბიჯის პირველი მეთოდიდან მოდულის ჩასასმელად VBA
• მოგვიანებით, ჩაწერეთ შემდეგი კოდები მასში-

9440

• შემდეგ მიჰყევით მეოთხე საფეხურს პირველი მეთოდიდან მაკრო დიალოგური ფანჯრის გასახსნელად .
• მოგვიანებით აირჩიეთ მაკროს სახელი როგორც მითითებულია კოდებში და დააჭირეთ Run .

და მალე მიიღებთ სასურველ გამომავალს.

დაწვრილებით: როგორ დავამატოთ ახალი ხაზი CONCATENATE ფორმულით Excel-ში (5 გზა)

4. გამოიყენეთ Chr ახალი ხაზის შესაქმნელად MsgBox-ში VBA-ის გამოყენებით Excel-ში

აქ ჩვენ გამოვიყენებთ VBA-ის ორ მუდმივას- Chr(13) & Chr(10) ხაზების დასამატებლად.

ნაბიჯები:

• დაიწყეთ პირველი ორი ნაბიჯის მიყოლებით პირველი მეთოდიდან მოდულის ჩასასმელად VBA
• შემდეგ ჩაწერეთ შემდეგი კოდები მასში-

7513

• ამის შემდეგ მიჰყევით მეოთხე საფეხურს პირველი მეთოდიდან რომ გახსნათ მაკრო დიალოგური ფანჯარა .
• შემდეგ აირჩიეთ მიენიჭა მაკროს სახელი და დააჭირეთ Run .

ნახეთ, რომ იგივე გამომავალი გვაქვს.

5. დაამატეთ ახალი ხაზი მაკროში Excel VBA-ში

წინა მეთოდებში ჩვენ არ ვწყვეტდით ხაზს კოდში. აქ ჩვენ ვარღვევთ და დავამატებთ ხაზებს კოდების შიგნით.

ნაბიჯები:

• პირველ რიგში, მიჰყევით პირველ ორ ნაბიჯს პირველი მეთოდიდან მოდულის ჩასასმელად VBA
• შემდეგ, ჩაწერეთ შემდეგი კოდები მასში-

3340

• მოგვიანებით, მიჰყევით მეოთხე საფეხურს პირველი მეთოდიდან რომ გახსნათ მაკრო დიალოგური ფანჯარა .
• შემდეგ უბრალოდ აირჩიეთ მაკროს სახელი და დააჭირეთ გაშვება .

ახლანახეთ, რომ მაკრო -მა დაამატა ახალი ხაზი ხაზებს შორის უფსკრული ხაზის შენახვით .

დაწვრილებით: როგორ გავაკეთოთ ხაზის გაწყვეტა Excel-ში (4 გზა)

6. ჩადეთ VBA ახალი ხაზების დასამატებლად MsgBox-ში ღილაკის გამოყენებით

ჩვენი ბოლო მეთოდით, ჩვენ დავასრულებთ ცოტა სხვაგვარად. ჩვენ დავაყენებთ ღილაკს MsgBox -ში ხაზების დასამატებლად.

6.1 ღილაკი ერთი ხაზისთვის

პირველ რიგში, ჩვენ გავაკეთებ ღილაკს ერთი ხაზის დასამატებლად. ამისათვის მე შევქმენი მონაცემთა ნაკრები, რომელიც წარმოადგენს სამ უჯრედს, რათა შეიყვანოთ გვარი , მისამართი და ტელეფონის ნომერი . როდესაც ჩვენ დავაჭერთ ღილაკს , ის შეამოწმებს უჯრედებს და თუ ცარიელ უჯრედს მიიღებს მაშინ გვიჩვენებს შეტყობინებას ამ უჯრედისთვის.

• > ფორმის მართვის განყოფილებიდან .

• მალე, თქვენ მიიღებთ პლუს შესვლას თქვენი კურსორი, დააწკაპუნეთ მაუსის მარცხენა ღილაკით თქვენს მაუსის და ჩაათრიეთ ფურცელზე ღილაკის ზომის დასაყენებლად.

• შემდეგ დააწკაპუნეთ მარჯვენა ღილაკით თქვენს მაუსის ღილაკზე და აირჩიეთ ტექსტის რედაქტირება კონტექსტური მენიუდან ღილაკის სახელის დასაყენებლად .

• აკრიფეთ დაასახელეთ და დააწკაპუნეთ ფურცელზე ნებისმიერ ადგილას.

• ხელახლა დააწკაპუნეთ მარჯვენა ღილაკით თქვენს მაუსი ღილაკზე და აირჩიეთ მინიჭება მაკრო კონტექსტური მენიუდან მაკრო დასაყენებლად.

• ამ მომენტში, მიუთითეთ მაკრო სახელი და დააჭირეთ ახალი .

• შემდეგ აკრიფეთ შემდეგი კოდები –

7328

კოდების დაშლა

• პირველ რიგში, შევქმენი ქვეპროცედურა SingleLine_Button .
• შემდეგ გამოვაცხადე ცვლადი WS როგორც სამუშაო ფურცელი .
• შემდეგ გამოიყენეთ სამი IF წინადადება უჯრედების შესამოწმებლად, თუ უჯრედი ივსება მნიშვნელობით მაშინ უგულებელყოფს მას და თუ მიიღებს ცარიელ უჯრედს მაშინ გამოჩნდება შესაბამისი შეტყობინება MsgBox -ის მეშვეობით.

• მოგვიანებით, უბრალოდ დაბრუნდით თქვენს ფურცელზე და დააწკაპუნეთ ღილაკზე .

რადგან გვარი ველი ცარიელია, ამიტომ ის აჩვენებს შეტყობინების შეტყობინებას.

• დააჭირეთ OK და შემდეგ შეამოწმებს მეორე ველს. .

მეორე ველიც ცარიელია ამიტომ დაამატა n ის სტრიქონი, რომ შეატყობინოთ .

აქ, მე შევავსე პირველი ველი და დავაწკაპუნე ღილაკზე და ვხედავ, რომ მან გამოტოვა ეს ველი და გადახტა მეორე ველზე შეტყობინების საჩვენებლად.

6.2 ღილაკი მრავალი ხაზისთვის

მინიჭებით ამ ღილაკით, ჩვენ შევძლებთ რამდენიმე ხაზის ერთდროულად დამატებას შეტყობინების ველში.

• პირველ რიგში, მიჰყევით პირველ 6 ნაბიჯსწინა განყოფილება დაამატეთ ღილაკი და მიანიშნეთ მაკრო .

• შემდეგ აკრიფეთ შემდეგი კოდები მაკრო-

2104

კოდების დაყოფა

• აქ შევქმენი ქვეპროცედურა Multiple_Line_Button .
• შემდეგ გამოვაცხადე რამდენიმე ცვლადი WS როგორც სამუშაო ფურცელი და გვარი , მისამართი , ტელეფონი , შეცდომის_მიგზავნა როგორც
• მოგვიანებით გამოყენებული Len და Range ველების დასაყენებლად.
• საბოლოოდ, გამოყენებულია If წინადადებები , რათა შეამოწმოს ველები ცარიელია თუ არა . თუ ის შევსებულია, გამოტოვებს და თუ არა, გამოჩნდება შეტყობინებები MsgBox -ის მეშვეობით.

• და ბოლოს, უბრალოდ დაბრუნდით ფურცელზე და დააწკაპუნეთ ღილაკზე .

და ნახეთ, რომ ნაჩვენებია სამი ხაზი სამი ველისთვის როგორც ისინი ყველა ცარიელია .

მე შევავსე პირველი ველი და ახლა ნახეთ, ის აჩვენებს მხოლოდ შეტყობინებებს -ისთვის შემდეგი 2 ველი .

წაიკითხეთ მეტი: როგორ ჩავდოთ მრავალი ხაზი Excel უჯრედში (2 მარტივი გზა)

დასკვნა

ვიმედოვნებ, ზემოთ აღწერილი პროცედურები საკმარისად კარგი იქნება MsgBox-ში ახალი ხაზის შესაქმნელად Excel VBA-ს გამოყენებით. მოგერიდებათ დასვით ნებისმიერი შეკითხვა კომენტარების განყოფილებაში და გთხოვთ გამომიხმაუროთ.