نجوم المشاركات

هذه المعادلة في AE2 =IF(X2="","",IF(COUNTIF($AD$2:AD2,AD2)=1,Order_Salim(AD2),Order_Salim(AD2)&" مكرر : "&COUNTIF($AD$2:AD2,AD2)-1))

السلام عليكم هذه طريقة خفيفة عملتها ، بحقل واحد ، ونستخدم فيه الخط بسطرين . . . بهذا الكود: Option Compare Database Dim i As Integer Dim A As String Private Sub Form_Open(Cancel As Integer) i = 0 Me.pr = "سيبدأ التحميل ..." End Sub Private Sub Form_Timer() 'A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| A = A & ChrW(&H2590) Me.lbl_Meter.Caption = A Me.pr = "تقدم مؤشر التحقق " & i & "%" i = i + 1 If i = 100 Then Me.TimerInterval = 0 DoCmd.Close acForm, Me.Name End If End Sub . وهناك بديل آخر في الكود بدل 'A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| A = A & ChrW(&H2590) اعمل A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| 'A = A & ChrW(&H2590) . لتحصل على . . جعفر 888.مؤشر تحميل.mdb.zip

السلام عليكم تم التعديل على معادلات عمود "المراتب" في ملف أخي سليم الأخير حتى لا يكون تجاوز لبعض الرتب في حالات تكرارات الرتب التي تسبقها... أرجو أن يكون هو المطلوب... بن علية حاجي tartib for printing salim.rar

السلام عليكم وبيعملها ثاني الإكسيل Tartib for printing final 2.rar

حاضر استاذي جعفر انا بالخدمة .. ان شاء الله سارفق البرنامج غداً بإذن الله لانه موجود على جهازي في العمل تحياتي

همم اخي اوس ، لوسمحت تتواصل على الخاص مع اخي ريباز جعفر

بارك الله فيك اخي سليم

جرب استخدام برنامج accessfix لتصليح قواعد البيانات التالفة

وعليكم السلام يجب وضع جهاز ups على كل حاسبة ، وعلى جهاز الـ Switch الذي يربط شبكة الكمبيوترات ، وطبعا على السيرفر ، وإلا ، فالنتائج كارثية ، ومن النتائج ما يمكن تصليحه ، ومنها ما لا يمكن تصليحة ولا حتى معرفة حجم الضرر الذي تسبب به انقطاع الكهرباء فجأة عن الكمبيوتر. جعفر

وعليكم السلام اخي @Shivan Rekany عمل هذه الهدية خصيصا لحاجتك انزل المرفق في هذا الرابط . الوحدة النمطية فيها ما تريد ، وعلشان تحصل على طلبك ، في السطر المؤشر عليه بالسهم ، احذف علامة ' اللي في اول السطر ، وسترى النتائج في اسفل الشاشة (انظر المربع الاحمر) ، والباقي عليك . . ولكن ، 60 هرتز او 75 هرتز لا علاقة لها بحجم الشاشة ، وانما هي لتحديث الشاشة ومنعها من الإهتزاز. جعفر

اكيد احضرتك حذفت الكود التالي Sub DeletingShp() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type = 1 Then shp.Delete Next shp End Sub

شكراً اخي بن علية على هذه المعادلة الرائعة

ما رأيك ان تعمل ملف وينرار محمي بكلمة سر ؟

استاذي القدير جعفر للأسف لم يعمل الملف الذي ارفقته فقد ظهرت رسالة خطأ كما في الصورة استاذ kanory اشكرك جزيل الشكر .. نعم هذا هو المطلوب بارك الله فيك

ان شاء الله سوف يتم طرح الموضوع خلال هذه الفترة

استاذ شفان البرنامج نظيف وخالي من الفيروسات لكن يبدو ان الانتي فايروس microsoft security essentials غير مقتنع بعد يبدو ان الاحتمال الثاني هو الوارد "هو ان عملية اغلاق برنامج ما من ذاكرة الجهاز عن طريق ملف exe خارجي قد يعتبرها الانتي فايروس عملية تهديد بحد ذاتها"

استاذي القدير شيفان واستاذي الكبير جعفر تحية طيبة لكم وبعد نعم استاذ شفان قد يتم اعتبار الملف تهديد وذلك بسبب استعمالي للـ UPX لضغط الملف الناتج كما في الصورة المرفقة او هنالك احتمال آخر وهو ان عملية اغلاق برنامج ما من ذاكرة الجهاز عن طريق ملف exe خارجي قد يعتبرها الانتي فايروس عملية تهديد بحد ذاتها لكني سارفق لك نفس البرنامج لكن بدون استعمال UPX ارجو منك فحصه لان ذلك سيساعدنا في تحديد الاحتمال الرئيسي لاعتبار الملف تهديد CloseMSAccess.zip اساتذتي الكرام ..الكود المستعمل هو كما موضح في الصورة التالية الملف يقوم على اغلاق الاكسس العالق في الذاكرة وقد تمت برمجته حسب طلب الاخ محمد القدسي صاحب الموضوع

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

استبدل الرقم 36 بالرقم 52 (الذي هو رقم الصف لاخر طالب في الجدول) في كل المعادلات بالنسية لدمج المرسلات انسخ البيانات المطلوبة الى صفحة اخرى و اجعل هذه الصفحة(الاخرى) مصدراً لدمج المرسلات الملف مرفق و هو يقوم اوتوماتيكياً بادراج المعادلات اللازمة حسب عدد الطلاب مع نسخ المعاومات المطلوبة الى الورقة 2 tartib for printing salim.rar

تم معالجة الامر الرابع Salim with repitition_sorting.rar

يمكن عمل ذلك الرابع Salim with repitition.rar

سلام عليكم .. اشكركم على النقاش هذا.. الحقيقة عملت كل ما ذكرته استاذ تومي ولم يجدي نفعًا.. بدأت بدايةً بعمل علامة صح كما ذكرت.. وظهر لي بعدها أن هذا العامل المتواجد في عنصر البحث لا يصلح تماام الف شكر استاذ مصطفى بالفعل جابت نتيجة بس فيه حاجة تانية هل الكود دا مسموح بيه اقواس اخرى ولا فقط الاقواس () دي والف شكر

وعليكم السلام أستأذن الأستاذ تومي بالإجابة لتفادي المشكلة، يرجى الانتباه أنه عند وضع علامة المؤشر بخانة استبدال حوِّلي نمط الكتاب إلى إنجليزي من تغيير اللغة، وبعد ذلك اكتبي ((\*)\) ولا تنسِ وضع علامة صح عند الاختيار (باستخدام احرف البدل) في مربع الحوار "بحث واستبدال". دمتم بخير

الاخوه الكرام وجدت فى احد المنتديات هذه المعادله التى تقوم بتفقيط المبالغ فاردت ان تعم الفائده على الجميع تفقيط.rar

كود لادراج اسماء أوراق العمل الموجودة بملف اكسل ( ادراجها مع عمل ارتباط تشعبي لها ) Option Explicit Sub ListAllSheets2() Dim sht As Worksheet Dim i As Integer i = 2 For Each sht In Worksheets i = i + 1 ActiveSheet.Hyperlinks.Add _ anchor:=Cells(i, 2), _ Address:="", _ SubAddress:=sht.Name & "!a1", _ TextToDisplay:=sht.Name Next sht End Sub ارتباط تشعبي.rar

لتحديد ما بين قوسين في M.Word لعناصر سواء كانت ارقاما او حروفا او معا نقوم بفتح مربع الحوار "بحث واستبدال" فنكتب في مربع البحث عن : ((\*)\) ثم نضع المؤشر في خانة "استبدال بـ" ونغير حجم الخط من 14 الى 12 وهذا من زر تنسيق في مربع الحوار (خط) واخيرا ننقر على زر استبدال الكل. والسلام عليكم ورحمة الله وبركاته

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