نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية إضافة / إدراج حرف معين كل حرف x في الخلايا؟

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

إدراج حرف معين كل حرف x في الخلية مع التعليمات البرمجية فبا

إدراج حرف معين كل حرف x في الخلية مع كوتولس ل إكسيل

دوك إدراج كل حرف x شنومكس


إضافة حرف معين قبل / بعد / موقف معين من سلسلة نصية:

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

دوك إدراج كل حرف x شنومكس

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


إدراج حرف معين كل حرف x في الخلية مع التعليمات البرمجية فبا


يمكنك تطبيق التعليمات البرمجية فبا التالية لإدراج حرف معين بعد كل أربعة أحرف في الخلايا، يرجى القيام على النحو التالي:

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة او شباك.

رمز فبا: إدراج حرف معين كل حرف x في الخلية

Sub InsertCharacter()
'Updateby20150813
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز، وسوف مربع موجه يخرج لتذكيرك لتحديد مجموعة البيانات التي تريد إدراج حرف معين داخل سلاسل النص، انظر الصورة:

دوك إدراج كل حرف x شنومكس

4. وانقر OK، في المربع الفوري التالي، يرجى إدخال الرقم الذي تريد إدراج حرف معين كل بعد، انظر قطة:

دوك إدراج كل حرف x شنومكس

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

دوك إدراج كل حرف x شنومكس

6. انقر OK زر، واختيار خلية واحدة حيث تريد إخراج النتيجة في مربع المطالبة، انظر قطة:

دوك إدراج كل حرف x شنومكس

7. أخيرا، انقر فوق OK، وقد تم إدراج حرف معين في كل سلسلة النص كل أربعة أحرف، انظر الصورة:

دوك إدراج كل حرف x شنومكس


إدراج حرف معين كل حرف x في الخلية مع كوتولس ل إكسيل

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد إدراج حرف معين به.

2. ثم اضغط Kutools > نصي > إضافة نص، انظر الصورة:

دوك إدراج كل حرف x شنومكس شنومكس

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

دوك إدراج كل حرف x شنومكس

نصائح: هنا اكتب شينومكس في مربع النص تحديد والتي تشير إلى إدراج النص المحدد بعد أحرف نومكست و شنومكست و شنومكست من السلسلة النصية.

4. ثم اضغط Ok or تطبيق ، تم إدراج الحرف المحدد في قيم الخلية في مواضع معينة.

دوك إدراج كل حرف x شنومكس  2 دوك إدراج كل حرف x شنومكس

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

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


عرض: إدراج حرف معين كل حرف x في الخلية مع كوتولس ل إكسيل

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


Kutools لـ Excel - أفضل أداة إنتاجية في Office تزيد من إنتاجيتك بنسبة 80٪

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John · 1 months ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios