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

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


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





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

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


19-04-2020 10:03 مساء
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 258
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 

السلام عليكم ورحمة الله وبركاته
وكل عام وانتم بخير وبصحة وتمام العافية
اطلب من كل العباقرة والنوابغ مساعدتى فى هذا اليوزرفوم
اريد زيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس اكثر من 10 أعمدة وايضاً ظهور تنسيق وقت الحضور الإنصراف بالشكل الموجود بالجدول في الشيت الأول لأننى حاولت كثيراً لم استطيع ذلك
شكراً لحضارتكم وجعل مساعدتى هذه فى ميزان حسناتكم الى يوم القيامة
 
 
 
  batween 2 Dates.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(75.662) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم أشرف
بدايةً قم بوضع تعليق على هذه الأسطر في الكود
'
'            LastRow = s1.Range("C" & Rows.Count).End(xlUp).Row
'    For Each ara In s1.Range("C2:C" & LastRow)
'
'   If ara >= tarih1 And _
'    ara <= tarih2 And ara.Offset(0, -2) = CStr(ComboBox1.Text) Then
'        ListBox1.AddItem
'
'
'
'
'           ListBox1.List(ListBox1.ListCount - 1, 4) = ara.Offset(0, 2)
'           ListBox1.List(ListBox1.ListCount - 1, 3) = Format(ara.Offset(0, 1), "dd-mm-yyyy")
'
'           ListBox1.List(ListBox1.ListCount - 1, 2) = VBA.Format(ara, "dd-mm-yyyy")
'           ListBox1.List(ListBox1.ListCount - 1, 1) = ara.Offset(0, -1)
'           ListBox1.List(ListBox1.ListCount - 1, 0) = ara.Offset(0, -2)
'           ListBox1.List(ListBox1.ListCount - 1, 5) = Format(ara.Offset(0, 3), "[$-F400]h:mm:ss AM/PM")
'           ListBox1.List(ListBox1.ListCount - 1, 6) = Format(ara.Offset(0, 4), "[$-F400]h:mm:ss AM/PM")
'           ListBox1.List(ListBox1.ListCount - 1, 7) = ara.Offset(0, 5)
'           ListBox1.List(ListBox1.ListCount - 1, 8) = ara.Offset(0, 6)
'           ListBox1.List(ListBox1.ListCount - 1, 9) = ara.Offset(0, 7)
'           ListBox1.List(ListBox1.ListCount - 1, 10) = ara.Offset(0, 8)
'    End If
' Next ara


ثم أضف الأسطر الجديدة التالية مكانها
    Dim a, b(), i As Long, j As Long
    
     a = s1.Range("A2:K" & s1.Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To 10000)
    b(1) = Application.Index(a, 1, 0)
    
   For i = LBound(a, 1) To UBound(a, 1)
        If CDate(a(i, 3)) >= tarih1 And CDate(a(i, 3)) <= tarih2 And CStr(a(i, 1)) = CStr(ComboBox1.Text) Then
            n = n + 1
            b(n) = Application.Index(a, i, 0)
            For j = LBound(b(n)) To UBound(b(n))
                If j = 6 Or j = 7 Then b(n)(j) = Format(b(n)(j), "[$-x-systime]h:mm:ss AM/PM")
            Next j
        End If
    Next i
   
    If n > 0 Then
        ReDim Preserve b(1 To n)
        If n = 1 Then
            Me.ListBox1.Column = Application.Index(b, 0, 0)
        Else
            Me.ListBox1.List = Application.Index(b, 0, 0)
        End If
    End If
عرض الإجابة




19-04-2020 11:29 مساء
مشاهدة مشاركة منفردة [1]
هاوي برمجه
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-01-2020
رقم العضوية : 17767
المشاركات : 33
الدولة : المملكة العربية السعودية
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 183
 offline 
look/images/icons/i1.gif تعديل الكود لزيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس
اطلع على هذا الموضوع لأاخينا الاستاذ ياسر العربي لعله يفيد 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

20-04-2020 11:13 صباحا
مشاهدة مشاركة منفردة [2]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 258
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif تعديل الكود لزيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس
اخى العزيز  هاوى برمجة
 
انا متشكر على مرور حضرتك الجميل وطبعاَ قبل ما ارفع مشكلتى لحلها مع اساتذتنا بالمنتدى فمت بعملية البحث بالمنتدى وتوصلت الى الفورمه العبقرية للنابغة ياسر العربى لكن انا كمبتدئ وهاوى لم استطع توظيف جزء من الكود لوضعه للفورمة محل المشكله  التى هى اصلاً ليس من عملى فقط انا قمت بتعديلات بسيطة لكى توافق متطلبات عملى + انا كنت طالب كيف يتم تنسيق عمودى الوقت فى الليست بوكس كما فى الجدول فى الشيت P-1
وشكراَ لحضرتك وكل من يساعد اى عضو مشترك بهذا الصرح الكبير

20-04-2020 11:32 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تعديل الكود لزيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس
أخي الكريم أشرف
بفضل في الموضوعات إن الملف المرفق يكون بسيط ومركز على المشكلة بشكل أكبر عشان الكل يعرف ايه المشكلة بسهولة ، لأن 90 % من حل المشكلة يكمن في فهمها وطريقة عرضها
لو المشكلة مشكلة تنسيق جرب تستخدم الدالة Format زدي من خلالها ممكن تنسق الوقت والتاريخ عادي زيها زي ورقة العمل .. ابدأ من هنا وابحث عن طريقة استخدام الدالة فهي بسيطة .. البارامتر الأول النص المراد تنسيقة والتاني شكل التنسيق المطلوب ..

20-04-2020 01:23 مساء
مشاهدة مشاركة منفردة [4]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 258
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif تعديل الكود لزيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس
استاذنا الكبير ده شرف كبير لى انك تشارك معى موضوعى وحل مشكلتى بس انا حاولت كثيراً ولم تفلح معى وايضا مشكلة زيادة عدد الأعمده 
ارجوا من حضرتك او أحد الأعضاء الكرام مساعدتى فى حل المشكلة لآنها ضرورة ملحه فى مجال عملى وهو محاسب اجور 
وشكراً لحضاراتكم جميعاً

20-04-2020 02:48 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تعديل الكود لزيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس
يا ريت بس تركز على مشكلة واحدة عشان أقدر أساعدك
محتاج تفاصيل للمشكلة .. وملف مرفق مبسط زي ما قلت لك .. وصورة لشكل المعطيات والنتائج المتوقعة بحيث أفهم المشكلة كويس .. والأفضل تركز على نقطة واحدة فقط لأن مش بحب التشتت

20-04-2020 05:52 مساء
مشاهدة مشاركة منفردة [6]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 258
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif تعديل الكود لزيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس
السلام عليكم اخى الكريم الاستاذ/ ياسر خليل
المشكلة الآن تنحصر فى هذه الرسالة المرفقة فى الصورة  والملف قمت برفعة مرة آخرى بعد التعديل عليه
فبرجاء من حضرتك مساعدتى فى حل المشكلة ,,, وشكراً لحضرتك مقدماً وجعلة الله فى ميزان حسناتك ولا حرمنا من نصائحك وتوجيهاتك
 
  listbox.jpg   تحميل jpg listbox.jpg مرات التحميل :(0)
الحجم :(139.111) KB
 
  batween 2 Dates.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(76.204) KB



الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
التى ، الأعمدة ، لزيادة ، الكود ، تعديل ، تظهر ، عملية ، البحث ، الليست ، بوكس ،


 










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

الساعة الآن 12:54 مساء