انتقل إلى المحتوى الرئيسي

يضيف Excel نصًا ورقمًا في موضع الخلية المحدد

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

التنقلات في هذا البرنامج التعليمي

1. أضف إلى بداية كل خلية

1.1 أضف في بداية الخلايا باستخدام الصيغة

1.2 إضافة في بداية الخلايا عن طريق التعبئة السريعة

1.3 إضافة في بداية الخلايا باستخدام كود فبا

2. أضف إلى نهاية كل خلية

2.1 إضافة في نهاية الخلايا باستخدام الصيغة

2.2 إضافة في نهاية الخلايا عن طريق التعبئة السريعة

2.3 إضافة في نهاية الخلايا باستخدام التعليمات البرمجية لـ VBA

3. أضف إلى منتصف السلسلة

3.1 إضافة بعد الحرف n من السلسلة تلو الأخرى

3.2 أضف بعد الحرف n من السلسلة بواسطة Flash Fill

3.3 إضافة بعد الحرف n من السلسلة باستخدام كود VBA

4. أضف نصًا باستخدام Kutools for Excel (أضف أحرفًا إلى موضع معين حسب حاجتك)

4.1 إضافة نص قبل الحرف الأول أو بعد الحرف الأخير

4.2 إضافة نص في الموضع (المواضع) المحددة

4.3 تمديد الأداة المساعدة إضافة نص

5. أضف نصًا قبل النص المحدد الأول أو بعده

5.1 إضافة نص قبل أول نص محدد

5.2 إضافة نص بعد أول نص محدد

6. أضف حرفًا (أحرف) قبل أو بعد كل كلمة

6.1 أضف حرفًا (أحرف) قبل أو بعد كل كلمة حسب الصيغة

6.2 أضف حرفًا (أحرف) قبل أو بعد كل كلمة عن طريق البحث والاستبدال

6.3 أضف حرفًا (أحرف) قبل أو بعد كل كلمة بواسطة رمز VBA

7. إضافة نص بين الأحرف

7.1 إضافة نص بين كل حرف / رقم مع وظيفة من تحديد المستخدم

7.2 أضف مسافة بين كل رقم مع الصيغة

8. أضف حرفًا (أحرف) بين كل كلمة

9. إضافة الحرف بين النصوص والأرقام

9.1 أضف حرفًا بين النصوص والأرقام بالصيغة

9.2 إضافة حرف بين النصوص والأرقام باستخدام Flash Fill

10. أضف شرطات إلى أرقام الهواتف / الأرقام الاجتماعية

10.1 أضف الشرطات إلى الأرقام حسب الصيغة

10.2 إضافة شرطات إلى الأرقام عن طريق تنسيق الخلايا

10.3 إضافة شرطات إلى رقم الهاتف عن طريق إضافة نص Kutools for Excel

11. أضف الأصفار البادئة إلى الخلايا لتحديد الطول

11.1 إضافة أصفار بادئة إلى الخلايا باستخدام ميزة تنسيق الخلايا

11.2 أضف الأصفار البادئة إلى الخلايا ذات الصيغة

12. أضف الأصفار اللاحقة إلى الأرقام لتحديد الطول

13. إضافة مسافة لاحقة للنص

14. أضف علامات الاقتباس / الأقواس حول النص أو الأرقام

14.1 قم بإضافة أقواس / علامات اقتباس حول تنسيق الخلايا

14.2 أضف علامات الاقتباس / الأقواس حول الصيغ

14.3 أضف علامات الاقتباس / الأقواس حولها بواسطة VBA

15. إضافة نص إلى نتيجة الصيغة مباشرة

ملاحظات

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

عينة وثيقةانقر لتنزيل نموذج الملف


1. أضف إلى بداية كل خلية

يسرد هذا الجزء طرقًا مختلفة لإضافة أحرف إلى بداية كل خلية كما هو موضح أدناه لقطة الشاشة:
إضافة doc في البداية 1

1.1 أضف في بداية الخلايا باستخدام الصيغة


يمكنك هنا اختيار إحدى الصيغ الثلاث التالية:

عامل التشغيل المتسلسل للفورمولا 1 "&"

انضم إلى نصوص متعددة معًا بواسطة حرف العطف "&".

& الخلية

الدالة CONCATENATE Formula2

تُستخدم وظيفة CONCATENATE لربط النصوص معًا.

CONCATENATE ("نص" ، خلية)

دالة CONCAT الخاصة بـ Formula3

هذه وظيفة جديدة تظهر فقط في Excel 2019 و Office 365 و Excel عبر الإنترنت.

CONCAT ("نص" ، خلية)

في الصيغ العامة: الخلية هي مرجع الخلية للنص الذي تريد إضافة بادئة إليه ، والنص هو النص المستخدم للإضافة إلى الخلية.

باستخدام المثال أعلاه ، يمكنك استخدام الصيغ في شريط الصيغة على النحو التالي:

"&"

= E $ 3 & B3 or = "Iphone" & B3

دالة CONCATENATE

= CONCATENATE ($ E $ 3، B3) or = CONCATENATE ("Iphone"، B3)

وظيفة CONCAT

= CONCAT ($ E $ 3، B3) or = CONCAT ("Iphone"، B3)

صحافة أدخل مفتاح للحصول على النتيجة ، ثم اسحب مقبض الملء التلقائي لأسفل لإضافة نص إلى كل خلية من خلايا النطاق B3: B6.
إضافة doc في البداية 1

 انتباه: يجب وضع النص بين علامتي اقتباس أو أن الصيغة ترجع قيمة الخطأ #NAME ؟. إذا كنت تستخدم مرجع الخلية للنص ، فيرجى تذكر استخدام المرجع المطلق ، يمكنك الضغط على المفتاح F4 لتغيير المرجع النسبي إلى المرجع المطلق.

1.2 إضافة في بداية الخلايا عن طريق التعبئة السريعة


إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن الميزة الجديدة القوية ، فلاش فيل، يمكن أن تملأ الخلايا بناءً على الخلايا المذكورة أعلاه التي أدخلتها تلقائيًا.

اختر خلية بجوار البيانات الأصلية الأولى ، اكتب البيانات الأولى يدويًا بنص البادئة كما هو موضح أدناه:
إضافة doc في البداية 1

ثم في الخلية أدناه ، استمر في كتابة البيانات الثانية بنص البادئة أثناء الكتابة ، ستظهر قائمة باللون الرمادي ، اضغط أدخل مفتاح للسماح لـ Flash Fill بملء البيانات تلقائيًا.
إضافة doc في البداية 1إضافة doc في البداية 1

إذا لم يتم إنشاء قائمة المعاينة ، فالرجاء الانتقال إلى علامة التبويب الصفحة الرئيسية ، ثم النقر فوق شغل > فلاش فيل لتشغيله يدويًا.

1.3 إضافة في بداية الخلايا باستخدام كود فبا


إذا كنت معتادًا على التعليمات البرمجية لـ VBA ، هنا يقدم رمز VBA لإضافة نص في بداية كل خلية في نطاق.

1. حدد نطاقًا من الخلايا التي تريد إضافة نص البادئة إليها ، ثم اضغط على قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.
إضافة doc في البداية 1

3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.

فبا: أضف في بداية الخلايا

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub
 انتباه: في نص الكود ، اي فون هو النص الذي تريد إضافته في بداية الخلايا المحددة ، قم بتغييره حسب حاجتك.

إضافة doc في البداية 1

4. صحافة F5 مفتاح أو انقر يجري زر إضافة doc في البداية 1 في النافذة لتنشيط كود فبا.

الآن تمت إضافة جميع الخلايا المحددة النص "Iphone" في البداية.
إضافة doc في البداية 1


2. أضف إلى نهاية كل خلية

باستثناء إضافة نص إلى بداية الخلايا ، فإن إضافة نص إلى نهاية الخلايا أمر شائع أيضًا. هنا نأخذ إضافة وحدة في نهاية كل خلية للحصول على أمثلة كما هو موضح أدناه لقطة الشاشة:
إضافة doc في النهاية 1

2.1 إضافة في نهاية الخلايا باستخدام الصيغة


يمكنك هنا اختيار إحدى الصيغ الثلاث التالية:

عامل التشغيل المتسلسل للفورمولا 1 "&"

انضم إلى نصوص متعددة معًا بواسطة حرف العطف "&".

خلية & "نص"

الدالة CONCATENATE Formula2

تُستخدم وظيفة CONCATENATE لربط النصوص معًا.

CONCATENATE (خلية ، "نص")

دالة CONCAT الخاصة بـ Formula3

هذه وظيفة جديدة تظهر فقط في Excel 2019 و Office 365 و Excel عبر الإنترنت.

CONCAT (الخلية ، "النص")

في الصيغ العامة: الخلية هي مرجع الخلية للنص الذي تريد إضافة لاحقة إليه ، والنص هو النص المستخدم للإضافة إلى الخلية.

باستخدام المثال أعلاه ، يمكنك استخدام الصيغ في شريط الصيغة على النحو التالي:

"&"

= B3 و $ E 3 or = B3 & "Kg"

دالة CONCATENATE

= CONCATENATE (B3، $ E $ 3) or = CONCATENATE (B3، "Kg")

وظيفة CONCAT

= CONCAT (B3، E $ 3) or = CONCAT (B3، "Kg")

صحافة أدخل مفتاح للحصول على النتيجة ، ثم اسحب مقبض الملء التلقائي لأسفل لإضافة نص إلى نهاية كل خلية من النطاق B3: B6.
إضافة doc في النهاية 1

 انتباه: يجب وضع النص بين علامتي اقتباس أو أن الصيغة ترجع قيمة الخطأ #NAME ؟. إذا كنت تستخدم مرجع الخلية للنص ، فيرجى تذكر استخدام المرجع المطلق ، يمكنك الضغط على المفتاح F4 لتغيير المرجع النسبي إلى المرجع المطلق.

2.2 إضافة في نهاية الخلايا عن طريق التعبئة السريعة


إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن الميزة الجديدة القوية ، فلاش فيل، يمكن أن تملأ الخلايا بناءً على الخلايا المذكورة أعلاه التي أدخلتها تلقائيًا.

اختر خلية بجوار البيانات الأصلية الأولى ، اكتب البيانات الأولى يدويًا بنص اللاحقة كما هو موضح أدناه:
إضافة doc في النهاية 1

ثم قم بتنشيط الخلية الموجودة أسفل النتيجة الأولى ، انقر فوق البيانات > فلاش فيل، سيتم ملء جميع الخلايا أدناه بما في ذلك الخلية النشطة تلقائيًا.
إضافة doc في النهاية 1
إضافة doc في النهاية 1

2.3 إضافة في نهاية الخلايا باستخدام التعليمات البرمجية لـ VBA


إليك رمز VBA يمكنه إضافة نص في نهاية كل خلية في نطاق.

1. حدد نطاقًا من الخلايا التي تريد إضافة نص اللاحقة إليها ، ثم اضغط على قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.
إضافة doc في البداية 1

3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.

فبا: إضافة في نهاية الخلايا

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub
انتباه: في نص الكود ، Kg هو النص الذي تريد إضافته في نهاية الخلايا المحددة ، قم بتغييره حسب حاجتك. 

إضافة doc في البداية 1

4. صحافة F5 مفتاح أو انقر يجري زر إضافة doc في البداية 1 في النافذة لتنشيط كود فبا.

الآن تمت إضافة النص "Kg" في نهاية كل خلية.
إضافة doc في البداية 1


3. أضف إلى منتصف السلسلة

بالنسبة لمعظمكم ، تعد إضافة نصوص إلى بداية الخلايا أو نهايتها أمرًا سهلاً ، ولكن إضافة نصوص إلى منتصف الخلايا قد يكون أمرًا صعبًا إلى حد ما. خذ على سبيل المثال ، كما هو موضح أدناه ، إضافة محدد ، مثل النقطتين: في نهاية الحرف الثاني من كل خلية في النطاق B3: B7.
doc إضافة إلى الوسط 1

3.1 إضافة بعد الحرف n من السلسلة تلو الأخرى


فيما يلي أربع صيغ متوفرة لك للتعامل مع هذه الوظيفة ، اختر واحدة لاستخدامها:

Formula1 تجمع بين الدالتين LEFT و RIGHT

LEFT (خلية ، n) & "نص" & يمين (خلية ، LEN (خلية) -n)

Formula2 تجمع بين وظائف CONCATENATE (CONCAT) و RIGHT و LEN

CONCATENATE (LEFT (cell، n)، "text"، RIGHT (cell، LEN (cell) -n))

Or

CONCAT (LEFT (cell، n)، "text"، RIGHT (cell، LEN (cell) -n))

وظيفة استبدال Formula3

REPLACE (الخلية، n + 1، 0، "text")

في الصيغ العامة: الخلية هي مرجع الخلية للنص الذي تريد إضافة نص في المنتصف ، والنص هو النص المستخدم للإضافة إلى الخلية ، n هو الرقم الذي يحدد بعد أي حرف في السلسلة النصية تريد أضف نصًا.

لحل الوظيفة المذكورة أعلاه ، يرجى استخدام الصيغ على النحو التالي:

اجمع بين الوظائف اليمنى واليسرى

= LEFT (B3، 2) & ":" & RIGHT (B3، LEN (B3) -2) or = LEFT (B3، 2) & $ E $ 3 & RIGHT (B3، LEN (B3) -2)

الجمع بين وظائف CONCATENATE (CONCAT) و RIGHT و LEN

= CONCATENATE (LEFT (B3، 2)، ":"، RIGHT (B3، LEN (B3) -2)) or = CONCAT (LEFT (B3، 2)، ":"، RIGHT (B3، LEN (B3) -2))

استبدال وظيفة

= استبدال (B3، 2 + 1، 0، ":") or = استبدال (B3، 2 + 1، 0، $ E $ 3)

صحافة أدخل مفتاح للحصول على النتيجة ، ثم اسحب مقبض الملء التلقائي لأسفل لإضافة نص بعد الحرف الثاني من كل خلية من النطاق B3: B7.
doc إضافة إلى الوسط 1

 انتباه: يجب وضع النص بين علامتي اقتباس أو أن الصيغة ترجع قيمة الخطأ #NAME ؟. إذا كنت تستخدم مرجع الخلية للنص ، فيرجى تذكر استخدام المرجع المطلق ، يمكنك الضغط على المفتاح F4 لتغيير المرجع النسبي إلى المرجع المطلق.

3.2 أضف بعد الحرف n من السلسلة بواسطة Flash Fill


إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن ملف فلاش فيل، يمكن أن تملأ الخلايا بناءً على الخلايا المذكورة أعلاه التي أدخلتها تلقائيًا.

اختر خلية بجوار البيانات الأصلية الأولى ، اكتب البيانات الأولى يدويًا بعلامة النقطتين بعد الحرف الثاني كما هو موضح أدناه:
doc إضافة إلى الوسط 1

ثم قم بتنشيط الخلية الموجودة أسفل النتيجة الأولى ، اضغط على CTRL + E مفاتيح للتنشيط فلاش فيل الأمر ، تم ملء جميع الخلايا أدناه بما في ذلك الخلية النشطة تلقائيًا.
doc إضافة إلى الوسط 1

انتباه: إذا كنت في نظام MAC ، فاضغط على مفاتيح Command + E. 

3.3 إضافة بعد الحرف n من السلسلة باستخدام كود VBA


يمكن لرمز VBA القيام بهذه المهمة أيضًا.

1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.
إضافة doc في البداية 1

3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.

فبا: أضف إلى منتصف الخلايا

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub
انتباه: في نص الكود ، 2 هو الرقم الذي يحدد الموضع الذي تريد إضافة نص بعده ، : هو النص الذي تريد الإضافة إليه ، 3 هو مجموع 2 وطول النص الذي تضيفه. خذ مثالًا آخر ، لإضافة "و" بعد الحرف الأول من السلسلة "AB" ، يجب أن يكون البرنامج النصي Rng.Value = VBA.Left (Rng.Value، 1) & "و & VBA.Mid (Rng.Value ، 4، VBA.Len (Rng.Value) - 1) 

إضافة doc في البداية 1

4. صحافة F5 مفتاح أو انقر يجري زر إضافة doc في البداية 1 في النافذة لتنشيط كود فبا. ينبثق مربع حوار لتحديد الخلايا لإضافة نص.
إضافة doc في البداية 1

5. انقر OK. الآن تمت إضافة النص ":" بعد الحرف الثاني من كل خلية في النطاق B19: B23.
إضافة doc في البداية 1


4. أضف نصًا باستخدام Kutools for Excel (أضف أحرفًا إلى موضع معين حسب حاجتك)

إذا مللت من الصيغ و VBA ، يمكنك تجربة أداة قوية وسهلة الاستخدام ، كوتولس ل إكسيل، والتي يمكن أن تساعدك في إضافة نص ميزة.
doc إضافة نص 1

يمكن لميزة إضافة النص هذه:

  • أضف النص قبل الحرف الأول
  • أضف نصًا بعد الحرف الأخير
  • إضافة نص في المواقف المحددة
  • تمديد
    أضف نصًا قبل الأحرف الكبيرة
    أضف نصًا قبل الأحرف الصغيرة
    أضف نصًا قبل الأحرف الكبيرة / الصغيرة
    أضف نصًا قبل الأحرف الرقمية

