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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس

السلام عليكم عندي مشكلة في طرقة عرض التواريخ في الليست بوكس حيث تظهر قيم ولا تظهر صيغ كما هي موجودة في ورقة العمل ..



19-11-2019 08:44 صباحا
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
السلام عليكم 

عندي مشكلة  في طرقة عرض التواريخ  في الليست بوكس  حيث تظهر قيم ولا تظهر صيغ كما هي موجودة في ورقة العمل  كما اريد اضافة رؤوس العناوين  في الليست بوكس وهذا  الكود  
Private Sub UserForm_Initialize()
  Dim Ary As Variant, Nary As Variant
    Dim r As Long, c As Long, nr As Long
    
    With Sheets("ورقة1")
        nr = Application.CountIf(.Range("F:F"), "Expired")
        If nr = 0 Then Exit Sub
        Ary = .Range("A1").CurrentRegion.Value2
    End With
    ReDim Nary(1 To nr, 1 To UBound(Ary, 2))
    nr = 0
    For r = 2 To UBound(Ary)
        If LCase(Ary(r, 6)) = "expired" Then
            nr = nr + 1
            For c = 1 To UBound(Ary, 2)
                Nary(nr, c) = Ary(r, c)
            Next c
        End If
    Next r
    Me.ListBox1.List = Nary
End Sub

 
 
 
  alert1.xls   تحميل xls مرات التحميل :(4)
الحجم :(56.832) KB





19-11-2019 01:48 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8277
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس
وعليكم السلام
جرب التعديل التالي في الحلقة التكرارية الخاصة بالأعمدة بحيث تقوم بتنسيق التواريخ كما تريد
            For c = 1 To UBound(ary, 2)
                nary(nr, c) = ary(r, c)
                If c = 3 Or c = 4 Then
                    nary(nr, c) = Format(nary(nr, c), "yyyy/mm/dd")
                End If
            Next c


والكود في شكله النهائي يمكن أن يكون بهذا الشكل بحيث تضع صف العناوين في الليست بوكس
Private Sub UserForm_Initialize()
  Dim ary As Variant, nary As Variant
    Dim r As Long, c As Long, nr As Long
    
    With Sheets("ورقة1")
        nr = Application.CountIf(.Range("F:F"), "Expired")
        If nr = 0 Then Exit Sub
        ary = .Range("A1").CurrentRegion.Value2
    End With
    ReDim nary(1 To nr + 1, 1 To UBound(ary, 2))
    nr = 0
    For r = 1 To UBound(ary)
        If LCase(ary(r, 6)) = "expired" Or r = 1 Then
            nr = nr + 1
            For c = 1 To UBound(ary, 2)
                nary(nr, c) = ary(r, c)
                If c = 3 Or c = 4 Then
                    nary(nr, c) = Format(nary(nr, c), "yyyy/mm/dd")
                End If
            Next c
        End If
    Next r
    Me.ListBox1.List = nary
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، المبتدأ، حسين مامون،



19-11-2019 02:27 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس
شكر اخي  ياسر  على هذا  التعديل   الكود الان شغال 100%

أثارت هذه المشاركة إعجاب: YasserKhalil،



19-11-2019 05:29 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8277
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس
بارك الله فيك والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب التعديل وتصحيح اليوزر فورم azzeddine
14 306 YasserKhalil
هل ممكن تعديل الكود ayoub2007
6 97 YasserKhalil
فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو6تعديل مجدى يونس
2 179 مجدى يونس
فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو5 حذف بيان مجدى يونس
2 214 مجدى يونس
فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو4 طباعة مجدى يونس
2 302 مجدى يونس

الكلمات الدلالية
مساعدة ، تعديل ، لطريقة ، تعديل ، التواريخ ، الليست ، بوكس ،


 







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

الساعة الآن 10:48 صباحا

أعلن هنا
أعلن هنا
أعلن هنا