اذهب الي المحتوي
أوفيسنا

listbox تنسيق


إذهب إلى أفضل إجابة Solved by محمد هشام.,

الردود الموصى بها

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

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

1- تنسيق الليست بوكس بحيث ان كل بند يظهر فى العمود الخاص به

  2-  هو حاليا بيظهر الفواتير  المستحقة اليوم  فقط .. المطلوب جعله يظهر بيانات الفواتير المستحقة اليوم  والمتاخرة عن ميعادها ايضا

يعنى يظهر بيانات الفواتير المتاخرة والمستحقة اليوم  مع بعض..لكم منى فائق التقدير والاحترام

تذكير بتاريخ الاستحقاق.xlsm

رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

اعيد  قراءة ما  قلته لك جيدا .

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

 

رابط هذا التعليق
شارك

لم تبحث  جيدا  ولم تجيبني على مشاركتي  الثانية .

ماذا يعني  لك هذا  الجزء   

Me.ListBox1.AddItem

عندما  قلت  لك يجب  ان تشير  الى  رقم  العمود بالليست بوكس ؟

رابط هذا التعليق
شارك

Me.ListBox1.AddItem Sheet1.Cells(ss, 1)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(ss, "e")
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sheet1.Cells(ss, "d")
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sheet1.Cells(ss, "c")
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = Sheet1.Cells(ss, "b")
Me.ListBox1.List(ListBox1.ListCount - 1, 5) = Sheet1.Cells(ss, "a")

اذا حضرتك تقصد الجزء الخاص بربط البيانات بالليست بوكس  زى الكود اعلاه مثلا ..ده بيظهر لى كل بيانات الجدول 

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

 

رابط هذا التعليق
شارك

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

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

لما بكتب <=  فى الدالة الشرطية بتظهر لى كل الصفوف  والمطلوب ظهور الصفوف اللى تاريخها يساوى او اصغر من تاريخ اليوم فقط

تذكير بتاريخ الاستحقاق.xlsm

رابط هذا التعليق
شارك

اخى محمد .. بارك الله فيك..  الكود اللى حضرتك ارفقته زى ماهو بيظهر لى بيانات بتواريخ اكبر من  تاريخ اليوم

مثل سنه 2023  و 2024  ..وانا محتاج يظهر لى الصفوف اللى بتساوى او اصغر من تاريخ اليوم فقط ..لك ودى وتقديرى

Capture.JPG

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

p_24767ds0p1.png

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

تذكير بتاريخ الاستحقاق_MH.xlsm

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

بسم الله ماشاء الله عليك اخى ..مجهود جبار ربنا يبارك فيك  

مشكور على تعبك ووقتك ومجهودك الجبار..حاشوف الكود واحاول افهمه..  لك ودى وتقديرى لشخصك الكريم

 

 

رابط هذا التعليق
شارك

@صياد الجراح

اعتقدت  لقد  حصلت  على  اجابة  بناء  على  منشورك #7

ولكن  يبدو  انه  تم  تصميم  برنامج  يختلف  عن  منشورك  الاصلي .

هذا  تعديل  ابسط  مما  تتصور  وتستطيع  فهم  كودك  بتعديلات  بسيطة .

 

Private Sub CommandButton2_Click()

Dim ls As Integer
Dim ss As Integer, EDt As Date

With Me.ListBox1
    .ColumnCount = 5
    .ColumnWidths = "103;103;103;103;103"
    .TextAlign = fmTextAlignCenter
End With

ls = Sheet1.Range("D" & Rows.Count).End(xlUp).Row
Me.ListBox1.Clear

'convert text to date
EDt = CDate(Me.TextBox1.Text)

With Sheet1
    For ss = 2 To ls
        If .Cells(ss, "d") <= EDt Then
            Me.ListBox1.AddItem .Cells(ss, 1)
            Me.ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ss, "b")
            Me.ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ss, "c")
            Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Format(.Cells(ss, "d"), "mm/dd/yyyy")
            Me.ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ss, "e")
        End If
    Next ss
End With

End Sub

 

  • Like 2
رابط هذا التعليق
شارك

@عبدالفتاح في بي اكسيل نعم استادنا الفاضل الفكرة في تعديل البرنامج لهده الدرجة   هو  توفير امكانية البحث للسائل  بجميع الطرق الممكنة

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

الا انني فكرت في تطوير برنامجه فقط

 

  • Like 2
رابط هذا التعليق
شارك

أخى عبد الفتاح

بارك الله فيك اخى والف شكر على ووقتك ومجهودك 

لك ودى وتقديرى لشخصك الكريم

اخى محمد .. مفيش كلام يوافيك حقك ومجهودك

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

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

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

 برنامج متكامل ومجانى  ..ومجهود عظيم من انسان عظيم .. كل تقدير و احترام لشخصك الكريم

 

 

 

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information