انقر للحصول على نسخة تجريبية مجانية مدتها 30 يومًا الآن.

حدد الخلايا التي تريد إضافة نص إليها ، ثم قم بتطبيق إضافة نص بالنقر كوتولس > نص > إضافة نص.
doc إضافة نص 1
4.1 إضافة نص قبل الحرف الأول أو بعد الحرف الأخير


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

انقر التقديم or Ok لإنهاء الإضافة.
doc إضافة نص 1

لإضافة نص بعد الحرف الأخير ، اكتب النص الذي تريد إضافته إلى الخلايا في ملف نص مربع نص ، ثم تحقق بعد آخر حرف في ال الموقع الحالي والقسم الخاص به.
doc إضافة نص 1

انقر التقديم or Ok لإنهاء الإضافة.
doc إضافة نص 1

4.2 إضافة نص في الموضع (المواضع) المحددة


في بعض الأحيان ، قد ترغب في إضافة نص إلى منتصف الخلية ، أو إضافة نص إلى عدة مواضع بالخلية. لنفترض إضافة فاصل "-" بعد الرقمين الثالث والسابع من الأرقام الاجتماعية كما هو موضح أدناه لقطة الشاشة:
doc إضافة نص 1

في مجلة إضافة نص الحوار ، اكتب النص فيه نص مربع نص ، وتحقق تحديد الخيار ، ثم اكتب المواضع باستخدام الفاصلة للفصل في مربع النص ثم انقر فوق Ok or التقديم.
doc إضافة نص 1

4.3 تمديد الأداة المساعدة إضافة نص


إلى جانب إضافة نص إلى المواضع العادية (البداية والنهاية والموضع المحدد) ، فإن ملف إضافة نص الأداة تدعم أيضا لإضافة نص

  • قبل الأحرف الكبيرة
  • قبل الأحرف الصغيرة
  • قبل الأحرف الكبيرة / الصغيرة
  • قبل الأحرف الرقمية

في مجلة إضافة نص الحوار ، اكتب النص فيه نص مربع نص ، وتحقق أضف فقط إلى الخيار ، ثم انقر فوق القائمة المنسدلة أدناه لاختيار العملية التي تريدها.
doc إضافة نص 1
doc إضافة نص 1

باستثناء ميزة إضافة نص ، يحتوي Kutools for Excel على أكثر من 300 ميزة مفيدة يمكن أن تقدم لك خدمة في وظائف Excel المختلفة ، احصل على التنزيل المجاني الآن.


5. أضف نصًا قبل النص المحدد الأول أو بعده

يوفر هذا الجزء صيغًا لإضافة نص قبل أو بعد أول نص محدد ظهر في Excel.

5.1 إضافة نص قبل أول نص محدد


على سبيل المثال ، تريد إضافة نص "(بيع)" قبل النص الأول "السعر" في الخلية كما هو موضح أدناه لقطات الشاشة:
doc إضافة نص 1

في Excel ، يمكن لوظائف REPLACE و SUBSTITUTE حل هذه المهمة.

استبدال وظيفة

REPLACE (خلية، FIND ("find_text"، خلية)، 0، "add_text")

وظيفة الاستبدال

البديل (الخلية ، "find_text" ، "replace_text" ، 1)

في هذه الحالة ، يرجى استخدام الصيغ أعلاه على النحو التالي:

= REPLACE (B4، FIND ("price"، B4)، 0، "(sale)")

Or

= SUBSTITUTE (B4، "price"، "(sale) price"، 1)

حجج الصيغة في هذه الحالة هي

الخلية: B4 ،

Find_text: السعر ،

Add_text: (بيع) ،

Replace_text: السعر (البيع).

صحافة أدخل مفتاح للحصول على نتيجة الإضافة الأولى ، ثم اسحب مقبض الملء التلقائي فوق الخلايا التي تحتاج إلى هذه الصيغة.
doc إضافة نص 1

5.2 إضافة نص بعد أول نص محدد


على سبيل المثال ، تريد إضافة رمز العملة "$" بعد العلامة الأولى ":" في الخلية كما هو موضح أدناه:
doc إضافة نص 1

في Excel ، يمكن لوظائف REPLACE و SUBSTITUTE حل هذه المهمة.

استبدال وظيفة

REPLACE (خلية ، FIND ("find_text" ، خلية) ، find_text_length ، "replace_text")

وظيفة الاستبدال

البديل (الخلية ، "find_text" ، "replace_text")

في هذه الحالة ، يرجى استخدام الصيغ أعلاه على النحو التالي:

= REPLACE (B12، FIND (":"، B12)، 1، ": $")

Or

= الاستبدال (B12، ":"، ": $")

حجج الصيغة في هذه الحالة هي

الخلية: B12 ،

بحث عن نص: :،

Replace_text :: $.

Find_text_length: 1

صحافة أدخل مفتاح للحصول على نتيجة الإضافة الأولى ، ثم اسحب مقبض الملء التلقائي فوق الخلايا التي تحتاج إلى هذه الصيغة.
doc إضافة نص 1


6. أضف حرفًا (أحرف) قبل أو بعد كل كلمة

في هذا الجزء من البرنامج التعليمي ، يقدم ثلاث طرق مختلفة (الصيغة ، Find and Replace ، VBA) لمساعدتك على إضافة أحرف قبل أو بعد كل كلمة في الخلية.

أضف الأحرف قبل كل كلمة 
أضف doc قبل كل كلمة 1
أضف الأحرف بعد كل كلمة
أضف doc قبل كل كلمة 1

6.1 أضف حرفًا (أحرف) قبل أو بعد كل كلمة حسب الصيغة


يمكن استخدام الدالة SUBSTITUTE لحل هذه الوظيفة ، والصيغ العامة على النحو التالي:

أضف قبل كل كلمة

"حرف" & SUBSTITUTE (سلسلة ، "" ، "حرف")

أضف بعد كل كلمة

SUBSTITUTE (سلسلة ، "" ، "حرف") و "حرف"

لنفترض إضافة "+" قبل كل كلمة في قائمة B3: B6 ، يرجى استخدام الصيغة على النحو التالي:

= "+" & الاستبدال (B3، ""، "+")

صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية لأسفل للحصول على جميع النتائج.
أضف doc قبل كل كلمة 1

بافتراض إضافة ($) بعد كل كلمة من القائمة B11: B14 ، يرجى استخدام الصيغة على النحو التالي:

= الاستبدال (B11، ""، "($)") & "($)"

صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية لأسفل للحصول على جميع النتائج.
أضف doc قبل كل كلمة 1

6.2 أضف حرفًا (أحرف) قبل أو بعد كل كلمة عن طريق البحث والاستبدال


إذا كنت ترغب في إضافة أحرف قبل كل كلمة باستثناء الأولى ، أو إضافة أحرف بعد كل كلمة باستثناء آخر لقطة الشاشة الموضحة أدناه ، فإن برنامج Excel المدمج بحث واستبدال يمكن أن تتعامل الأداة مع هذه الوظيفة.

أضف قبل كل كلمة باستثناء الكلمة الأولى
أضف doc قبل كل كلمة 1

أضف بعد كل كلمة باستثناء الكلمة الأخيرة
أضف doc قبل كل كلمة 1

1. حدد الخلايا التي تريد إضافة أحرف قبل كل كلمة أو بعدها ، ثم اضغط CTRL + H مفاتيح لتمكين بحث واستبدال الحوار.

2. اكتب مسافة في ملف تجد ما textbox ، ثم اكتب الأحرف الجديدة بمسافة استبدال textbox ، ثم انقر أخيرًا على ملف استبدال الكل .

عملية العلاجات العامة مثال
أضف الأحرف قبل كل كلمة إضافة أحرف جديدة بعد مسافة أضف (بيع) قبل كل كلمة

أضف doc قبل كل كلمة 1أضف doc قبل كل كلمة 1

عملية العلاجات العامة مثال
أضف الأحرف بعد كل كلمة شخصيات جديدة متبوعة بمسافة أضف - بعد كل كلمة

أضف doc قبل كل كلمة 1أضف doc قبل كل كلمة 1

6.3 أضف حرفًا (أحرف) قبل أو بعد كل كلمة بواسطة رمز VBA

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

1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة فارغة جديدة.
أضف doc قبل كل كلمة 1

3. انسخ والصق رمز VBA أدناه إلى الوحدة النمطية.

أضف قبل كل كلمة

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

أضف بعد كل كلمة

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. صحافة F5 مفتاح لتشغيل التعليمات البرمجية (أو يمكنك النقر فوق يجري زر  إضافة doc في البداية 1 ) ، يظهر مربع حوار ليطلب منك تحديد خلايا مستمرة للعمل ، انقر فوق OK.
أضف doc قبل كل كلمة 1

5. في مربع الحوار المنبثق الثاني ، اكتب الأحرف التي تريد إضافتها ، انقر فوق OK.
أضف doc قبل كل كلمة 1

ثم ستتم إضافة الأحرف في مقدمة أو نهاية كل كلمة.


7. إضافة نص بين الأحرف

في بعض الأحيان ، قد ترغب في إضافة نص بين كل حرف. هنا في هذا الجزء ، يسرد سيناريوهين ، أحدهما لإضافة نص بين كل حرف ، والآخر هو إضافة مسافة بين كل رقم.

7.1 إضافة نص بين كل حرف / رقم مع وظيفة من تحديد المستخدم


لإضافة أحرف بين كل حرف في سلسلة ، يمكن أن تساعدك الوظيفة المعرفة من قبل المستخدم.

في هذه الحالة ، نضيف مسافة بين كل حرف.

1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة فارغة جديدة.
أضف doc قبل كل كلمة 1

3. انسخ والصق رمز VBA أدناه إلى الوحدة النمطية.

أضف نصًا بين الأحرف

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. احفظ الكود وأغلق النافذة للعودة إلى ورقة العمل ، ثم اكتب الصيغة أدناه في الخلية التي تريد وضع نتيجة الإضافة.

= AddText (B3)

B3 هي الخلية التي تحتوي على السلسلة التي تريد إضافة مسافة بين الأحرف.

5. صحافة أدخل للحصول على النتيجة ، اسحب مقبض التعبئة التلقائية فوق الخلايا للحصول على نتائج أخرى حسب حاجتك.
أضف doc قبل كل كلمة 1

 

انتباه:

1 ، في كود فبا ، يمكنك تغيير "" إلى نصوص أخرى حسب حاجتك ، بافتراض تغييرها إلى "-" لإضافة - بين الأحرف.

2 ، الرمز سيضيف النص الجديد بعد كل حرف. يمكنك إزالة آخر نص مضاف إذا لم تكن في حاجة باستخدام الصيغة أدناه. لمزيد من التفاصيل حول الصيغة ، يرجى زيارة:

كيفية إزالة الأحرف N الأولى أو الأخيرة من خلية أو سلسلة في Excإيل؟

LEFT (خلية ، LEN (خلية) - طول_نص)

7.2 أضف مسافة بين كل رقم مع الصيغة


إذا كنت تريد إضافة مسافة بين أرقام سلسلة وهي قيمة رقمية ، يمكنك استخدام الدالة TEXT.

انتباه: يجب أن تكون أرقام النطاق التي تريد إضافة مسافة بينها بنفس الطول ، وإلا فقد تكون بعض النتائج غير صحيحة. 

لنفترض هنا قائمة بالأرقام المكونة من 8 أرقام في النطاق B10: B12 ، يرجى تحديد خلية ستضع النتيجة ، اكتب الصيغة أدناه:

= TEXT (B10، "# # # # # # # #")

