أكاديمية الصقر للتدريب
(نسخة قابلة للطباعة من الموضوع)
https://excel-egy.com/forum/t4335
أنقر هنا لمشاهدة الموضوع بهيئته الأصلية

مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس
المبتدأ 19-11-2019 08:44 صباحا
السلام عليكم 

عندي مشكلة  في طرقة عرض التواريخ  في الليست بوكس  حيث تظهر قيم ولا تظهر صيغ كما هي موجودة في ورقة العمل  كما اريد اضافة رؤوس العناوين  في الليست بوكس وهذا  الكود  
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

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

Powered by PBBoard ©Version 3.0.3