أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


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





عكس النص ما عدا الأرقام Reverse Text Skip Numbers In VBA

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



24-11-2020 01:39 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 

السلام عليكم ورحمة الله وبركاته

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

في الحقيقة يمكن ببساطة عكس النص بالكامل باستخدام دالة في الـ VBA تعرف بالـ StrReverse وهي تقوم بعكس النص .. وهذا مثال بسيط يوضح كيفية استخدام الدالة 
Sub Example1()
    Dim s As String
    s = "Yasser Khalil"
    Debug.Print StrReverse(s)
End Sub


الكود السابق سيقوم بعكس النص باستخدام الدالة StrReverse لتظهر النتيجة في النافذة الفورية بهذا الشكل lilahK ressaY

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

وأخيراً إليكم الدالة المعرفة التي تقوم بتطبيق الفكرة التي ذكرناها
Sub Test_ReverseText_UDF()
    Dim s As String
    s = "Hello World 2021 YasserKhalil"
    Debug.Print ReverseText(s)
End Sub

Public Function ReverseText(s As String) As String
    Dim a() As String, i As Long
    s = StrReverse(s)
    a = Split(s)
    For i = 1 To UBound(a)
        If IsNumeric(a(i)) Then a(i) = StrReverse(a(i))
    Next i
    ReverseText = Join(a)
End Function


كان معكم أخوكم في الله / ياسر خليل أبو البراء

24-11-2020 06:34 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1772
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif عكس النص ما عدا الأرقام Reverse Text Skip Numbers In VBA
بارك الله فيك استاذ ياسر وزادك الله من فضله , دالة ممتاز جزاك الله كل خير
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

24-11-2020 07:03 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif عكس النص ما عدا الأرقام Reverse Text Skip Numbers In VBA
وجزيت خيراً أخي العزيز علي ومشكور على مرورك العطر.

24-11-2020 10:47 مساء
مشاهدة مشاركة منفردة [3]
abohatab
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-12-2017
رقم العضوية : 2548
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 113
 offline 
look/images/icons/i1.gif عكس النص ما عدا الأرقام Reverse Text Skip Numbers In VBA
بارك الله فيك وجزيت خيراً على اعمالك
وان امكن ملف عمل

25-11-2020 05:59 صباحا
مشاهدة مشاركة منفردة [4]
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 69
يتابعونه : 32
قوة السمعة : 4115
عدد الإجابات: 4
 offline 
look/images/icons/i1.gif عكس النص ما عدا الأرقام Reverse Text Skip Numbers In VBA
890264

توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


25-11-2020 06:09 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif عكس النص ما عدا الأرقام Reverse Text Skip Numbers In VBA
وجزيت خيراً بمثل ما دعوت لي أخي الغالي أبو يوسف
أخي الكريم أبو حطب الموضوع لا يحتاج لملف مرفق ، حيث يمكنك إدراج موديول وتجربة الكود من داخل محرر الأكواد وتظهر النتائج في النافذة الفورية لديك.

25-11-2020 05:25 مساء
مشاهدة مشاركة منفردة [6]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 612
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 14
قوة السمعة : 1149
 offline 
look/images/icons/i1.gif عكس النص ما عدا الأرقام Reverse Text Skip Numbers In VBA
احسنتم استاذ ياسر وجزاكم الله خير على هذه الافادة




الكلمات الدلالية
النص ، الأرقام ، Reverse ، Text ، Skip ، Numbers ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:46 صباحا