صحافة أدخل مفتاح ، ثم اسحب مقبض الملء التلقائي فوق الخلايا الأخرى.
أضف doc قبل كل كلمة 1

إذا كان طول الأرقام 5 ، سيتم تغيير الصيغة إلى = TEXT (B10، "# # # # #").


8. أضف حرفًا (أحرف) بين كل كلمة

إذا كنت ترغب في إضافة حرف (أحرف) بين كل كلمة ، بافتراض إضافة مسافة بين الأسماء الأولى والمتوسطة والأخيرة كما هو موضح أدناه ، يمكنك استخدام وظيفة محددة من قبل المستخدم.
أضف doc قبل كل كلمة 1

1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة فارغة جديدة.

3. انسخ والصق رمز VBA أدناه إلى الوحدة النمطية.

أضف الأحرف بين الكلمات

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. احفظ الكود وأغلق النافذة للعودة إلى ورقة العمل ، ثم اكتب الصيغة أدناه في الخلية التي تريد وضع نتيجة الإضافة.

= AddCharacters (B3)

B3 هي الخلية التي تحتوي على السلسلة التي تريد إضافة مسافة بين الكلمات.

5. صحافة أدخل للحصول على النتيجة ، اسحب مقبض التعبئة التلقائية فوق الخلايا للحصول على نتائج أخرى حسب حاجتك.
أضف doc قبل كل كلمة 1

 انتباه: في كود فبا ، يمكنك تغيير "" إلى نصوص أخرى حسب حاجتك ، بافتراض تغييرها إلى "-" لإضافة - بين الكلمات.

9. إضافة الحرف بين النصوص والأرقام

لإضافة حرف (أحرف) معين بين النصوص والأرقام كما هو موضح أدناه ، تقدم هنا طريقتان.
doc إضافة بين النص والرقم 1

9.1 أضف حرفًا بين النصوص والأرقام بالصيغة


إذا كانت النصوص في مقدمة الأرقام ، فإن الصيغة العامة هي

TRIM (REPLACE (سلسلة، MIN (FIND ({1,2,3,4,5,6,7,8,9,0،1234567890،0،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX}، string & "XNUMX"))، XNUMX، "-"))

باستخدام الحالة أعلاه كمثال ، يرجى استخدام الصيغة على النحو التالي:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية فوق الخلايا الأخرى لملء هذه الصيغة.
doc إضافة بين النص والرقم 1

إذا كانت الأرقام في مقدمة النصوص ، فإن الصيغة العامة هي

LEFT (سلسلة ، SUM (سلسلة) -LEN (SUBSTITUTE (سلسلة ، {0,1,2,3,4,5,6,7,8,9،13،0,1,2,3,4,5,6,7,8,9،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX}، "")))) & "." & RIGHT (سلسلة ، LEN (BXNUMX) - SUM (LEN (سلسلة) -LEN (SUBSTITUTE (سلسلة ، {XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX}، ""))))

باستخدام الحالة أعلاه كمثال ، يرجى استخدام الصيغة على النحو التالي:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية فوق الخلايا الأخرى لملء هذه الصيغة.
doc إضافة بين النص والرقم 1

9.2 إضافة حرف بين النصوص والأرقام باستخدام Flash Fill


إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن ملف فلاش فيل يمكن أن يساعدك أيضًا في إضافة حرف (أحرف) بين النصوص والأرقام.

بجانب البيانات الأصلية ، اكتب البيانات الجديدة التي تمت إضافة الحرف (الأحرف) بين النصوص والأرقام. ثم اضغط على مفتاح Enter للانتقال إلى الخلية التالية من النتيجة الأولى.
doc إضافة بين النص والرقم 1

و اضغط CTRL + E مفاتيح لتمكين Flash Fill.
doc إضافة بين النص والرقم 1

تمديد

يسرد هذا البرنامج التعليمي أيضًا بعض السيناريوهات حول إضافة نص قد نلتقي به في حياتنا اليومية أو عملنا.


10. أضف شرطات إلى أرقام الهواتف / الأرقام الاجتماعية

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

10.1 أضف الشرطات إلى الأرقام حسب الصيغة


فيما يلي صيغتان يمكن أن تضيفا بسرعة شرطات إلى الأرقام. لإضافة شرطات بعد الرقمين الثالث والسادس في الخلية B3 ، الرجاء استخدام الصيغة على النحو التالي:

استبدال وظيفة

= REPLACE (REPLACE (B3,4,0،8,0،XNUMX، "-")، XNUMX،XNUMX، "-")

دالة TEXT

= TEXT (B3، "؟؟؟ - ؟؟؟ - ؟؟؟")

صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية فوق الخلايا الأخرى.
doc إضافة شرطات إلى الأرقام 1

انتباه:

يمكنك تغيير حجج الصيغ أعلاه حسب حاجتك. افترض إضافة "-" بعد الأرقام الثانية والرابعة والسادسة ، يمكنك استخدام الصيغ على النحو التالي:

= REPLACE (REPLACE (REPLACE (B3,3,0،6,0،9,0، "-")، XNUMX،XNUMX، "-")، XNUMX،XNUMX، "-")

= TEXT (B3، "؟؟ - ؟؟ - ؟؟ - ؟؟؟")

 

10.2 إضافة شرطات إلى الأرقام عن طريق تنسيق الخلايا


لإضافة شرطات مباشرة إلى الأرقام الموجودة في الخلايا الأصلية ، يمكنك استخدام امتداد تنسيق الخلايا ميزة.

1. حدد الأرقام التي تريد إضافة شرطات إليها ، ثم اضغط CTRL + 1 مفاتيح لتمكين تنسيق الخلايا الحوار.

2. في ال تنسيق الخلايا الحوار ، تحت رقم الهاتف علامة التبويب، اختر Custom من الفئة والقسم الخاص به.

3. ثم في اليمين النوع قسم اكتب ### - ### - ### في مربع النص ، انقر فوق OK.
doc إضافة شرطات إلى الأرقام 1

