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

كيفية عكس سلسلة النص أو ترتيب الكلمات في إكسيل؟

عند استخدام ورقة عمل Excel ، كيف يمكنك عكس سلسلة النص أو ترتيب الكلمات في Excel؟ على سبيل المثال ، تريد عكس "يعد Excel أداة مفيدة لنا"إلى"su rof نهب lufesu a si lecxE". أو يمكنك أحيانًا عكس ترتيب الكلمات مثل "Excel ، Word ، PowerPoint ، OneNote"إلى"OneNote و PowerPoint و Word و Excel". عادة يكون حل هذه المشكلة صعبًا نوعًا ما. يرجى الاطلاع على الطرق التالية:

سلسلة نصية عكسية مع وظيفة محددة من قبل المستخدم

ترتيب الكلمات العكسي مفصولة بفاصل محدد مع كود VBA

سلسلة نصية عكسية أو ترتيب كلمات مع كوتولس ل إكسيل بسرعة وسهولة


السهم الأزرق الحق فقاعة سلسلة نصية عكسية مع وظيفة محددة من قبل المستخدم

لنفترض أن لديك مجموعة من السلاسل النصية التي تريد عكسها ، مثل "أضف الأصفار البادئة في Excel"إلى"lecxE ni sorez gnidael dda". يمكنك عكس النص بالخطوات التالية:

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

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

Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))
End Function

3. ثم احفظ وأغلق هذا الرمز ، عد إلى ورقة العمل ، وأدخل هذه الصيغة: = reverseestr (A2) في خلية فارغة لوضع النتيجة ، انظر لقطة الشاشة:

4. ثم اسحب مقبض التعبئة لأسفل لنسخ هذه الصيغة ، ويتم تبجيل النص الموجود في الخلايا في الحال ، انظر لقطة الشاشة:


السهم الأزرق الحق فقاعة ترتيب الكلمات العكسي مفصولة بفاصل محدد مع كود VBA

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

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

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

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

3. ثم اضغط F5 مفتاح ، يتم عرض مربع حوار ، يرجى تحديد نطاق للعمل معه. انظر لقطة الشاشة:

4. ثم اضغط Ok، يظهر مربع حوار آخر لك لتحديد الفاصل الذي تريد عكس الكلمات بناءً عليه ، انظر لقطة الشاشة:

5. ثم اضغط OK، ويمكنك رؤية الكلمات المحددة معكوسة ، انظر لقطات الشاشة:


السهم الأزرق الحق فقاعة سلسلة نصية عكسية أو ترتيب كلمات مع كوتولس ل إكسيل بسرعة وسهولة

كوتولس ل إكسيلالصورة عكس ترتيب النص يمكن أن تساعدك على عكس السلاسل النصية المختلفة بسرعة وسهولة. يمكنه القيام بالعمليات التالية:

اعكس النص من اليمين إلى اليسار ، مثل "اضغط على بعض الكلمات"إلى"sdrow ايموس بات

يتم فصل النص العكسي بمسافة أو بأحرف محددة أخرى ، مثل "تفاح برتقال عنب"إلى"عنب برتقال تفاح

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

عكس النص من اليمين إلى اليسار:

1. حدد النطاق الذي تريد عكسه.

2. انقر كوتولس > أدوات النص > عكس ترتيب النص، انظر لقطة الشاشة:

3. في عكس النص مربع الحوار ، حدد الخيار المناسب من الفاصل التي تتوافق مع قيم الخلية. ويمكنك معاينة النتائج من ملف جزء المعاينة. انظر لقطة الشاشة:

 قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


عكس النص مفصول بمسافة أو بأحرف محددة أخرى:

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

1. حدد الخلايا وقم بتطبيق هذه الأداة عن طريق النقر كوتولس > نص > عكس ترتيب النص.

2. في مجلة عكس النص في مربع الحوار ، اختر الفاصل الذي يفصل بين قيم الخلية التي تريد عكس الكلمات بناءً عليها ، انظر الصورة:

3. ثم اضغط Ok or قم بالمشاركة، تم عكس الكلمات الموجودة في الخلايا مرة واحدة. انظر لقطات الشاشة:

ملاحظة:تدقيق تخطي النصوص غير النصية خلايا لمنعك من عكس الأرقام في النطاق المحدد.

لمعرفة المزيد عن هذه الوظيفة ، يرجى زيارة عكس ترتيب النص.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


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

كوتولس ل إكسيل: مع أكثر من 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع

 

فرز التعليقات حسب
التعليقات (19)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا سخيف. الكثير من التعليمات البرمجية لأداء مهمة بسيطة لعكس السلسلة؟ : o يجب إضافة دالة 3 أسطر فقط في الوحدة النمطية على النحو التالي: Function strrev (strValue As String) strrev = StrReverse (strValue) End Function الآن يمكن استخدام الصيغة = strrev (A1) في ورقة Excel. يعمل هذا لأن StrReverse هي وظيفة مضمنة في VBA. :د
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واحد آخر ... الوظيفة InvertText (str As String) 'بقلم Faseeh Muhammad Dim m كعدد صحيح لـ m = Len (str) إلى 1 خطوة -1 countRepp = countRepp & Mid (str، m، 1) Next m End Function
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عذرا قليلا ، تعديل الوظيفة InvertText (str As String) 'بقلم Faseeh Muhammad Dim Curr as String Dim m As Integer For m = Len (str) To 1 Step -1 countRepp = countRepp & Mid (str، m، 1) Next m Inverttext وظيفة النهاية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بالجميع ، لقد جربت هذه الوظيفة: Sub ReverseText () 'Updateby20131128 Dim Rng As Range Dim WorkRng كمدى عند الخطأ ، استئناف التالي xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("النطاق" ، xTitleId، WorkRng.Address ، النوع: = 8) لكل Rng In WorkRng xValue = Rng.Value xLen = VBA.Len (xValue) xOut = "" بالنسبة لـ i = 1 To xLen getChar = VBA.Right (xValue، 1) xValue = VBA.Left (xValue، xLen - i) xOut = xOut & getChar Next Rng.Value = xOut Next End Sub ولكن عندما قمت بتشغيله بالأرقام فقد حذف جميع الأصفار. هل تعرف وظيفة لا تحذف الأصفار؟ شكرًا!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استخدم رمز دالة Vineet كوحدة نمطية وعند استخدام الصيغة ، استخدم هذه الخدعة: = strrev ("" & D9 & "") حيث يحتوي D9 على الرقم. رمز VBA الخاص بـ Vineet لهذه الوظيفة هو: Function strrev (strValue As String) strrev = StrReverse (strValue) End Function
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استخدم هذا .. أدخل الإدخال في A1 ثم سيكون الإخراج في B1 Sub zzzText () Dim xlen ، xvalue ، xoutput xlen = VBA.Len (Range ("A1")) xvalue = Range ("A1"). القيمة xoutput = "" بالنسبة إلى i = 1 إلى xlen GetText = VBA.Right (xvalue، 1) xvalue = VBA.Left (xvalue، xlen - i) xoutput = xoutput & GetText Next i Range ("B1"). القيمة = نطاق xoutput ( "C1"). القيمة = نطاق xlen ("D1"). القيمة = xvalue End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد لاحظت أن الكثير من الأشخاص يعيدون اختراع العجلة من خلال تنفيذ الأوامر اليسرى واليمنى ، ويدعم VB6 سلسلة عكسية SYNTAX: strRevese ("String") هذا هو كل ما تحتاجه Dim stCellValue ، i لـ i = 1 إلى 5 Range ("A" & X) .Select stCellValue = Range ("A" & X) .Value stCellValue = StrReverse (stCellValue) Range ("A" & X) .Value = stCellValue Next i هناك حيلة أخرى رائعة تتمثل في ملء الأصفار مسبقًا ، إذا كانت القيم أقل من 10 ولكن يجب أن يكون بتنسيق وقت مثل "10:01:24" بدلاً من "10: 1: 24" intMins = 1 stMinutes = right ("00" & intMins، 2) النتيجة = 01
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك انها مفيدة حقا بالنسبة لي: لفة:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً ، أود عكس التواريخ. 20/11/2015 إلى 2015/11/20 أي مساعدة؟ شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالنسبة للتواريخ ، كل ما عليك فعله هو تغيير تنسيق الخلية إلى التنسيق المطلوب. انقر بزر الماوس الأيمن فوق الخلية التي ترغب في عكسها وتحديد تنسيق الخلية. حدد التاريخ ضمن قسم الفئة وقم بتغيير الموقع من أي مكان إلى الولايات المتحدة أو التشيك أو أي بلد آخر قد يستخدم التنسيق الذي تهتم به. ثم اختر الموقع الذي يتوافق مع متطلباتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بالجميع ، ليس لدي Kutools لعكس حرف من النص ، إذا كان لدى أي شخص هذه الأدوات ويريد مساعدتي ، يرجى إرسال بريد إلكتروني إليّ لإرسال ملفي إليك لعكس اتجاهه. بريدي الالكتروني هو: [b] [b] mohanned1@windowslive.com[/ b] [/ b] مع تحياتي ،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يرجى الاطلاع على التعليمات التي يقدمها موقع الويب الخاص بالمكتب الموسع بعد البحث باستخدام Google عن طريق سلسلة عكسية في Excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من الممكن عكس النص باستخدام الصيغة ، فهو متكرر ويقتصر على مدى استعدادك للذهاب ويخضع لعدد من الأحرف التي سيسمح بها التفوق في شريط الصيغة. سيكون الحد الأقصى لطول النص 30 حرفًا ويكون في الخلية A1. ستصبح الخلية B1 كالتالي: = TRIM (MID (LEFT (A1 & REPT (""، 31)، 31)، 30,1،1) & MID (LEFT (A31 & REPT (""، 31)، 29,1)، 1،31) & MID (LEFT (LEFT ( A31 & REPT (""، 28,1)، 1)، 31،31) & MID (LEFT (A27,1 & REPT (""، 1)، 31)، 31،26,1) & MID (LEFT (A1 & REPT (""، 31)، 31)، 25,1 ، 1) & MID (LEFT (A31 & REPT (""، 31)، 24,1)، 1،31) & MID (LEFT (A31 & REPT (""، 23,1)، 1)، 31،31) & MID (LEFT (A22,1 & REPT (""، 1)، 31)، 31،21,1) & MID (LEFT (A1 & REPT (""، 31)، 31)، 20,1،1) & MID (LEFT (A31 & REPT (""، 31)، 19,1)، 1،31) & MID ( LEFT (A31 & REPT (""، 18,1)، 1)، 31،31) & MID (LEFT (A17,1 & REPT (""، 1)، 31)، 31،16,1) & MID (LEFT (A1 & REPT (""، 31)، 31) ، 15,1،1) & MID (LEFT (A31 & REPT (""، 31)، 14,1)، 1،31) & MID (LEFT (A31 & REPT (""، 13,1)، 1)، 31،31) & MID (LEFT (A12,1 & REPT (" "، 1)، 31)، 31،11,1) & MID (LEFT (A1 & REPT (" "، 31)، 31)، 10,1،1) & MID (LEFT (A31 & REPT (" "، 31)، 9,1)، 1،31) & MID (LEFT (A31 & REPT (""، 8,1)، 1)، 31،31) & MID (LEFT (A7,1 & REPT (""، 1)، 31)، 31،6,1) & MID (LEFT (A1 & REPT (""، 31)، 31) ، 5,1،1) & MID (LEFT (A31 & REPT ("" ، 31) ، 4,1) ، 1،31) & MID (LEFT (A31 & REPT ("" ، 3,1) ، 1) ، 31،31) & MID (LEFT (A2,1 & REPT (""، 1)، 31)، 31،1,1) & MID (LEFT (A1 & REPT (""، 1)، 1)، 31،1) & MID (LEFT (A1 & REPT (""، XNUMX)، XNUMX)، XNUMX، XNUMX) & MID (LEFT (AXNUMX & REPT (""، XNUMX)، XNUMX)، XNUMX،XNUMX) & MID (LEFT (AXNUMX & REPT (""، XNUMX)، XNUMX)، XNUMX،XNUMX) & M المعرف (LEFT (AXNUMX & REPT (""، XNUMX)، XNUMX)، XNUMX،XNUMX) & MID (LEFT (AXNUMX & REPT (""، XNUMX)، XNUMX)، XNUMX،XNUMX)) النتيجة: AXNUMX: Duncan Sullivan-Shaw BXNUMX: wahS -navilluS nacnuD يصبح النص في الخلية AXNUMX بشكل أساسي بطول XNUMX حرفًا عن طريق إضافة مسافات كافية لتمكين ذلك ، ويتم قراءة كل حرف بشكل منفرد من اليمين إلى اليسار حتى تصل إلى الحرف الأول. سيؤدي ذلك إلى احتواء النص المعكوس على مسافات بادئة ، والتي يزيلها أمر TRIM نيابةً عنك. لتقليل الطول أو زيادته ، يجب إزالة أو إضافة كل عبارة. يجب أن يكون الرقم الموجود في عبارة REPT أكبر بمقدار XNUMX من الحد الأقصى للطول الذي تعمل عليه وسيبدأ بيان MID الأول الخاص بك بأقصى طول يصل إلى XNUMX.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وجدت أن العنصر الفرعي الأصلي أعطى النتائج مع تنهد إضافي في نهاية جميع الخلايا المحددة. لذلك أصلحت هذا الجزء. بالنسبة إلى i = UBound (strList) إلى 0 خطوة -1 إذا كنت> 0 ثم xOut = xOut & strList (i) & Sigh Else xOut = xOut & strList (i) Next Rng.Value = xOut
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن بدء العكس بطول حرف معين (للوظيفة المعرفة من قبل المستخدم أو رمز VBA)؟ على سبيل المثال ، تبدأ قيم الخلية A1 العكسية بعد عدد الأحرف الذي يساوي قيمة B1. لذلك إذا كانت B1 عبارة عن 10 أحرف ، فسيبدأ العكس عند 11+ في A1 ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكراً جزيلاً. ساعد هذا الرمز صديقي بطريقة جيدة جدًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع شكرا مفيد جدا لمشاركة التفاصيل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذه مساعدة عظيمة حقًا ... شكرًا جزيلاً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ik zoek een manier om een ​​heleboel woorden in 'rijm-fabetische volgorde' te zetten. رسائل Dus de laatste van het woord moeten in alfabetische volgorde. Iemand enig ide؟ VrGr أماندا
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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