Note: The other languages of the website are Google-translated. Back to English

كيفية إضافة سلاسل من النص إلى خلايا متعددة في إكسيل؟

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

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعة أضف نصًا محددًا إلى خلايا متعددة في Excel باستخدام VBA

يمكن أن يسهل استخدام VBA عملنا وإضافة نص محدد في خلايا متعددة دون نسخ ولصق.

خطوة 1: حدد الخلايا التي ستضيف فيها النص المحدد.

الخطوة شنومكس: اضغط باستمرار ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

الخطوة شنومك: انقر إدراج >> وحدة، ولصق الماكرو التالي في نافذة الوحدة النمطية.

Sub Add2Formula ()
أضف نصًا

لكل ج في التحديد
ج- التنشيط
ActiveCell.FormulaR1C1 = "اختبار -" & ActiveCell.Formula
التالي ج

نهاية الفرعية

الخطوة شنومك: اضغط على F5 مفتاح لتشغيل هذا الماكرو.

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


السهم الأزرق الحق فقاعة أضف نصًا محددًا إلى خلايا متعددة في Excel باستخدام Kutools for Excel

بالنسبة لمستخدمي Microsoft Excel الشائعين ، قد لا نكون على دراية بـ VBA. بالتناوب ، فإن كوتولس ل إكسيليمكن أن تساعدنا أداة إضافة نص في إضافة نص أو سلاسل معينة في خلايا متعددة بسرعة وسهولة.

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. احصل عليه الآن

الخطوة 1: حدد الخلايا التي ستضيف فيها النص المحدد.

الخطوة شنومك: انقر فوق كوتولس > أدوات النص > إضافة نص .... انظر لقطة الشاشة:

الخطوة 3: في ملف إضافة نص في مربع الحوار ، أدخل النص والأحرف المحددة في قسم النص.

الخطوة 4: تحقق من الموضع الذي ستضيف فيه النص المحدد في ملف الموقع الحالي الجزء. (ملاحظة: إذا كنت تريد إدخال النص في موضع محدد ، يرجى التحقق تحديد وحدد الموضع.) انظر لقطة الشاشة:

الخطوة شنومك: انقر OK or قم بالمشاركة.

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


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


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (4)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أمر فرعي خاص
عند معالج الخطأ GoTo:
Dim objRange1 كنطاق
خافت wk كمصنف

قم بإعداد النطاقات


قم بتعيين objRange1 = Range ("A22: A51")


objRange1.TextToColumns ، الوجهة: = Sheet1.Range ("Z1") ، _
نوع البيانات: = xlDelimited ، _
علامة التبويب: = خطأ ، _
الفاصلة المنقوطة: = خطأ _
فاصلة: = خطأ _
مسافة: = خطأ ، _
أخرى: = صحيح ، _
OtherChar: = "|"
خافت rn كسلسلة
خافت rn1 كسلسلة
خافت rn2 كسلسلة
ممثل خافت كسلسلة
خافت الدقة كسلسلة
rep = "هل تريد نسخ القيم؟"
res = MsgBox (rep، vbQuestion + vbYesNo، "؟؟؟")
إذا الدقة = vbYes ثم

rn = InputBox ("أدخل النطاق لنسخ معرف الدائرة")
الأوراق ("Sheet1"). Range ("AH1: AH10"). وجهة القطع: = Sheets ("Sheet2"). Range (rn)
MsgBox ("تم لصق معرّف الدائرة بنجاح")
rn1 = InputBox ("أدخل النطاق لنسخ مرجع الطلب")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox ("تم لصق مرجع الطلب بنجاح")
rn2 = InputBox ("أدخل النطاق لنسخ اسم المخزون")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox ("تم لصق المخزون بنجاح")
أوراق ("sheet1"). Range ("Z1: AM10"). ClearContents
أوراق ("sheet2"). تنشيط
آخر
MsgBox ("شكرًا لك")
إنهاء حالة
معالج الأخطاء:
MsgBox ("لقد نقرت على إلغاء bitton")
الورقة 1.Activate
نهاية الفرعية


أمر فرعي خاص
Sheet1.Range ("A10: A32"). ClearContents
نهاية الفرعية







إنه يعمل ، لكن لا بد لي من إضافة نص في خلية واحدة. الرجاء مساعدتي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد إضافة حرف واحد قبل وبعد. الرجاء المساعدة .. أرسل لي cpk.adm@gmail.com
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت بحاجة إلى إضافة قيم إلى نص مثل: "نص" القيمة E12 "نص" القيمة E12 "نص" valueE12 هل من الممكن؟ بحاجة إلى تحسين محركات البحث
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية إضافة خلايا متعددة ومقارنتها بخلية واحدة ، بحيث تتغير الخلية الواحدة مقارنة بالقيمة ديناميكيًا. على سبيل المثال مجموع العمود وأنت تضيف قيمًا في العمود ثم يتغير المجموع ديناميكيًا.

شكرا لكم مقدما.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL