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

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

عند استخدام ورقة عمل 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 يومًا. تنزيل وتجربة مجانية الآن!

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

كيفية قلب الاسم الأول والأخير في الخلايا في إكسيل؟

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

 

Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ik zoek een manier om een heleboel woorden in 'rijm-fabetische volgorde' te zetten. Dus de laatste letters van het woord moeten in alfabetische volgorde. Iemand enig idee? VrGr Amanda
This comment was minimized by the moderator on the site
This is truly a great help ... Thank you so much
This comment was minimized by the moderator on the site
awesome very helpful thanks for sharing the details
This comment was minimized by the moderator on the site
Thank you very much. This code helped my friend in a very good way
This comment was minimized by the moderator on the site
Is it possible to start the reverse at a certain character length (for the user-defined function or VBA code)? For example, reverse cell A1 values starting after the character count equal to B1 value. So if B1 is 10 characters reverse will start at characters 11+ in A1..
This comment was minimized by the moderator on the site
I found that the original Sub gave out the results with additional sigh at the end of all selected cells. So I fixed this part. For i = UBound(strList) To 0 Step -1 If i > 0 Then xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i) Next Rng.Value = xOut
This comment was minimized by the moderator on the site
It's possible to reverse text using formula, it is repetitive and limited to how far you are prepared to go and subject to number of characters excel will allow in the formula bar. Max length of text will be 30 chars and is in cell A1. Cell B1 would read: =TRIM(MID(LEFT(A1&REPT(" ",31),31),30,1)&MID(LEFT(A1&REPT(" ",31),31),29,1)&MID(LEFT(A1&REPT(" ",31),31),28,1)&MID(LEFT(A1&REPT(" ",31),31),27,1)&MID(LEFT(A1&REPT(" ",31),31),26,1)&MID(LEFT(A1&REPT(" ",31),31),25,1)&MID(LEFT(A1&REPT(" ",31),31),24,1)&MID(LEFT(A1&REPT(" ",31),31),23,1)&MID(LEFT(A1&REPT(" ",31),31),22,1)&MID(LEFT(A1&REPT(" ",31),31),21,1)&MID(LEFT(A1&REPT(" ",31),31),20,1)&MID(LEFT(A1&REPT(" ",31),31),19,1)&MID(LEFT(A1&REPT(" ",31),31),18,1)&MID(LEFT(A1&REPT(" ",31),31),17,1)&MID(LEFT(A1&REPT(" ",31),31),16,1)&MID(LEFT(A1&REPT(" ",31),31),15,1)&MID(LEFT(A1&REPT(" ",31),31),14,1)&MID(LEFT(A1&REPT(" ",31),31),13,1)&MID(LEFT(A1&REPT(" ",31),31),12,1)&MID(LEFT(A1&REPT(" ",31),31),11,1)&MID(LEFT(A1&REPT(" ",31),31),10,1)&MID(LEFT(A1&REPT(" ",31),31),9,1)&MID(LEFT(A1&REPT(" ",31),31),8,1)&MID(LEFT(A1&REPT(" ",31),31),7,1)&MID(LEFT(A1&REPT(" ",31),31),6,1)&MID(LEFT(A1&REPT(" ",31),31),5,1)&MID(LEFT(A1&REPT(" ",31),31),4,1)&MID(LEFT(A1&REPT(" ",31),31),3,1)&MID(LEFT(A1&REPT(" ",31),31),2,1)&MID(LEFT(A1&REPT(" ",31),31),1,1)) Result: A1: Duncan Sullivan-Shaw B1: wahS-navilluS nacnuD Basically your text in cell A1 becomes 31 characters long by adding enough spaces to enable this, and each character is read singularly from right to left until you reach the first character. This will result in your reversed text containing leading spaces, which the TRIM command removes for you. To reduce or increase the length you would remove or add each statement. The number within the REPT statement should be 1 more than the maximum length you are working to and your first MID statement will start at the maximum length working down to 1.
This comment was minimized by the moderator on the site
hi all, i don't have Kutools to reverse a character of text, if anybody has this tools and want to help me, please send me email to send my file to you for reverse. my email is: [b][b][/b][/b] with regards,
This comment was minimized by the moderator on the site
please go through the instructions give by the extend office website after searching with google by reverse string in excel.
This comment was minimized by the moderator on the site
Hi I would like to reverse Dates. 20/11/2015 to 2015/11/20 Any Help? Thanks
This comment was minimized by the moderator on the site
For dates all you need to do is change the format of the cell to the format needed. Right click on the cell you would like to reverse and select format cell. Select Date under the category section and change the location from wherever you are to US or Czech or another country that may use the format you are interested in. Then pick the one that matches your requirements.
This comment was minimized by the moderator on the site
thank you its really useful for me :roll:
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations