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

or

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

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

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

عكس ترتيب الكلمات مفصولة فاصل معين مع التعليمات البرمجية فبا

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


عكس ترتيب النص استنادا إلى فاصل محدد:

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

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


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


لنفترض أن لديك مجموعة من السلاسل النصية التي تريد عكسها، مثل "إضافة الأصفار الرائدة في إكسيل"إلى"ليكس ني سوريز غنيدايل جيدا". يمكنك عكس النص بالخطوات التالية:

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

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

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

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

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


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

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

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

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

Sub ReverseWord()
'Updateby20131128
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، ويمكنك ان ترى يتم عكس الكلمات المحددة، انظر لقطات:


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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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


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

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


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

كيفية الوجه الاسم الأول والأخير في الخلايا في إكسيل؟


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

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب 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.
    PRaveen Soni · 7 months ago
    awesome very helpful thanks for sharing the details
  • To post as a guest, your comment is unpublished.
    Huda · 1 years ago
    Thank you very much. This code helped my friend in a very good way
  • To post as a guest, your comment is unpublished.
    vee · 2 years ago
    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..
  • To post as a guest, your comment is unpublished.
    piphat · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Duncan Sullivan-Shaw · 3 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Mohanned Tayyeb · 3 years ago
    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]mohanned1@windowslive.com[/b][/b][/b]




    with regards,
    • To post as a guest, your comment is unpublished.
      Royal Chan · 1 years ago
      please go through the instructions give by the extend office website after searching with google by reverse string in excel.
  • To post as a guest, your comment is unpublished.
    CHARL · 3 years ago
    Hi I would like to reverse Dates.

    20/11/2015 to 2015/11/20

    Any Help?

    Thanks
    • To post as a guest, your comment is unpublished.
      Gaston · 3 years ago
      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.
  • To post as a guest, your comment is unpublished.
    asb · 3 years ago
    thank you
    its really useful for me :roll:
  • To post as a guest, your comment is unpublished.
    VB Developer · 3 years ago
    I notice a lot of people are re-inventing the wheel by doing left, right commands, VB6 supports string reverse

    SYNTAX:
    strRevese("String")

    thats all you need

    Dim stCellValue, i
    For i = 1 To 5
    Range("A" & X).Select
    stCellValue = Range("A" & X).Value
    stCellValue = StrReverse(stCellValue)
    Range("A" & X).Value = stCellValue
    Next i

    Another nifty trick would be to pre-populate zeros, if values under 10 but need to be in a time format such as "10:01:24" rather than "10:1:24"

    intMins = 1
    stMinutes = right("00" & intMins, 2)

    result = 01
  • To post as a guest, your comment is unpublished.
    Emma · 5 years ago
    Use this..put your input in A1 then the output will be in B1

    Sub zzzText()

    Dim xlen, xvalue, xoutput

    xlen = VBA.Len(Range("A1"))
    xvalue = Range("A1").Value
    xoutput = ""

    For i = 1 To xlen

    GetText = VBA.Right(xvalue, 1)
    xvalue = VBA.Left(xvalue, xlen - i)
    xoutput = xoutput & GetText

    Next i

    Range("B1").Value = xoutput
    Range("C1").Value = xlen
    Range("D1").Value = xvalue

    End Sub
  • To post as a guest, your comment is unpublished.
    Danos · 5 years ago
    Hi all, i've tried this function: Sub ReverseText()
    'Updateby20131128
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
    xValue = Rng.Value
    xLen = VBA.Len(xValue)
    xOut = ""
    For 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

    but when i've ran it with numbers it has deleted all the zeros.

    do you know a function that not delete zeros?

    Thanks!!
    • To post as a guest, your comment is unpublished.
      Farhan · 5 years ago
      Use Vineet's function code as a module and when using the formula, use this trick: =strrev(""&D9&"") where D9 contains the number. Vineet's VBA code for that function is:

      Function strrev(strValue As String)
      strrev = StrReverse(strValue)
      End Function
  • To post as a guest, your comment is unpublished.
    Faseeh · 5 years ago
    Sorry a little editing

    Function InvertText(str As String)
    'By 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
    End Function
  • To post as a guest, your comment is unpublished.
    Faseeh · 5 years ago
    Another one...

    Function InvertText(str As String)
    'By Faseeh Muhammad
    Dim m As Integer
    For m = Len(str) To 1 Step -1
    countRepp = countRepp & Mid(str, m, 1)
    Next m
    End Function
  • To post as a guest, your comment is unpublished.
    Vineet · 5 years ago
    This is absurd. So much code to perform just a simple task of reversing the string? :o
    Just 3 line function needs to be added in the module as below:

    Function strrev(strValue As String)
    strrev = StrReverse(strValue)
    End Function

    Now the formula =strrev(A1) can be used in Excel sheet. This works since StrReverse is an inbuilt function of VBA. :D