مطلوب دالة المعكوسات بشكل افقي

[قلم-الاكسل(عبدالعزيز)]

السلام عليكم

الاساتذة والمبدعين الاكلسيين

ارجو منك عمل دالة او معادلة لهذا بحيث يقوم الاكسل مباشرة بعكس الموجود في العمود الأول (الحقيقي) في العمود الثاني (المعكوس) ولو كتبت الف كلمة وعدد ويكون بشكل افقي

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

وهذا هو الملف المطلوب

 

المعكوس.rar

تم تعديل ديسمبر 30, 2015 بواسطه قلم-الاكسل

[ياسر خليل أبو البراء]

أخي الكريم قلم الإكسيل (لم نتشرف باسمك الحقيقي بعد)

إليك الكود التالي عله يؤدي الغرض

Sub ReverseRows()
    Dim I As Long, LastCol As Long, Counter As Long
    LastCol = Cells(4, Columns.Count).End(xlToLeft).Column
    Counter = 4
    
    For I = LastCol To 4 Step -1
        Cells(5, Counter).Value = Cells(4, I).Value
        Counter = Counter + 1
    Next I
End Sub

 

 

Reverse Values In Row & Results In Another Row YasserKhalil.rar

[مختار حسين محمود]

رائع رائع رائع يا فخر المنتدى و أستاذنا الغالى

وممكن يكون الكود بالشكل ده :

Sub ReverseRows2()
    Dim i As Long, j As Long
    j = Range("D4").CurrentRegion.Columns.Count + 1 ' عدد الأعمدة المتاحة
    For i = 4 To j   ' من العمود الرابع الى عدد الأعمدة
        Cells(5, i).Value = Cells(4, j).Value
        j = j - 1
    Next i
     
End Sub

 

[ياسر خليل أبو البراء]

تسلم أخي الحبيب الغالي مختار

أيوا كدا عايزين إثراء (مش اسراء) إثراء للموضوعات بالحلول المتنوعة والمفيدة للجميع ..

المهم كودك فكرني بالفيلم اللي بيقول : تجيبها كدا تجيبها كدا هي كدا ..

تقبل وافر تقديري واحترامي

[ياسر خليل أبو البراء]

أخي الحبيب مختار المغوار

إليك حل آخر باستخدام المصفوفات عشان لو وصل عدد الأعمدة لألف يبقى الأكواد المقدمة مسبقاً هتكون بطيئة في التعامل (وأهو تدريب لينا على استخدام المصفوفات arrays)

Sub ReverseUsingArrays()
    Dim myArray As Variant, Temp As Variant, LastCol As Long, I As Long, J As Long
    
    LastCol = Cells(4, Columns.Count).End(xlToLeft).Column
    myArray = Range(Cells(4, 4), Cells(4, LastCol)).Value
    ReDim Temp(1 To 1, 1 To UBound(myArray, 2))
    
    For I = UBound(myArray, 2) To 1 Step -1
        Temp(1, J + 1) = myArray(1, I)
        J = J + 1
    Next I
    Range("D5").Resize(, UBound(Temp, 2)).Value = Temp
End Sub

تقبل تحياتي

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

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

وهذا حل بالمعادلات في الملف المرفق...

أخوكم بن علية

 

المعكوس.rar

[سليم حاصبيا]

 بعد اذن الاخ ياسر و الاخ بن علية 

زيادة في اثراء الموضوع  حل اخر

المعكوس salim.rar

[ياسر خليل أبو البراء]

بارك الله فيكم إخواني لإثرائكم الموضوع بشكل كبير

أعتقد أن صاحب الموضوع سيكتفي بالحلول المقدمة .. الموضوع بقى ثري جداً ..أكواد ومعادلات ودهب ومرجان (دخلنا مغارة أوفيسنا بابا) ..أحمدك يااااااااا رب

 

[قلم-الاكسل(عبدالعزيز)]

السلام على المحترمين والمبدعين

وأولهم شيخنا بلا منازع المهندس والمبدع والسباق في جميع الآفاق شيخ الأكسليين ياسر أسرتنا بردودك السريعة والبديعة أظن أنه قد كتب في يدك لمسة من اللمسات السماوية لتساعدنا في هذا الموقع وبالخصوص في قسم الإكسل... شكري لك أبدي

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

وشكرا جزيلا لكما أيها  المبدعين والمبتكرين المهندس مختار فقد اختارتك الأقدار لتساعد الاكسليين هنا وكذلك المهندس سليم ففي مشاركتك سليمة من كل عيب ..

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

 

 

[ياسر خليل أبو البراء]

أخي الكريم عبد العزيز (أخيراً عرفنا اسمك)

بارك الله فيك وجزيت خيراً على كلماتك التي تسطر من ذهب وعلى بلاغة وفصاحة كلماتك ..

الحمد لله أن من الله علينا بالمحبة والمودة فيما بيننا ..أدام الله الحب في الله بيننا وجمعنا في الفردوس الأعلى من الجنة ..إنه ولي ذلك والقادر عليه

تقبل وافر تقديري واحترامي

[قلم-الاكسل(عبدالعزيز)]

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