عبدالفتاح في بي اكسيل

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

@M.NHAKAMI ولكن لماذا كل هذه الاسطر وعدم تنظيم في ارقام الليبل ؟! اقترح عليك بجعل ارقام الليبل بشكل متتالي حتى تسهل الامر عليك ومن تم وضعها في حلقة تكرارية ووضع الخلايا في مصفوفه على اي حال في نهاية مدى كل خليه ضع كلمة TEXT هذا مثال Label163.Caption = Sheets("دراسة فندق").Range("h6").Text

اعتقد انك مخطئ ، هذا يحدث عند الضغط على زر END

@الفارس محمد رجب عندما تتحدث عن خطأ يجب ان تظهر لنا في أي سطر والا الصورة لا معنى لها !

سأرى ما يمكنني فعله اذا لم يتدخل احد الأعضاء ولكن حاليا مشغول . تحياتي

لم افهم تعليقك الأخير ! هل عمل معك الملف ؟

@الفارس محمد رجب ولكن اين الكود الذي حاولت القيام به؟!! بالمناسبة موضوعك ليس بالمعقد ، يمكنك البحث عن مواضيع قد تم تناولها مسبقا وتعديله بناء على احتياجاتك. تحياتي

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

اذا كنت تقصد اظهار التقويم لاختيار التاريخ عندها يمكن استخدام اداتين date picker او calendar . هذه محاولة بعد القيام بإضافة فورم التقويم والقيام ببعض التعديلات . قم بالنقر مرتين علي خلية التاريخ وسيظهر التقويم . ولكن هذا يتوقف على اصدار الاوفيس اشك انها تعمل مع الإصدارات قبل 2016 واذا واجهتك مشكلة بإظهار رسالة بعدم وجود كائن عنده يجب تنصيبه حتى يظهر لك . حاليا يعمل معي باستخدام بإصدار 2019 تحياتي مطلوب تعديل.xlsm

جرب هذه المعادلة مع مراعاة الفاصلة على حسب اصدار الاوفيس =IF(ISERROR(SEARCH("-";F11));1;TRIM(RIGHT(SUBSTITUTE(F11;"-";REPT(" ";100));100)))

يجدر القيام بحلقة تكرارية في هذه الحالة Sub delete_tools() Dim ws As Worksheet For Each ws In Worksheets ws.DrawingObjects.Delete Next ws End Sub

عندما تريد المساعدة وجب ارفاق الملف ووضع البيانات قبل وكيف تكون بعد ، وما هو حجم بياناتك حتى يكون الكود بطيء ؟!! بنظرة على كودك يوجد حلقات تكرارية كثيرة وهذا الذي سيسبب البطيء . اختصر الحلقات التكرارية قدر الإمكان . تحياتي .

ادخل على خيارات الوظائف الاضافية وازل تاشيرات الادوات التي لا تريدها .

جرب هذ التعديل لا فائدة من السطر الاول في بداية الكود لقد قمت بازالته عند وضع احد الخلايا سيتم الفلترة وعند مسح الخلية سيتم عرض البيانات الكلية Private Sub Worksheet_Change(ByVal Target As Range) Dim LastRow As Long Dim FilterRange As Range LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row Set FilterRange = Range("C9:U" & LastRow) If Me.FilterMode Then Me.ShowAllData If Not IsEmpty(Range("D8")) Then FilterRange.AutoFilter Field:=2, Criteria1:=Range("D8").Value ElseIf Not IsEmpty(Range("E8")) Then FilterRange.AutoFilter Field:=4, Criteria1:=Range("E8").Value End If End Sub

@sabah2023 ,لكن كيف عمل معك الكود من البداية ؟!! طلبك يكون مثل هذا بناء على مشاركتك الاولى 2023/08/23 الكود لا يفعل ذلك ! عليك تغيير هذا السطر من .NumberFormat = "yyyy/dd/mm" الى .NumberFormat = "yyyy/mm/dd"