الآن تمت إضافة الأرقام المحددة شرطات.
doc إضافة شرطات إلى الأرقام 1

10.3 إضافة شرطات إلى رقم الهاتف عن طريق إضافة نص Kutools for Excel


إذا كان لديك كوتولس ل إكسيل المثبتة في Excel ، فإن إضافة نص ميزة أيضا يمكن أن تفعل لك معروفا.

1. حدد الخلايا التي تحتوي على الأرقام المطلوبة لإضافتها شرطات ، انقر فوق كوتولس > نص > أضف نصًا.
doc إضافة شرطات إلى الأرقام 1

2. في ال إضافة نص الحوار ، اكتب الشرطة أو الفاصل الآخر فيه نص مربع نص ، اختر تحديد الخيار ، ثم اكتب المواضع التي تريد إضافة شرطات بعدها وفصل بينها بفاصلات في مربع النص أدناه.
doc إضافة شرطات إلى الأرقام 1

3. انقر Ok أو تطبيق. ثم تمت إضافة شرطات على الأرقام المحددة.

قم بتنزيل Add Text مجانًا لمدة 30 يومًا للتجربة.


11. أضف الأصفار البادئة إلى الخلايا لتحديد الطول

لنفترض أن هناك قائمة من الأرقام بأطوال مختلفة ، فأنت تريد إضافة أصفار بادئة لجعلها بنفس الطول وتبدو نظيفة كما هو موضح أدناه. فيما يلي طريقتان تم توفيرهما لك للتعامل مع الوظيفة.
doc إضافة أصفار بادئة 1

11.1 إضافة أصفار بادئة إلى الخلايا باستخدام ميزة تنسيق الخلايا


يمكنك استخدام تنسيق الخلايا ميزة لتعيين تنسيق مخصص لإصلاح طول الخلية عن طريق إضافة الأصفار البادئة.

1. حدد الخلايا التي تريد إضافة الأصفار البادئة إليها ، ثم اضغط CTRL + 1 مفاتيح للتمكين تنسيق الخلايا الحوار.

2. في ال تنسيق الخلايا الحوار ، تحت رقم الهاتف علامة التبويب، اختر Custom من الفئة والقسم الخاص به.

3. ثم في اليمين النوع قسم اكتب 0000 في مربع النص (لإصلاح طول الرقم على 4-dight ، اكتب 0000 ، يمكنك تغييره إلى طول آخر ، مثل 5-dight ، اكتب 00000) ، انقر فوق OK.
doc إضافة أصفار بادئة 1

ثم تمت إضافة الأصفار البادئة وبنفس الطول.
doc إضافة أصفار بادئة 1

انتباه: إذا تجاوز طول البيانات الأصلية الطول المحدد ، فسيتم عرض البيانات الأصلية بدون أصفار بادئة.


11.2 أضف الأصفار البادئة إلى الخلايا ذات الصيغة


إذا كنت لا تريد تغيير البيانات الأصلية ، يمكنك استخدام الصيغة لإضافة أصفار بادئة إلى أرقام في مواقع أخرى.

فيما يلي ثلاث وظائف يمكن أن تساعدك.

دالة Formula1 TEXT

TEXT (رقم ، "00…")

دالة Formula2 RIGHT

RIGHT ("00…" & number، length)

دالة Formula3 BASE

BASE (العدد ، 10 ، الطول)

عدد الأصفار في الصيغة يساوي طول الرقم.

هنا قمت بتعيين 4 أرقام بطول الأرقام ، يرجى استخدام الصيغ على النحو التالي:

= TEXT (B10، "0000")

= RIGHT ("0000" & B10,4،XNUMX)

= BASE (B10,10,4،XNUMX،XNUMX)

صحافة أدخل مفتاح واسحب مقبض التعبئة التلقائية لأسفل.
doc إضافة أصفار بادئة 1

انتباه: إذا تجاوز طول البيانات الأصلية الطول المحدد ، فسيتم عرض البيانات الأصلية بدون أصفار بادئة.


12. أضف الأصفار اللاحقة إلى الأرقام لتحديد الطول

إذا كنت ترغب في إضافة أصفار زائدة إلى أرقام لعمل طول ثابت ، بافتراض إضافة أصفار زائدة إلى الأرقام الموجودة في الخلية B3: B7 لجعلها بطول 5 أرقام كما هو موضح أدناه ، يمكنك تطبيق صيغة للتعامل مع الوظيفة .
تضيف الوثيقة أصفارًا زائدة 1

وظيفة REPT

number & REPT ("0"، length-LEN (رقم))

في الصيغة ، تمثل الوسيطة "رقم" الرقم أو مرجع الخلية الذي تريد إضافة أصفار لاحقة إليه ، ووسيطة "الطول" هي الطول الثابت الذي تريده.

الرجاء استخدام الصيغة على النحو التالي:

= B3 & REPT ("0"، 5-LEN (B3))

صحافة أدخل مفتاح واسحب مقبض التعبئة التلقائية لأسفل إلى الخلايا التي تحتاج إلى هذه الصيغة.
تضيف الوثيقة أصفارًا زائدة 1


13. إضافة مسافة لاحقة للنص

إذا كنت ترغب في تصدير البيانات أو نسخها من ورقة عمل إلى مفكرة ، فقد يتم وضع النصوص بشكل غير مرتب لأن قيم الخلية بأطوال مختلفة ، لجعلها تبدو أنيقة كما هو موضح أدناه ، تحتاج إلى إضافة مسافة لاحقة.
doc إضافة مسافة زائدة 1

لحل هذه الوظيفة ، يمكن لوظيفة REPT أن تقدم لك معروفًا.

LEFT (نص و REPT (""، max_length)، max_length)

