ناصر سعيد

هل يتم فتح محرر الفيجوال بيزك ؟ ام يتم فتح الصفحات ؟ ام يتم فتح كلمة السر الخارجيه ؟ جزاك الله كل خير استاذ محمود ============== password_2007_2010.rar

جزاك الله كل خير .. هل يمكن ان تكتب الخطوات واحده واحده ؟

اخواني في الله هذا كود موجود بالملف لاظهار اعمده ولا ادري لم لايعمل ؟ جزاكم الله خيرا .. اريد تضبيطه Sub kh_ColumnHidden(ColumnAddres As String) Columns("K:IZ").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub '====================== Sub رصد_تحريري_تـــــرم2() Sheets("Sheet1").Select kh_ColumnHidden "K:P" End Sub كود لاظهار اعمده محدده.rar

Sub ExpiredDate() ' التعريف بالمتغيرات Dim LastRow As Integer Dim LastRow2 As Integer Dim Datecounter As Integer Dim SnNo As Integer Dim Mtype As String Dim Cname As String Dim Idate As Date Dim PhNo As String Dim Adrs As String Dim Nvisit As Date ' وبها عدد الايام Worksheets("الواجهه").Range("A1") ليساوي القيمة الموجوده بالخليه expd تعيين قيمة المتغير ' المراد تشغيل التنبيه بعدها expd = Worksheets("الواجهه").Range("A1") 'Date ليساوي تاريخ اليوم MyDate تعيين قيمة المتغير MyDate = Date ' قيمه مبدئية للمتغير = 0 هذا المتغير يعبر عن عدد نتائج البحث Datecounter = 0 ' من نتائج البحث القديم لاستقبال نتائج البحث الجديد .Range("A7:G1001") تفريغ النطاق Worksheets("الاشعارات").Range("A7:G1001").ClearContents 'ليساوي صفر وهو الشكل الذي يظهر به عدد النتائج وذلك ايضاً لتهيئته لاستقبال الرقم الجديد Counterlbl ايضا ارجاع ال Worksheets("الواجهه").Counterlbl.Caption = 0 'امرا ً طبيعيا ان نحدد نطاق البيانات التى سيتعامل معها الكود ولكي يتم هذا الامر نحن نعرف صف البدايه ولا نعرف صف نهايه البيانات ' ولهذا وجب استخدام احد الاكواد لتحديد صف نهايه البيانات LastRow = Worksheets("بيانات أساسيه").Range("A6").End(xlDown).Row ' صف نهايه البيانات LastRow حلقه من خلالها نجعل الكود يقوم بالبحث بدءا من الصف السادس وهو صف بدايه البيانات الي ' والمحدد قيمته من خلال الكود السابق ' بدايه الحلقه الصف السادس وبعد ذلك وبعد التحقق منه وتنفيذ ما هو اتي زكره سترجع مره اخري لتفحص الصف السابع وهكذا - ' بمعني ان الكود سيرجع الى هذه النقطه مره اخرى وكانها ساقيه ترجع وتذهب الى نقطه البدايه حتي الانتهاء من كافة الصفوف 'LastRow والمحدده هنا من الصف السادس الى اخر صف به بيانات For irow = 6 To LastRow With Worksheets("بيانات أساسيه") 'في حاله تساوي تاريخ الاستحقاق مع تاريخ اليوم ' If (.Cells(irow, 7) - MyDate) >= expd Then 'في حاله اظهار التواريخ المتساويه والاقل من تاريخ اليوم If (MyDate - .Cells(irow, 7)) <= expd And (MyDate - .Cells(irow, 7)) > 0 Then ' اذا تحقق هذا الشرط بهذا السطر سنقوم بتخزين قيم هذا الصف داخل متغيرات لنسخها بعد ذلك الى صفحه الاشعارات ' يعبر عن رقم الصف المنطبق عليه الشرط و الاعداد من واحد الي سبعة يعبر عن الاعمدة irow حيث SnNo = .Cells(irow, 1) Mtype = .Cells(irow, 2) Cname = .Cells(irow, 3) Idate = .Cells(irow, 4) PhNo = .Cells(irow, 5) Adrs = .Cells(irow, 6) Nvisit = .Cells(irow, 7) ' زياده عداد النتائج ب 1 Datecounter = Datecounter + 1 'Datecounter تعيين قيمة الشكل الموجود ب شيت الواجهه الذي يعبر عن عددالنتائج ليساوي قيمة المتغير Worksheets("الواجهه").Counterlbl.Caption = Datecounter 'Moving data................. With Worksheets("الاشعارات") ' اول صف فارغ في شيت الاشعارات يمكننا نسخ البيانات اليه LastRow2 = Worksheets("الاشعارات").Cells(.Rows.Count, "A").End(xlUp).Row + 1 ' نسخ البيانات .Cells(LastRow2, 1) = SnNo .Cells(LastRow2, 2) = Mtype .Cells(LastRow2, 3) = Cname .Cells(LastRow2, 4) = Idate .Cells(LastRow2, 5) = PhNo .Cells(LastRow2, 6) = Adrs .Cells(LastRow2, 7) = Nvisit ' انتهاء عمليه النسخ End With ' نهايه جمله الشرط End If ' انتهي البحث من الصف المحدد End With ' هنا نقطه نهايه الساقيه عن اللفه الاولي اى الصف السادس بدءا من اختبار الشرط به ' وتخزين قيمة داخل متغيرات حال تحقق الشرط به ونسخها الى صفحه الاشعارات ' وتبدأ الان لفه جديده ويذهب الكود لاعلي مره اخري عند نقطه البدايه ' For irow = 6 To LastRow ' ولكن هذه المره لفحص الصف السابع ' وعند الانتهاء منه ويوصل الكود لهذه النقطه سيرجع الى نقطه البايه لفحص الصف الثامن وهكذا 'End Sub لن يذهب الكود الى نقطه البداية مره اخرى وانما سيذهب لتنفيذ السطر التالى LastRow وعند الوصول الى اخر صف به بيانات Next irow 'انتهي End Sub ربنا يبارك لك استاذ خالد .... الكود مع الشرح للمحترم استاذ خالد الرشيدي

