مشكلة في الاوفيس ارجو المساعدة

[عادلصباح]

اريد وضع الرقم التالي بشكل عكسي 91/65/558 جعله 558/ 65/91 وجزاكم الله خيرا علما بأن الرقم الاول قد يتكون من ثلاثة أو اربع أعداد وكذلك الرقم الثاني اما الرقم الاخير وهو 91 فهو يعني 1991 علما بأنه لا يتعدى 1999 وجزاكم الله خيرا ارجو المساعدة

[Ahmed Elbhiry]

غير تنسيق الخلية الى نص tixt

تنسيق خلايا.rar

[عادلصباح]

زاكم الله خيرا ولكن المشكلة ان الجدول موجود وجاهز ويصعب اعادة كتابة الارقام من جديد واريد تغيرها بطريقة مباشرة وسريعة

[بن علية حاجي]

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

أخي الكريم ، هذا حل آخر بمعادلة (طويلة قليلا) ولكنها تفي بالغرض...

أخوك بن علية

تنسيق خلايا.rar

[Ahmed Elbhiry]

اخى بن علية (استاذ) بارك الله فيك

[عادلصباح]

اخي الكريم /

جزاكم الله خيرا ولكن سيادتكم لم تفي بالمطلوب حيث انكم استبدلتم الرقم الثالث والثاني فقط والمطلوب هو عكس الارقام الثلاثة

مثال 1256/526/99 الى 99/526/1256 اي وضع العدد الثالث في الاول والثاني كما هو والاول في الثالث

وجزاكم الله خيرا

اخيكم عادل صباح

[بن علية حاجي]

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

أخي الكريم، لقد عملت حسب المطلوب في الموضوع (نص المطلوب الأول بالأعلى)... المهم لا مشكلة تغيير طفيف على المعادلات والآن أصبحت تفي بالغرض وزيادة (حسب المطلوب الأخير وهو تبديل الطرفين) مع إضافة حل آخر بمعادلة أقصر من الأولى... والمعادلات التي وضعتها في الحلين لا يهم فيها عدد الأرقام في كل الأعداد المستعملة في الوضعيات الثلاث : الأول أو الوسط أو الثالث...

أخوك بن علية

تنسيق خلايا2.rar

[عادلصباح]

مشكور وجزاكم الله خيرا وجاري التحميل والاستفادة وبارك الله في علمكم

[عبدالله المجرب]

السلام عليكم

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [B2:B100]) Is Nothing Then

If Target.Value = Empty Then Exit Sub

Target.Offset(0, 3) = Mid(Mid(Target, InStr(Target, "/") + 1, 20), InStr(Mid(Target, InStr(Target, "/") + 1, 20), _

"/") + 1, 20) & "/" & Mid(Mid(Target, InStr(Target, "/") + 1, 20), 1, _

InStr(Mid(Target, InStr(Target, "/") + 1, 20), "/") - 1) & "/" & Mid(Target, 1, InStr(Target, "/") - 1)

End If

End Sub

هذا الحل بالكود واو انه متشابك ولكنه يؤدي الغرض منه

تنسيق خلايا2.rar

[عادلصباح]

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

مرة ثانية جزاكم الله خيرا وبارك الله في علمكم وعملكم ونفع به المسلمين ونسألكم الدعاء وكما قال الرسول صلى الله عليه وسلم (فيما معناه ) فإن لم تجدوا ما تكافئوه به فقولوا له جزاكم الله خيرا