في الصيغة ، الوسيطة "text" هي النص أو مرجع الخلية الذي تريد إضافة مسافة لاحقة إليه ، والوسيطة "max_length" هي الطول الثابت الذي تريده لإنشاء النصوص ، والذي يجب أن يكون أطول من أو يساوي أقصى طول للنصوص المستخدمة.

لإضافة مسافة زائدة للنصوص في الخلية B3: C6 ، يرجى استخدام الصيغة أدناه:

= LEFT (B3 & REPT (""، 10)، 10)

صحافة أدخل مفتاح ، ثم اسحب مقبض التعبئة التلقائية إلى جميع الخلايا التي تحتاجها هذه الصيغة.

في هذه الحالة ، نظرًا لأن أطول نص مستخدم هو 9 أحرف ، فإننا نستخدم 10 هنا.
doc إضافة مسافة زائدة 1


14. أضف علامات الاقتباس / الأقواس حول النص أو الأرقام

في بعض الأحيان ، تحتاج إلى إضافة علامات اقتباس أو أقواس حول النص أو الأرقام في الخلايا كما هو موضح أدناه ، باستثناء الكتابة اليدوية واحدة تلو الأخرى ، إليك طريقتان في Excel يمكنهما حلها بسرعة.
doc إضافة علامات اقتباس 1

14.1 قم بإضافة أقواس / علامات اقتباس حول تنسيق الخلايا


إذا كنت تريد إضافة علامات اقتباس حول النص في البيانات الأصلية ، فيمكن أن تساعدك ميزة تنسيق الخلايا في Excel.

1. حدد الخلايا التي تريد إضافة علامات الاقتباس إليها ، اضغط على CTRL + 1 مفاتيح لتمكين تنسيق الخلايا الحوار.

2. في ال تنسيق الخلايا الحوار تحت رقم الهاتف علامة التبويب، اختر Custom من قائمة الفئة، ثم انتقل إلى القسم الأيمن للكتابة "" "" @ "" "" في النوع مربع الكتابة. انقر OK.
doc إضافة علامات اقتباس 1

تمت إضافة النص الموجود في الخلايا المحددة بعلامات اقتباس.

إذا كنت تريد إضافة أقواس حول النص ، في مربع نص النوع في مربع حوار تنسيق الخلايا ، استخدم (@).

14.2 أضف علامات الاقتباس / الأقواس حول الصيغ


يمكن أيضًا استخدام الصيغ لإضافة علامات اقتباس إلى نص في خلايا أخرى.

باستخدام والموصل

""""&نص&""""

Or

شار (34) ونص وشار (34)

في هذه الحالة ، اكتب نصًا في الخلية B11 ، يرجى استخدام الصيغ على النحو التالي:

= "" "" & B11 & "" ""

Or

= char (34) & B11 & char (34)

صحافة أدخل مفتاح واسحب مقبض التعبئة التلقائية لأسفل لملء الخلايا.
doc إضافة علامات اقتباس 1

إذا كنت تريد إضافة أقواس حول النص ، فاستخدم الصيغة كـ "("&نص&")".

14.3 أضف علامات الاقتباس / الأقواس حولها بواسطة VBA


إذا كنت بحاجة إلى رمز VBA لحل هذه الوظيفة ، فإليك VBA.

1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.

3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.

فبا: أضف علامات اقتباس حول النصوص

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub
 انتباه: في نص الكود ، "" "& Rng.Value &" "" " يشير إلى إضافة "" حول النصوص ، إذا كنت تريد إضافة أقواس () حول النص ، فقم بتغييره إلى "(" & Rng.Value & ")".

doc إضافة علامات اقتباس 1

4. صحافة F5 مفتاح أو انقر يجري زر doc إضافة علامات اقتباس 1 في النافذة لتنشيط كود فبا. ينبثق مربع حوار لاختيار الخلايا لإضافة علامات اقتباس.
doc إضافة علامات اقتباس 1

5. انقر OK. تمت الآن إضافة علامات الاقتباس حول النصوص الموجودة في الخلايا المحددة.


15. إضافة نص إلى نتيجة الصيغة مباشرة

في بعض الأحيان ، لمساعدة المستخدمين الآخرين على فهم البيانات بشكل أفضل ، قد تحتاج إلى إضافة نص في نتائج الصيغة كما هو موضح أدناه. لتضمين النص في الصيغة ، يمكنك استخدام علامات الاقتباس المحيطة بالنص وإضافة الرابط & لدمج النص والصيغة معًا.
doc إضافة نص في الصيغة 1

الحالة 1 تضيف نصًا قبل الصيغة

"اليوم هو" & TEXT (TODAY () ، "dddd ، mmmm dd.")
doc إضافة نص في الصيغة 1

الحالة 2 تضيف نصًا بعد ذلك معادلة

TEXT (NOW ()، "HH: MM: SS") & "هو الوقت الحالي."
doc إضافة نص في الصيغة 1

الحالة 3 تضيف نصوصًا في جانبين من الصيغة

"تباع اليوم" & البيانات & "كجم".
doc إضافة نص في الصيغة 1


المزيد من دروس Excel:

الجمع بين مصنفات / أوراق عمل متعددة في واحد
هذا البرنامج التعليمي ، يسرد جميع السيناريوهات المجمعة التي قد تواجهها ويوفر لك الحلول المهنية النسبية.

تقسيم خلايا النص والرقم والتاريخ (افصل إلى أعمدة متعددة)
ينقسم هذا البرنامج التعليمي إلى ثلاثة أجزاء: تقسيم الخلايا النصية وخلايا الأرقام المقسمة وخلايا التاريخ المنقسمة. يقدم كل جزء أمثلة مختلفة لمساعدتك في معرفة كيفية التعامل مع وظيفة التقسيم عند مواجهة نفس المشكلة ..

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

قارن بين عمودين للمطابقات والاختلافات في Excel
تتناول هذه المقالة هنا معظم السيناريوهات الممكنة لمقارنة عمودين قد تقابلهما ، ونأمل أن تساعدك.


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations