كيف يمكن دمج نصوص خلايا متعددة في مربع نص واحد في Excel؟
قد يكون دمج نصوص خلايا متعددة في خلية جديدة باستخدام صيغة أمرًا سهلاً، لكن هل تعرف كيف تدمج قيم خلايا متعددة في مربع نص (عنصر تحكم ActiveX)؟ في الواقع، تُظهر لك هذه المقالة طريقة فعّالة لتحقيق ذلك.
دمج نصوص خلايا متعددة في مربع نص باستخدام كود VBA
دمج نصوص خلايا متعددة في مربع نص باستخدام كود VBA
يمكنك دمج نصوص خلايا متعددة في مربع نص في Excel باستخدام الطريقة أدناه.
1. في ورقة العمل التي تريد دمج خلايا متعددة فيها، أدرج مربع نص بالنقر علىالمطور > إدراج > مربع نص (عنصر تحكم ActiveX). انظر لقطة الشاشة:
2. بعد ذلك، انقر علىالمطور > إدراج > زر الأمر (عنصر تحكم ActiveX)لإدراج زر أمر في ورقة العمل.
3. انقر بزر الماوس الأيمن على زر الأمر المُدرج، ثم اخترعرض الكودمن القائمة المنبثقة. انظر لقطة الشاشة:
4. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، استبدل الكود الأصلي بكود VBA أدناه.
كود VBA: دمج نصوص خلايا متعددة في مربع نص
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End Subملاحظة: CommandButton1 هو اسم زر الأمر المُدرج. يُرجى تعديله حسب احتياجاتك.
5. أوقف وضع التصميم بالنقر علىالمطور > وضع التصميم.
6. حدد الخلايا التي ترغب في دمج نصوصها في مربع نص، ثم انقر على زر الأمر. بعد ذلك، سيتم دمج محتويات جميع الخلايا المحددة فورًا في مربع النص، كما يظهر في لقطة الشاشة أدناه.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيف يمكن جعل Excel يحدد تلقائيًا محتوى مربع النص بمجرد تحديده؟
- كيف يمكن تعبئة مربع النص تلقائيًا أثناء الكتابة في Excel؟
- كيف يمكن مسح محتويات مربع النص تلقائيًا عند النقر عليه في Excel؟
- كيف يمكن تعطيل التحرير في مربع النص لمنع المستخدم من إدخال البيانات في Excel؟
- كيفية تنسيق مربع النص كنسبة مئوية في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل