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

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


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





مساعده في عملية البحث معكوسة

السلام عليكم ...أود من الأساتذة الكرام التلطف على مساعدتى فى اظهار النتائج من اليمين الى اليسار علما لا اريد تغيير في ال ..


موضوع مغلق


30-09-2020 07:14 صباحا
mo7mad2008
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2019
رقم العضوية : 12772
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 9-2-1983
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 12
 offline 

السلام عليكم ...أود من الأساتذة الكرام التلطف على مساعدتى فى اظهار النتائج من اليمين الى اليسار علما لا اريد تغيير في الخصائص الفورم من ترو او فولس اريد التعديل في الكود وشكرا مرفق الملف
من فضلك انتبه لهذا ... طالما حجم الملف صغير فليس هناك داعى لرفعه مضغوط وذلك تجنباً لعدم اهدار وقت الأساتذة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  moh.xlsb   تحميل xlsb مرات التحميل :(3)
الحجم :(40.782) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم بها نبدأ أي موضوع وأي نقاش أخي الكريم
جرب الحل التالي عله يفي بالغرض إن شاء العلي القدير

في موديول عادي أدرج الدالة المعرفة التالية
Function Reverse2DArray(ByVal arr)
    Dim tmp, a As Long, b As Long, i As Long, j As Long
    a = UBound(arr): b = LBound(arr)
    For i = 0 To ((a - b) \ 2)
        For j = LBound(arr, 2) To UBound(arr, 2)
            tmp = arr(i + 1, j)
            arr(i + 1, j) = arr(a, j)
            arr(a, j) = tmp
        Next j
        a = a - 1
    Next i
    Reverse2DArray = arr
End Function


ثم في الحدث الخاص بعملية البحث قم بتعديل هذا الجزء ، حيث تقوم الدالة بعكس الصفوف الموجودة في المصفوفة لتظهر لك بالشكل الذي تريده في الليست بوكس
If ii Then
    MyAr = Reverse2DArray(MyAr)
    Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0
End If
عرض الإجابة




30-09-2020 08:06 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif مساعده في عملية البحث معكوسة

فقط غير اتجاه الفورم من اليمين الى اليسار شاهد الصوره


ALwjE_اتجاه الفورم
 
 

توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


30-09-2020 08:38 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مساعده في عملية البحث معكوسة
السلام عليكم بها نبدأ أي موضوع وأي نقاش أخي الكريم
جرب الحل التالي عله يفي بالغرض إن شاء العلي القدير

في موديول عادي أدرج الدالة المعرفة التالية
Function Reverse2DArray(ByVal arr)
    Dim tmp, a As Long, b As Long, i As Long, j As Long
    a = UBound(arr): b = LBound(arr)
    For i = 0 To ((a - b) \ 2)
        For j = LBound(arr, 2) To UBound(arr, 2)
            tmp = arr(i + 1, j)
            arr(i + 1, j) = arr(a, j)
            arr(a, j) = tmp
        Next j
        a = a - 1
    Next i
    Reverse2DArray = arr
End Function


ثم في الحدث الخاص بعملية البحث قم بتعديل هذا الجزء ، حيث تقوم الدالة بعكس الصفوف الموجودة في المصفوفة لتظهر لك بالشكل الذي تريده في الليست بوكس
If ii Then
    MyAr = Reverse2DArray(MyAr)
    Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0
End If

30-09-2020 09:22 صباحا
مشاهدة مشاركة منفردة [3]
mo7mad2008
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2019
رقم العضوية : 12772
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 9-2-1983
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif مساعده في عملية البحث معكوسة
اشكرك استاذ ياسر 


 

30-09-2020 10:37 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مساعده في عملية البحث معكوسة
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير 
والحمد لله الذي بنعمته تتم الصالحات.



الكلمات الدلالية
مساعده ، عملية ، البحث ، معكوسه ،


 










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

الساعة الآن 07:13 صباحا