صياد الجراح قام بنشر أكتوبر 12, 2022 مشاركة قام بنشر أكتوبر 12, 2022 السلام عليكم ورحمته وبركاته..اخوانى تحية طيبة من القلب..الف شكر على مجهوداتكم ووقتكم مرفق يوزرفورم لظهور بيانات للفواتير المتاخرة والمستحقة ..ولكن المشكلة ان البيانات بتظهر كلها فى اول عمود فى الليست بوكس فقط 1- تنسيق الليست بوكس بحيث ان كل بند يظهر فى العمود الخاص به 2- هو حاليا بيظهر الفواتير المستحقة اليوم فقط .. المطلوب جعله يظهر بيانات الفواتير المستحقة اليوم والمتاخرة عن ميعادها ايضا يعنى يظهر بيانات الفواتير المتاخرة والمستحقة اليوم مع بعض..لكم منى فائق التقدير والاحترام تذكير بتاريخ الاستحقاق.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 12, 2022 مشاركة قام بنشر أكتوبر 12, 2022 طريقة خاطئة في جلب البيانات لليست بوكس عليك تحديد ارقام للاعمدة بالليست بوكس وما يقابلها من اعمدة الورقة . 1 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 12, 2022 الكاتب مشاركة قام بنشر أكتوبر 12, 2022 ا. عبد الفتاح .. استذان حضرتك توضح لى الصح فى الكود رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 12, 2022 مشاركة قام بنشر أكتوبر 12, 2022 اعيد قراءة ما قلته لك جيدا . ولماذا لا تبحث في المنتدى هذه المواضيع متوفرة بكثرة ؟ واجزم لا احد يستخدم هذه الطريقة . رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 12, 2022 الكاتب مشاركة قام بنشر أكتوبر 12, 2022 شكرا لحضرتك ا.عبد الفتاح .. قمت بالبحث بالفعل ولم اصل لشئ ..نتنظر احد من الاساتذة الافاضل يكون عنده وقت للمساعدة جزاك الله خير رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 12, 2022 مشاركة قام بنشر أكتوبر 12, 2022 لم تبحث جيدا ولم تجيبني على مشاركتي الثانية . ماذا يعني لك هذا الجزء Me.ListBox1.AddItem عندما قلت لك يجب ان تشير الى رقم العمود بالليست بوكس ؟ رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 12, 2022 الكاتب مشاركة قام بنشر أكتوبر 12, 2022 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") اذا حضرتك تقصد الجزء الخاص بربط البيانات بالليست بوكس زى الكود اعلاه مثلا ..ده بيظهر لى كل بيانات الجدول وانا محتاج يكون فى شرط التاريخ عشان يظهر لى فقط بيانات الصفوف اللى تاريخها اقل او يساوى تاريخ اليوم ..ولما باستخدامه مع الدالة الشرطية بيظهر لى اخطاء رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 12, 2022 مشاركة قام بنشر أكتوبر 12, 2022 نعم هذا ما قصدته وهذا ما فهمته منك ان لديك مشكلة في اظهار كافة الاعمدة . 1 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 12, 2022 الكاتب مشاركة قام بنشر أكتوبر 12, 2022 بعد التعديل زى ما فهمت من حضرتك وتعديل الاخطاء اللى كانت موجوده اتحلت اول مشكلة التنسيق وظهرت كل الاعمدة بشكل سليم ..جزاك الله خير واصبحت فى المشكلة الثانية فقط وهى انه يظهر بيانات اللى توايخها اقل من تاريخ اليوم..هو حاليا بيظهر اليوم لان الدالة الشرطية مستخدم فيها يساوى فقط لما بكتب <= فى الدالة الشرطية بتظهر لى كل الصفوف والمطلوب ظهور الصفوف اللى تاريخها يساوى او اصغر من تاريخ اليوم فقط تذكير بتاريخ الاستحقاق.xlsm رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 12, 2022 مشاركة قام بنشر أكتوبر 12, 2022 If Left(Sheet1.Cells(ss, "d").Value, a) = Left(Me.TextBox1.Text, a) Or Left(Sheet1.Cells(ss, "d").Value, a) < Left(Me.TextBox1.Text, a) Then جرب اخي تذكير بتاريخ الاستحقاق(1).xlsm رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 12, 2022 الكاتب مشاركة قام بنشر أكتوبر 12, 2022 اخى محمد .. بارك الله فيك.. الكود اللى حضرتك ارفقته زى ماهو بيظهر لى بيانات بتواريخ اكبر من تاريخ اليوم مثل سنه 2023 و 2024 ..وانا محتاج يظهر لى الصفوف اللى بتساوى او اصغر من تاريخ اليوم فقط ..لك ودى وتقديرى رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر أكتوبر 12, 2022 أفضل إجابة مشاركة قام بنشر أكتوبر 12, 2022 تفضل اخي الكريم بصراحة حاولت اساعدك لدرجة اني قمت تقريبا باعادة تصميم برنامجك!!!! واتمنى ان يلبي طلبك ولك اخي الفاضل الاكواد المستخدمة ربما يستفيد منها احد الاعضاء تذكير بتاريخ الاستحقاق_MH.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 13, 2022 الكاتب مشاركة قام بنشر أكتوبر 13, 2022 بسم الله ماشاء الله عليك اخى ..مجهود جبار ربنا يبارك فيك مشكور على تعبك ووقتك ومجهودك الجبار..حاشوف الكود واحاول افهمه.. لك ودى وتقديرى لشخصك الكريم رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 13, 2022 مشاركة قام بنشر أكتوبر 13, 2022 العفو اخي الكريم .وأي إستفسار أو إضافة لا تتردد في طلبها ..بالتوفيق رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أكتوبر 14, 2022 مشاركة قام بنشر أكتوبر 14, 2022 @صياد الجراح اعتقدت لقد حصلت على اجابة بناء على منشورك #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 2 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 14, 2022 مشاركة قام بنشر أكتوبر 14, 2022 @عبدالفتاح في بي اكسيل نعم استادنا الفاضل الفكرة في تعديل البرنامج لهده الدرجة هو توفير امكانية البحث للسائل بجميع الطرق الممكنة حيث يمكنه اظهار بيانات الفواتير المستحقة اليوم والمتاخرة عن ميعادها وايضا الفواتير التي لم يبلغ تاريخ استحقاقها رغم انه لم يتم طلبها . الا انني فكرت في تطوير برنامجه فقط 2 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 15, 2022 الكاتب مشاركة قام بنشر أكتوبر 15, 2022 أخى عبد الفتاح بارك الله فيك اخى والف شكر على ووقتك ومجهودك لك ودى وتقديرى لشخصك الكريم اخى محمد .. مفيش كلام يوافيك حقك ومجهودك اولا .. انت فتحت لكل واحد زى حالتى مجال البحث عشان نفهم الدوال والمتغيرات المستخدمة فى الكود والمصفوفات وازاى نربط بينهم - وخصوصا ان الواحد لسا بيقول ياهادى فيهم .. واسئلة الواحد هنا لغرض التعلم والفهم مش مجرد عمل برنامج ثانيا ... البرنامج بسم الله ماشاء الله عليه حيفيد ناس كتير اللى عاوزين برامج جاهزة عشان يشتغلوه بها .. وخصوصاالناس اللى بتتعامل مع عملاء بنظام الاقساط - برنامج متكامل ومجانى ..ومجهود عظيم من انسان عظيم .. كل تقدير و احترام لشخصك الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها