כיצד לשרשר טקסטים של מספר תאים לתוך תיבת טקסט ב-Excel?
قد يكون من السهل عليك دمج نصوص خلايا متعددة في خلية جديدة باستخدام صيغة. ولكن هل تعرف كيفية دمج قيم خلايا متعددة في مربع نص (ActiveX Control)؟ في الواقع، الطريقة في هذه المقالة يمكن أن تساعدك على تحقيق ذلك.
دمج نصوص خلايا متعددة في مربع نص باستخدام كود VBA
دمج نصوص خلايا متعددة في مربع نص باستخدام كود VBA
الطريقة أدناه يمكن أن تساعدك على دمج نصوص خلايا متعددة في مربع نص في Excel.
1. في ورقة العمل التي تريد دمج الخلايا المتعددة فيها، أدخل مربع نص بالضغط على مطور > إدراج > مربع نص (ActiveX Control). انظر لقطة الشاشة:
2. ثم اضغط على مطور > إدراج > زر أمر (ActiveX Control) لإدراج زر أمر في ورقة العمل.
3. انقر بزر الماوس الأيمن على زر الأمر الذي تم إدراجه، ثم حدد عرض الكود من قائمة السياق. انظر لقطة الشاشة:
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. أوقف وضع التصميم بالضغط على مطور > وضع التصميم.
6. حدد الخلايا التي تحتاج إلى دمج النصوص فيها في مربع نص، ثم اضغط على زر الأمر. وبعد ذلك يتم دمج محتويات جميع الخلايا المحددة فورًا في مربع النص كما هو موضح في لقطة الشاشة أدناه.

פתחו את הקסם של Excel עם Kutools AI
- ביצוע חכם: בצעו פעולות בתאים, ניתוח נתונים ויצירת תרשימים - הכל מונע על ידי פקודות פשוטות.
- נוסחאות מותאמות אישית: צור נוסחאות מותאמות אישית כדי להיעיל את זרימת העבודה שלך.
- תכנות VBA: כתבו והטמיעו קוד VBA ללא מאמץ.
- פרשנות נוסחאות: הבינו נוסחאות מורכבות בקלות.
- תרגום טקסט: שברו את מחסומי השפה בגיליונות הנתונים שלכם.
مقالات ذات صلة:
- كيفية تحديد نص مربع نص تلقائيًا عند تحديده في Excel؟
- كيفية إكمال تلقائي لمربع نص أثناء الكتابة في Excel؟
- كيفية مسح محتويات مربع نص عند النقر عليه في Excel؟
- كيفية تعطيل التحرير في مربع نص لمنع إدخال المستخدم في Excel؟
- كيفية تنسيق مربع نص كنسبة مئوية في Excel؟
כלי הפרודוקטיביות הטובים ביותר ל-Office
שדרג את כישורי ה-Excel שלך עם Kutools for Excel ותחווה יעילות שלא הכרת. Kutools for Excel מציע מעל300 פיצ'רים מתקדמים לשיפור הפרודוקטיביות ולחסוך זמן. לחץ כאן כדי לקבל את הפיצ'ר שהכי נחוץ לך...
Office Tab מביא ממשק טאב ל-Office והופך את העבודה שלך להרבה יותר קלה
- אפשר עריכה וקריאה בטאבים ב-Word, Excel, PowerPoint
- פתח וצור מסמכים מרובים בטאבים חדשים באותו חלון, במקום בחלונות חדשים.
- הגדל את הפרודוקטיביות שלך ב-50% וצמצם מאות קליקים של עכבר בכל יום!