أبو حنــــين

السلام عليكم الملف عندي يعمل انظر المرفق محمود.rar

في الحقيقة لم افهم ماهي العلاقة بين CARD NO و القيمة TYPE بمعنى آخر ما هي الارقام التي توافق R1 او P1 او E1 او ....... ايضا بالنسبة لـ NUMBER لم أ افهم العدد 23XXXX ايضا هناك دالة تحتوي على متغير F لا ادري من اين اتى و هذه الدالة هي COUNTIF(G2:G80;"F")

شرفني مرورك أخي أبو نصار جزاك الله خيرا

أخي محمود جرب نسخ هذا الكود ThisWorkbook في الحدث Workbook_BeforeClose و اخبرني بالنتيجة طبعا يجب عمل التالي في الخلايا التي تحتوي على التاريخ يجب كتابة المعادلة مثلا =IF(U16="";"";NOW()) ثم تسحبها الى الاسفل و نفس الشيئ مع باقي خلايا التاريخ ثم تكتب بعض القيم في خانة مبلغ السداد ليسجل البرنامج تاريخ اليوم جرب 5 او 6 قيم ثم اغلق الملف سيطلب منك الحفظ اضغط على نعم غير التاريخ من 13 مثلا اللا 15 او 16 و اعد فتح الملف وانظر هل التاريخ تغير او لا Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Dim sh As Worksheet, R As Boolean, cl As Range R = False Set sh = Sheets("البيانات") For Each Target In Range("U10:U600,W10:W600,Y10:Y600,AA10:AA600,AC10:AC600,AE10:AE600,AG10:AG600,AI10:AI60,AK10:AK600,AM10:AM600,AO10:AO600,AQ10:AQ600") If Target.Value > 0 Or Target.Text <> "" Then R = True Target.Offset(0, 1) = Format(Target.Offset(0, 1).Text, "@") End If Next Application.ScreenUpdating = True End Sub

جزاك الله خيرا أخي الجزيرة على مروركم

نحتاج في بعض الحالات الى استعمال الدالة ( ) NOW و نريد ان نحافظ على التاريخ الموجود في الملف بعد غلقه و فتحه في تاريخ آخر هذا مثال على ذلك يحث يقوم الكود بتجميد التاريخ ارجوا أن يستفاد منه تجميد التاريخ.rar

هذا تعديل في الملف حيث قمت بحذف المعادلات و جعلتها تعمل أوتوماتيكيتا القوائم1.rar

أخي الحبيب أبو أنس و الله إنني دائما أترقب مروركم لما فيه من كلمات طيبة و دعوات تثلج الصدر أدعوا الله أن يتقبلها لنا و لكم و لكل الأمة الإسلامية رعاك الله و جزاك خير جزاء و جعلك من اهل الجنة آمين يا رب العامين

هذا تعديل بسيد فقط في المعادلات لتشمل نطاق أوسع ADSL REPORT1.rar

بعد إذن أخي الحبيب أبو نصار هذا الكود يقوم بإخفاء العمود الذي نضغط عليه مرتين متتاليتين مثلا لاخفاء العمود D نقف عند أي خلية في العمود D و نضغط مرتين متتاليتين و هكذا و لإظهار الأعمدة نضغط في اي خلية في العمود A Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False Cancel = True If Target.Column > 1 Then ActiveCell.Columns.EntireColumn.Hidden = True End If If Target.Column = 1 Then For r = 1 To Columns.Count Columns(r).EntireColumn.Hidden = False Next End If Application.ScreenUpdating = True End Sub

تفضل أخي عباس الملف كما طلبت تعديل store.rar

بالتوفيق إن شاء الله

السلام عليكم جرب أخي هذه المحاولة للوصول لواجهة الادخال ( الفورم ) قم بالضغط مرتين متتاليتين في الخلية A1 في أي شيت ADSL REPORT 1.rar

أخي والله لم افهم المطلوب لو وضعت مثال على الملف الذي أرسلته لك في المشاركة رقم 5 و تبين فيه المطلوب بمعنى تعطي أكثر من مثال لأرى سير العملية كيف يحدث

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

الملف ليس محمي افتح محرر vb ستجد هذا : Private Sub Worksheet_Selectionchange(ByVal Target As Range) ScrollArea = "E10" End Sub احذفه لان دوره فقط هو منع المستخدم الذهاب الى أي خلية سوي الخلية E10

هل توصلت الى النتيجة ؟

السلام عليكم جرب أخي المرفق Classeur_A.rar

السلام عليكم جرب أخي المرفق بعد التعديل الذي طلبته هذا إن كنت قد فهمت المقصود أخبرني بالنتائج تعديل.rar

أخي محمود المرفق باصدار 2003 فيه مثال و يبدو أنه يعمل و الله اعلم جربه و أخبرني بالنتيجة مثال.rar

السلام عليكم بالنسبة للتاريخ الهجري يمكن استعمال الدالة =TEXT(NOW();"b2d -mm-yyyy")

جزاك الله خيرا أخي الحبيب أبو نصار على هذا العمل الممتاز و الشكر موصول لأخينا الحبيب عبد الله

السلام عليكم بالفعل أخي الحبيب رجب فكرة المعادلة ممتازة جزاك الله خيرا و بكل صدق لقد حاولت فيها و لكنني فشلت

السلام عليكم قمت بإجراء محاولة على السريع و لا أدري هل تفي بالغرض أو لا جربيها و أخبرني بالنتائج Book1.rar

أخي السلام عليكم غير هاذين السطرين : ListBox1.List(V, 0) = q.Offset(0, 0).Value ListBox1.List(V, 2) = q.Offset(0, -4).Value بهاذين السطرين ListBox1.List(V, 0) = Format(q.Offset(0, 0).Value, "#,##0.000") ListBox1.List(V, 2) = Format(q.Offset(0, -4).Value, "dd-mm-yyyy")