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

كيفية إدخال مسافات قبل الأحرف الكبيرة في Excel؟

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


أدخل مسافات قبل الأحرف الكبيرة باستخدام الوظيفة المحددة بواسطة المستخدم

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

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

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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

رمز فبا: أدخل مسافات قبل الأحرف الكبيرة

Function AddSpaces(pValue As String) As String
'Update 20140723
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
AddSpaces = xOut
End Function

4. ثم احفظ وأغلق هذا الرمز ، عد إلى ورقة العمل ، وأدخل هذه الصيغة = مساحات إضافية (A1) في خلية فارغة بجانب البيانات الخاصة بك ، انظر لقطة الشاشة:
doc-add-space-before-uppercase-1

5. ثم اسحب مقبض التعبئة فوق النطاق الذي تريد أن تحتوي على هذه الصيغة ، ستحصل على المسافات التي تم إدخالها قبل كل حرف كبير.
doc-add-space-before-uppercase-1

قم بإزالة المسافات البادئة / اللاحقة / الزائدة في الخلايا بسهولة

كوتولس ل إكسيل إزالة المسافات تتيح الأداة المساعدة لمستخدمي Excel إمكانية إزالة جميع المسافات البادئة ، والمسافات الزائدة ، والمسافات الزائدة ، أو جميع المسافات من الخلايا المحددة بسهولة.


مساحة إزالة الإعلانات 1

أدخل مسافات قبل الأحرف الكبيرة برمز VBA

إليك رمز VBA آخر يمكنه تقديم خدمة لك ، يرجى القيام بما يلي:

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

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

رمز فبا: أدخل مسافات قبل الأحرف الكبيرة

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، سيظهر مربع موجه للسماح لك بتحديد نطاق البيانات الذي تريد استخدامه.
doc-add-space-before-uppercase-1

4. ثم انقر فوق OK لإغلاق مربع المطالبة هذا ، تم إدخال المسافات قبل الأحرف الكبيرة مرة واحدة ، انظر لقطة الشاشة:
doc-add-space-before-uppercase-1


أدخل مسافة قبل كل أحرف كبيرة باستخدام Kutools for Excel

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! تجربة مجانية الآن!

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

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

3. انقر على Ok زر لإدخال مسافة قبل كل أحرف كبيرة كما هو موضح في لقطة الشاشة التالية:
doc إضافة مسافات قبل الأحرف الكبيرة 7

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

ملاحظة: ستضيف هذه الطريقة أيضًا مسافة في بداية الخلايا إذا كان الحرف الأول كبيرًا. يمكنك تطبيق كوتولس > نص > إزالة المسافات لإزالة كافة المسافات البادئة من الخلايا المحددة.


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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (9)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحتاج إلى مساعدة في التفوق وأريد أن أجد الأحرف الكبيرة في الخلية. على سبيل المثال: Sagar Paul MBA 16:04 أريد إبراز ماجستير إدارة الأعمال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آمل أن تتمكن من رؤيتها وتجربتها. اختبار فرعي () Dim Rg كنطاق ، xCell كنطاق Dim i As Long Dim xChar As String Set Rg = Application.Selection لكل xCell في Rg لـ i = 1 إلى xCell.Characters.Count xChar = xCell.Characters (i، 1 النص إذا تصاعدي (xChar)> 64 وتصاعدي (xChar) <91 ثم xCell.Characters (i، 1) .Font.Color = vbRed End If Next Next End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شفرتك تعمل بشكل رائع. هل تعرف كيفية تكييف الكود 20140723 للعمل على أوراق متعددة؟ أرغب في إضافة مسافات بين الأحرف الكبيرة في جميع أنحاء المصنف بأكمله. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا

أولاً ، شكرًا جزيلاً على مثال الكود والتوضيحات. إنه يعمل بشكل جيد لحالتي.

لدي مشكلة واحدة فقط ، بعض السلاسل تحتوي على كلمات مثل URL ، والتي لا ينبغي فصلها.
هل ترى طريقة لاستثناء "URL" على سبيل المثال من إضافة مسافات؟

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


مع أطيب التحيات
لوكا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
شكرا لتعليقك ونصائحك. لقد أرسلت اقتراحك إلى فريق مشروع Kutools ، وأنا متأكد من أنهم سيحسنونه قريبًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
وجدت حلا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أريد أن أسألك إذا وجدت حلاً لحالتك ، وإذا وجدت حلاً ، فيرجى تزويدني بذلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعالج هذه الوظيفة مشكلتين لا يغطيهما الحل المحدد:
1. نص غير إنجليزي (بعلامات تشكيل)
2. العواصم المتعاقبة التي لا ينبغي أن يكون بعدها فراغات

`الوظائف الخاصة AddSpaces (sText As String) كسلسلة
"إدراج مسافة قبل الحرف الكبير مباشرةً ، إلا إذا كانت الأحرف المتتالية مكتوبة بأحرف كبيرة.
آخر تحديث: 2022-07-04
'
Dim sRet As String ، i As Integer ، sChar As String ، bPrevWasUCase كـ Boolean

sRet = يسار (نص ، 1)
بالنسبة إلى i = 2 إلى Len (sText)
sChar = منتصف (نص ، أنا ، 1)
إذا كان sChar = UCase (sChar) وليس bPrevWasUCase ثم
sRet = sRet & "" & sChar
bPrevWasUCase = صحيح
آخر
sRet = sRet & sChar
bPrevWasUCase = خطأ
إنهاء حالة
أنا القادم

AddSpaces = sRet
وظيفة النهاية`
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صديق،

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

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

تواصل معنا

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