كيفية دمج نصوص من خلايا متعددة في مربع نص في Excel؟

قد يكون من السهل عليك دمج نصوص من خلايا متعددة في خلية جديدة باستخدام صيغة. ولكن هل تعرف كيفية دمج قيم خلايا متعددة في مربع نص (ActiveX Control)؟ في الواقع، الطريقة الموجودة في هذه المقالة يمكن أن تساعدك على تحقيق ذلك.

دمج نصوص من خلايا متعددة في مربع نص باستخدام كود VBA

دمج نصوص من خلايا متعددة في مربع نص باستخدام كود VBA

الطريقة أدناه يمكن أن تساعدك على دمج نصوص من خلايا متعددة في مربع نص في Excel.

1. في ورقة العمل التي تريد دمج الخلايا المتعددة فيها، قم بإدراج مربع نص عن طريق النقر فوق Developer > Insert > Text Box (ActiveX Control). انظر لقطة الشاشة:

2. ثم انقر فوق Developer > Insert > Command Button (ActiveX Control) لإدراج زر أمر في ورقة العمل.

3. انقر بزر الماوس الأيمن على زر الأمر الذي تم إدراجه، ثم حدد View Code من قائمة السياق. انظر لقطة الشاشة:

4. في نافذة Microsoft Visual Basic for Applications، يرجى استبدال الكود الأصلي بالكود التالي الخاص بـ 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. أوقف وضع التصميم عن طريق النقر فوق Developer > Design Mode.

6. حدد الخلايا التي تحتاج إلى دمج النصوص فيها في مربع النص، ثم انقر فوق زر الأمر. وبعد ذلك يتم دمج محتويات جميع الخلايا المحددة في مربع النص فورًا كما هو موضح في لقطة الشاشة أدناه.

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

مقالات ذات صلة:

• كيفية تحديد نص مربع نص تلقائيًا عند تحديده في Excel؟
• كيفية إكمال نص مربع نص تلقائيًا عند الكتابة في Excel؟
• كيفية مسح محتويات مربع نص عند النقر عليه في Excel؟
• كيفية تعطيل التحرير في مربع نص لمنع إدخال المستخدم في Excel؟
• كيفية تنسيق مربع نص كنسبة مئوية في Excel؟