نريد ان يكون السؤال واضح المعالم بحيث اللي يقرأ السؤال...... يستفيد من الاجابه .. يحعله عامر يارب

بدايه مشروع 6.rar

اين المحترم استاذ محمد الدسوقي ليشاركنا شرف اكمال البرنامج

اخي استاذ الشهابي اين توجد معادلتك فتحت الملف الاخير ولم اجد لها اثرا من فضلك دلني عليها

هذا هو الملف وبه اذا اراد احد ان يستعلم عن تاريخ محدد فقط او التاريخ المحدد والتواريخ التي تسبقه لعل احد يستفيد منه تنبيـــــهات بتعديلات خالد الرشيدي.rar

اللهم اني اسألك بحق إسمك الاعظم الذي اذا دعيت به اجبت ان تبارك للاستاذ المحترم خالد الرشيدي وتمده بالصحه والعافيه .. يارب هل تم التغيير في هذه الجزئيه ام يوجد تغييرات اخرى ؟ If (MyDate - .Cells(irow, 7)) <= expd And (MyDate - .Cells(irow, 7)) > 0 Then ================= مامعنى هذه الجمله بارك الله لك ؟ =CHAR(156)

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

هذه هي الفكره المهم ان نبدا ================== مشاركه ايجابيه وليست كلاميه بالمعالات جلب ارقام الجلوس للطلبة الراسبين و الناجحين كل في شيت منفصل اسماعيل ياجوري

الحمد لله الذي رزقنا باحد الرجال المحترمين وهو الاستاذ خالد الرشيدي == في صعحه Machines_Card في الخليه H2 ضغ تاريخ اليوم .. حتى يتم المقاربه امام الاسم الاول ( اسلام ) في تاريخ الانتهاء اكتب 18/2/2017 كده هذا الاسم وهذا التاريخ اكبر من تاريخ اليوم ب4 ايام في صفحه Main غي الخليه A1 اكنب العدد 4 ستلاحظ في صغحه Notifications وجود الاسم اسلام بالرغم من انه ليس فيل الميعاد لان الميعاد هو ناريخ اليوم المطلوب لو تاريخه قبل الميعاد يغني 10/2/2017 كان المقروض يظهر

من يضعه في ملف ويفيد به ؟

================== مشاركه ايجابيه وليست كلاميه صفحات الاحصاء.rar

وجدت ملفا قد يفيد احد الاخوه وفيه تنسيق شرطي لو تاريخ الاستحقاق متساوي مع تاريخ اليوم يتلون اوتوماتيكي باللون ازرق ولو تاريخ الاستحقاق اقل من تاريخ اليوم بعدد الايام التي تكتبها يتلون باللون الاصفر ولو تاريخ الاستحقاق فات ميعاده يتلون اوتوماتيكي باللون الاحمر تنســـيق.rar

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

يارب ارزقنا باحد الأفذاذ ليضبط المعادله الموجوده بالكود

جزاكم الله خيرا

أين العمالقه ؟

للرفع

===================== رابط تحميل الشرح السابق http://up.top4top.net/downloadf-406iv0gu1-rar.html

============================ رابط تحميل اخر http://up.top4top.net/downloadf-406iv0gu1-rar.html

Sub Show() 'هذه الأكواد الثلاثة التالية تعمل على تسريع تنفيذ الأوامر Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub اكواد للتسريع وجدتها فوضعتها لعلها تفيد احد.. توضع في اول الكود واخره

في اي خليه تبغاها اكتب هذه المعادله =TEXT(O15; "dddd") وفي خلية O15 اكتب =NOW()